<%
'syntax - SendEmail(strTo, strCC, strBcc, strFrom, strSubject, strBody, nHTML, strAttach)
Session("URL") = Request.ServerVariables("URL")
Session("URLQuery") = Request.ServerVariables("QUERY_STRING")
Dim RequestMethod, Name, Company, Email, Phone, Subject, MailMessage, Body, Status, From, Result, UserInfo
UserInfo = Session("UserInfo")
RequestMethod = Request.ServerVariables("REQUEST_METHOD")
Status = 0
Result = ""
Name = Trim(Request.Form("Name"))
Company = Trim(Request.Form("Company"))
Email = Trim(Request.Form("Email"))
Phone = Trim(Request.Form("Phone"))
Subject = Trim(Request.Form("Subject"))
MailMessage = Trim(Request.Form("MailMessage"))
'If Not IsEmpty(UserInfo) Then
' If Name = "" Then
' Name = UserInfo(2,0) & " " & UserInfo(3,0)
' End If
' If Email = "" Then
' Email = UserInfo(4,0)
' End If
'End If
If RequestMethod = "POST" And Name <> "" And Email <> "" And Subject <> "" Then
From = Name & " <" & Email & ">"
Body = "---------------------------------------------------------------------------------" & vbCrLf
Body = Body & "The following message has been submitted on the K&A Motorsport web page:" & vbCrLf & vbCrLf
Body = Body & "Name: " & Name & vbCrLf
Body = Body & "Company: " & Company & vbCrLf
Body = Body & "Email: " & Email & vbCrLf
Body = Body & "Phone: " & Phone & vbCrLf
Body = Body & "IP Address: " & Request.ServerVariables("REMOTE_ADDR") & vbCrLf
Body = Body & "Host IP: " & Request.ServerVariables("REMOTE_HOST") & vbCrLf
Body = Body & "---------------------------------------------------------------------------------" & vbCrLf & vbCrLf
Body = Body & MailMessage & vbCrLf & vbCrLf
'Syntax SendEmail(strTo, strCC, strBcc, strFrom, strSubject, strBody, nHTML, strAttach)
'----GET EMAIL ADRESS----
sql = "SELECT Setting"
sql = sql & " FROM tblConfig"
sql = sql & " WHERE Config='contactus'"
OpenDB dbc
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, dbc
Do While Not rs.EOF
SendEmail rs("Setting"), "", "", "webmaster@kandamotorsport.com.au", Subject, Body, 0, ""
rs.Movenext
Loop
rs.Close
Set rs = Nothing
CloseDB dbc
'----GOT EMAIL ADRESS----
Status = -1
End If
If Status = -1 Then
Result = "Your message has successfully been sent."
End If
If Status = 0 And RequestMethod = "POST" Then
Result = "Please make sure you complete all the mandatory fields."
End If
%>
K and A Motorsport - Contact Us
