Your Home Zone Favorites <% if Request.Form("u_submitted") <> "Yes" then %>
Subject:EMail your Home Zone Favorites

Enter the email address of the recipient:
Comments:

<% 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%>