<% If Request.form("hdnsend")=1 then
' Declaring variables
Dim data_source, con, sql_insert
data_source = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=pestcontrol; UID=root; PASSWORD=Cactus1; OPTION=3;"
sql_insert = "insert into messages (Email,Subject,Recip,Name,Content,SentTime,City,Phone,Zip,State,Address) values ('" & Request.form("Email") & "','" & Request.form("Subject") & "','" & UserID2 & "','" & Request.form("Name") & "','" & Request.form("Content") & "','" & Date & "','" & Request.form("City") & "','" & Request.form("Phone") & "','" & Request.form("Zip") & "','" & Request.form("State") & "','" & Request.form("Address") & "')"
Set con = Server.CreateObject("ADODB.Connection")
con.Open data_source
Xmessage="
Thank you for your inquery. Someone will be in contact with you shortly."
con.Execute sql_insert
' Done. Close the connection
con.Close
Set con = Nothing
Else
End IF
%><%=xMessage%>
