Service Request

<% If request("submit") <> "" THEN Dim objCDO ' Email object Dim strFromName ' From persons' real name Dim strFromEmail, strToEmail ' Email addresses Dim strSubject, strBody ' Message Dim misccompo strSubject = "Service Request From www.splashandcompany.com" strFromName = Trim(Request.Form("firstname")) + Trim(Request.Form("lastname")) strFromEmail = Trim(Request.Form("sendersemail")) strToEmail = "rholberg@austin.rr.com" strBody = "
Email:" + Trim(Request.Form("sendersemail")) + "
First name:" + Trim(Request.Form("firstname")) + "
Last name:" + Trim(Request.Form("lastname")) + "
Phone:" + Trim(Request.Form("addressphone")) + "
Alternate Phone:" + Trim(Request.Form("addressaltphone")) + "
Address:" + Trim(Request.Form("address1")) + "
City:" + Trim(Request.Form("addresscity")) + "
State:" + Trim(Request.Form("addressstate")) + "
Prefered Service Time:" + Trim(Request.Form("prefered_time")) + "
Message:" + Trim(Request.Form("emailmessage")) + "
" Set objCDO=CreateObject("CDO.Message") objCDO.Subject=strSubject objCDO.From=strFromName & " <" & strFromEmail & ">" objCDO.To=strToEmail objCDO.HTMLBody=strbody objCDO.Send set objCDO=nothing %>

Thank you for your submission some one will respond ASAP.

<% Else %>

The Request for Service form is used to document and report concerns, needs and requests from current Splash & Company customers. Please provide us with the following information. Alternatively, you may call 512-328-2527.

Email: *
First name: *
Last name: *
Phone: *
Alternate Phone:
Address:
City:
State:
Prefered Service Time:
Message:
<% End If %>