Customer Service Ordering Information For all ordering, dealer, and distribution information contact us or call (310)613-3535.
|
<%
'The form sends data upon pressing the submit button. The server creates the E-Mail using the SMTP software on the server
'then sends it to the email address in the senderAddress field.
If len(Request.form("Submit"))> 0 then
set Mailer = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") =2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="mxfarm.techpro.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Update
End With
With Mailer
Set .Configuration = iConf
.To = "BoosweetRecOn@aol.com"
.From = Request.form("SenderAddress")
.Subject = Request.form("Subject") & " from GuitarGlobal.com"
'.TextBody = .HTMLBody = "This email is from: " & Request.form("SenderName") & vbcrlf &_
'"Sender E-Mail Address: " & Request.form("SenderAddress") & vbcrlf & vbcrlf &_
'"Business: " & Request.Form("Business") & vbcrlf &_
'"Phone Number: " & Request.Form("PhoneNumber") & vbcrlf &_
'"Address 1: " & Request.Form("Address1") & vbcrlf &_
'"Address 2: " & Request.Form("Address2") & vbcrlf &_
'"City: " & Request.Form("City") & vbcrlf &_
'"State: " & Request.Form("State") & vbcrlf &_
'"Country: " & Request.Form("Country") & vbcrlf & vbcrlf &_
'"Message Subject: " & Request.Form("Subject") & vbcrlf & vbcrlf &_
'"Message: " & Request.Form("Message") & vbcrlf & vbcrlf & vbcrlf &_
'"Sent using the contact form"
.HTMLBody = "This email is from: " & Request.form("SenderName") & " " &_ "Sender E-Mail Address: " & Request.form("SenderAddress") & " " &_ "Business: " & Request.Form("Business") & " " &_ "Phone Number: " & Request.Form("PhoneNumber") & " " &_ "Address 1: " & Request.Form("Address1") & " " &_ "Address 2: " & Request.Form("Address2") & " " &_ "City: " & Request.Form("City") & " " &_ "State: " & Request.Form("State") & " "&_ "Zip Code: " & Request.Form("ZipCode") & " "&_ "Country: " & Request.Form("Country") & " " &_ "Message Subject: " & Request.Form("Subject") & " " &_ "Message: " & Request.Form("Message") & " " &_ "Sent using the contact form" .Send End With Set Mailer=Nothing Set iConf=Nothing Set Flds=Nothing %> Your mail has been sent! Thank You. <% Else %> Please use the form below to contact Guitar Global: <% End If%> |