%
If request.Form("Mail") = "Go" Then
sendUrl="http://schemas.microsoft.com/cdo/configuration/sendusing"
smtpUrl="http://schemas.microsoft.com/cdo/configuration/smtpserver"
' Set the mail server configuration
Set objConfig=CreateObject("CDO.Configuration")
objConfig.Fields.Item(sendUrl)=2 ' cdoSendUsingPort
objConfig.Fields.Item(smtpUrl)="relay-hosting.secureserver.net"
objConfig.Fields.Update
' Create and send the mail
Set objMail=CreateObject("CDO.Message")
' Use the config object created above
Set objMail.Configuration=objConfig
objMail.From=request.form("email")
objMail.To="mytrainer@mindspring.net"
objMail.Subject="Contact from Website"
objMail.TextBody= vbCRLF & vbCRLF & "Name: " & request.form("Name") & vbCRLF & "Address: " & request.form("Address") & vbCRLF & "City: " & request.form("City") & vbCRLF & "State: " & request.form("State") & vbCRLF & "Zip: " & request.form("ZIP") & vbCRLF & "Phone: " & request.form("Phone")& vbCRLF & "Fax: " & request.form("Fax") & vbCRLF & "Email: " & request.form("email") & vbCRLF & "Newsletter: " & request.form("Newsletter")
objMail.Send
'mytrainer@mindspring.net
emailmessage = "
Thank You For Your Submission!"
Else
End If
%>
![]() |
|
|||
![]() ![]() ![]() ![]() ![]() ![]() ![]() |
|
281.338.1200 Get Started TODAY!
814 E. Main
League City, Texas