Team 1 Realty Bug Us

<% dim smessage smessage = "" if request("ContactUs") = "Contact Us" then ' send the email Dim strFrom, strSubject, strName, strBody, strMessage, strCompany, strPhone, strFax Dim objCDOMail 'The CDO object strName = Request.Form("CName") strEMail = Request.Form("Email") strDayPhone = Request.Form("DayPhone") strEvePhone = Request.Form("EvePhone") strFax = Request.Form("Fax") strComments = Request.Form("Comments") strSubject = request.Form("Subject") strBody = "Name: " & strName strBody = strBody & vbCrLf & vbCrLf strBody = strBody & "E-Mail: " & strEMail strBody = strBody & vbCrLf & vbCrLf strBody = strBody & "Day Telephone: " & strDayPhone strBody = strBody & vbCrLf & vbCrLf strBody = strBody & "Evening Telephone: " & strEvePhone strBody = strBody & vbCrLf & vbCrLf strBody = strBody & "Fax: " & strFax strBody = strBody & vbCrLf & vbCrLf strBody = strBody & "Subject: " & strSubject strBody = strBody & vbCrLf & vbCrLf strBody = strBody & "Comments, Questions, Information Requested: " & strComments smessage = "Message Sent - Someone will be Contacting you Shortly." Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = strEMail objCDOMail.To = "amccune@mikegermain.com" objCDOMail.Subject = "Web Site Contact Form" objCDOMail.Body = strBody objCDOMail.Send Set objCDOMail = Nothing end if %> Team 1 Realty Bug Us