Let
Me Give You A Current Market Analysis On Your Home...
<%
if Request("B1") = "Submit" Then
Dim iMsg
Set iMsg = CreateObject("CDO.Message")
Dim iConf
Set iConf = CreateObject("CDO.Configuration")
Dim Flds
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup"
Flds.Update
Set iMsg.Configuration = iConf
iMsg.To = "kate@hollywood-beach-real-estate.com"
iMsg.From = Request("email")
iMsg.Subject = "Seller Request"
iMsg.TextBody = "First Name: " & Request("firstName") & VBCR & _
"Last Name: " & Request("lastName") & VBCR & _
"Email: " & Request("email") & VBCR & _
"Property Type: " & Request("propertyType") & VBCR & _
"Number of bedrooms: " & Request("bedrooms") & VBCR & _
"Number of bathrooms: " & Request("bathrooms") & VBCR & _
"Location: " & Request("location") & VBCR & _
"Price Range: " & Request("priceStart") & "k - " & Request("priceEnd") & "k"
iMsg.Send
Response.Redirect "formconfirm.htm"
End If
%>
Next |
