<%
If request.form("user_name") <> "" then
'Declare variables for the e-mail script
dim strUserName
dim strUserEmail
dim strText
dim userPhoneNumber
dim targetEmail
targetEmail = Request.form("to_office")
'Get input from the form and assign it to script variables
strUserEmail = Trim(Request.form("user_email"))
userPhoneNumber = Request.form("user_phoneNumber")
strUserName = Request.form("user_name")
strMsg = Request.form("user_request")
strText = "User Name: "+strUserName + vbCrLf
strText = strText+ "E-mail : "+strUserEmail + vbCrLf
strText = strText+ "Telephone: "+userPhoneNumber + vbCrLf
strText = strText+ "Request : "+strMsg
send_email()
'The send_email function formats and sends the e-mail
function send_email()
sch = "http://schemas.microsoft.com/cdo/configuration/"
'Set cdoConfig = CreateObject("CDO.Configuration")
'With cdoConfig.Fields
' .Item(sch & "sendusing") = 2 ' cdoSendUsingPort
' .Item(sch & "smtpserver") = "mail.global.bigfish.com"
' .Item(sch & "smtpauthenticate") = 0 'or 1 basic
' .Item(sch & "smtpserverport") = 25
' .Item(sch & "sendusername") = ""
' .Item(sch & "sendpassword") = ""
' .update
'End With
Set cdoConfig = Nothing
'Create an object or container for your mail
Dim objMail
Set objMail = Server.CreateObject("CDO.Message")
objMail.To = targetEmail
objMail.From = targetEmail
objMail.ReplyTo = targetEmail
objMail.Subject = "Sale Request"
objMail.TextBody = strText
objMail.Send
'Release system resources
Set objMail = Nothing
if err.number > 0 then
response.write "Errors were encountered in sending your request. Please try again, or contact the webmaster"
else
Response.Write "Your request for quote has been sent! Thank you for your comment or question!"
Response.Write "back "
end if
end function
else
'display the form
%>
<%
end if
%>
|
|
