<%
if Request.Form("u_submitted") <> "Yes" then
%>
<% else
u_email=request.form("u_email")
u_comments=request.form("u_comments")
S_email = "website@homezonetv.com"
u_body = "The following link was sent to you by a user of homezonetv.com" & vbCrLf
u_body = "The Following homes were of intrest." & vbCrLf
If IsObject(Session("cart")) Then
Dim lastentry,wishlist
wishlist = Session("cart").Keys
lastentry = Session("cart").Count - 1
For num = 0 to lastentry
u_body = u_body & "MLS#" & wishlist(num) & " Located in" & Session("cart").Item(wishlist(num)) & vbCrLf
u_body = u_body & "http://www.homezonetv.com/viewhome.asp?MLS=" & wishlist(num) & vbCrLf
Next
End if
u_body = u_body & "Comments:" & u_comments & vbCrLf & vbCrLf
set sm = server.CreateObject("CDONTS.NewMail")
sm.from = S_email
sm.Subject = "Homezonetv.com Favorite links"
sm.to = u_email
sm.body = u_body
sm.Send
set sm = nothing
%>
Your mail has been sent
Please Close this Window....
<% end if%>
