<%
'Declare Variables
dim strAddress
dim replyTo
dim strSubject
dim strText
dim strName
dim strMessage
dim strDayPhone
dim strNightPhone
dim iConf
dim Flds
dim strSmartHost
dim objMail
dim itsReady
dim strMortgage
dim strStyle
dim strHome
itsReady = ""
strAddress = Trim(Request.Form("user_email"))
if strAddress <> "" then
replyTo = cstr(strAddress)
end if
strName = Request.Form("user_name")
strMessage = Request.Form("user_text")
strDayPhone = Request.Form("user_dayPhone")
strNightPhone = Request.Form("user_nightPhone")
strHome = Request.Form("home")
strMortgage = Request.Form("mortgage")
strStyle = Request.Form("style")
strText = "E-mail from: " & strName & vbCrLf & "E-mail Address: " & replyTo & vbCrLf & "Daytime Telephone: " & strDayPhone & vbCrLf & "Evening Telephone: " & strNightPhone & vbCrLf & "I am interested in " & strHome& vbCrLf & "I have been prequalified for a mortgage: " & strMortgage & vbCrLf & "I am searching for a " & strStyle & vbCrLf & "Message: " & strMessage
if replyTo <> "" then itsReady = send_email()
function send_email()
Set objMail = CreateObject("CDO.Message")
objMail.Subject = "Request Information - LivingUptown.com"
objMail.From = "dcox@livinguptown.com"
objMail.To = "dcox@livinguptown.com"
objMail.TextBody = strText
objMail.Send
Set objMail = Nothing
if err.number > 0 then
Response.write "Errors were encountered in sending your message. "&_
"Please try again, or contact the webmaster"
else
%>
<%
end if
end function
%>
