% a=request.form("x_type") if a="a" then dim x_name dim x_email dim x_phone dim x_besttime dim x_address dim x_state dim x_zip dim x_message dim x_type dim x_service x_name=request("x_name") x_email=request("x_email") x_phone=request("x_phone") x_besttime=request("x_besttime") x_address=request("x_address") x_state=request("x_state") x_zip=request("x_zip") x_message=request("x_message") x_service=request("service") x_type="contact" if x_service="" or x_service=null then x_service="none" end if Dim MyCDONTSMail2 Dim HTML Set MyCDONTSMail2 = CreateObject("CDO.Message") Set cdoConfig = Server.CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "smtp.1and1.com" .Update End With Set MyCDONTSMail2.Configuration = cdoConfig HTML = "" HTML = HTML & "" HTML = HTML & "
" HTML = HTML & ""
HTML = HTML & "Current date & time: " & now() & "
"
HTML = HTML & "Incoming Proposal Request
| Name | " & x_name & " |
| " & x_email & " | |
| Phone | " & x_phone & " |
| Best Time To Call | " & x_besttime & " |
| Street Address | " & x_address & " |
| State | " & x_state & " |
| Zip | " & x_zip & " |
| Message or Proposal | " & x_message & " |
| Service customer is interested in | " & x_service & " |
| From Page on Webiste | " & x_type & " |