<% '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 %>
Charlotte Real Estate in the heart of North Carolina.  From left to right: Panthers Stadium, Uptown Charlotte and the Bobcats arena.
Deborah Cox, Charlotte NC Real Estate Agent

Deborah Cox
Savvy + Co
1920 E. 7th St
Charlotte, NC 28204

Office: (704) 516-4279
Fax: (704) 333-8951
Email: dcox@livinguptown.com

Charlotte NC Real Estate
I am interested in:  Purchasing  Selling a Home
For Purchasers:
I have been prequalified for a mortgage:  Yes  No
I am searching for a:  Condo  Townhouse  Single-family Home
Additional questions or comments: