<%
sub SendToCustomer
Dim from, body, username, password, subject
From=request.form("email")
UserName="AccessWeb@accesswebdesign.com"
Password="aT1vy4DyX4cJo6ATHXXc"
subject= "AccessWebDesign.com Contact Confirmation"
body = "This is an automated response indicating that we have received your e-mail! We will have a representative contact you shortly. Thank you for choosing AccessWeb.com as your source for technology!"
SendMailCDOSYS "info@accessweb.com",request("email"),subject,body,True, "sbs.accesswebdesign.com",username, password
end sub
sub SendToCompany
Dim from, body, username, password, subject
From=request.form("email")
UserName="AccessWeb@accesswebdesign.com"
Password="aT1vy4DyX4cJo6ATHXXc"
subject = "Contact from AccessWebDesign.com"
body = "Name: " & request("name") & "
" body = body & "Email: " & request("email") & "
" body = body & "Phone: " & request("phone") & "
" body = body & "Company: " & request("company") & "
" body = body & "Questions/Comments/Inquiries: " & request("inquiry") SendMailCDOSYS request("email"),"sales@accessweb.com",subject,body,True, "sbs.accesswebdesign.com",username, password subject = "Contact from AccessWeb.com" body = "Name: " & request("name") & "
" body = body & "Email: " & request("email") & "
" body = body & "Phone: " & request("phone") & "
" body = body & "Company: " & request("company") & "
" body = body & "Questions/Comments/Inquiries: " & request("inquiry") SendMailCDOSYS request("email"),"info@accessweb.com",subject,body,True, "sbs.accesswebdesign.com",username, password end sub %>
" body = body & "Email: " & request("email") & "
" body = body & "Phone: " & request("phone") & "
" body = body & "Company: " & request("company") & "
" body = body & "Questions/Comments/Inquiries: " & request("inquiry") SendMailCDOSYS request("email"),"sales@accessweb.com",subject,body,True, "sbs.accesswebdesign.com",username, password subject = "Contact from AccessWeb.com" body = "Name: " & request("name") & "
" body = body & "Email: " & request("email") & "
" body = body & "Phone: " & request("phone") & "
" body = body & "Company: " & request("company") & "
" body = body & "Questions/Comments/Inquiries: " & request("inquiry") SendMailCDOSYS request("email"),"info@accessweb.com",subject,body,True, "sbs.accesswebdesign.com",username, password end sub %>
|
PHYSICAL ADDRESS 1901 Newport Boulevard Suite 350 Costa Mesa, CA 92627-2249 |
MAILING ADDRESS P.O. Box 10176 Costa Mesa, CA 92627-0060 |
TELEPHONE P: 714.444.1300 F: 714.444.1330 |
ELECTRONIC MAIL info@accessweb.com sales@accessweb.com |
|
<%if Request.QueryString("submit") = "yes" then
SendToCustomer
'SendToCompany
response.write "Thank you for contacting us! We'll review your information and will be in contact with you shortly! Back to homepage" else %> Contact Form:
<%end if%> |
Get Directions:
|