<% Response.Buffer = True Response.ContentType = "text/vnd.wap.wml" Response.Write "" %> <% set sm = server.CreateObject("CDONTS.NewMail") set sm = server.CreateObject("CDONTS.NewMail") sm.from = Request("From") sm.to = Request("To") sm.Subject = Request("Subject") sm.body = Request("Body") & vbCrLf & vbCrLf & _ "______________________________________________________" & vbCrLf & _ " Message sent via houseview WAPMail " & vbCrLf & _ " http://www.houseviewonline.com/wap/default.asp" On Error Resume Next sm.Send set sm = nothing Dim Report If Err <> 0 Then Report = "Error: " & Err.Description Else Report = "Message sent to " & Request.Form("To") End If %>

<%= Report %>

Send another
home ...

2000, houseviewonline.com