%
If request("send") = "1" Then
set INSContact = Server.CreateObject("ADODB.Command")
INSContact.ActiveConnection = Application("ADOConnection")
INSContact.CommandText = "dbo._SP_INSERT_CONTACT"
INSContact.CommandType = 4
INSContact.CommandTimeout = 0
INSContact.Prepared = true
INSContact.Parameters.Append INSContact.CreateParameter("@Name", 129, 1,50,Request("Name"))
INSContact.Parameters.Append INSContact.CreateParameter("@Email", 129, 1,100,Request("Email"))
INSContact.Execute()
If request("remember") = "1" Then
Response.Cookies("Name") = request("Name")
Response.Cookies("Company") = request("Company")
Response.Cookies("Email") = request("Email")
Response.Cookies("HearAbout") = request("hear")
Response.Cookies("Rating") = request("rating")
Response.Cookies("Comments") = request("Comments")
Else
Response.Cookies("Name").Expires = Date - 365
Response.Cookies("Company").Expires = Date - 365
Response.Cookies("Email").Expires = Date - 365
Response.Cookies("HearAbout").Expires = Date - 365
Response.Cookies("Rating").Expires = Date - 365
Response.Cookies("Comments").Expires = Date - 365
End If
Set MailObj = Server.CreateObject("CDONTS.NewMail")
MailObj.From = request.form("Email")
MailObj.To = "bret@gna.net"
MailObj.Subject = "You have an online request from your Web-Site !"
MailObj.Importance = 2
msg = msg & "Comments: " & vbnewline
msg = msg & Request("Comments") & vbnewline & vbnewline
msg = msg & "Company Name: " & vbnewline
msg = msg & Request("Company") & vbnewline & vbnewline
msg = msg & "How did you hear about us?: " & vbnewline
msg = msg & Request("hear") & vbnewline & vbnewline
msg = msg & "Your Rating: " & vbnewline
msg = msg & Request("rating") & vbnewline & vbnewline
msg = msg & vbnewline & vbnewline & vbnewline
msg = msg & "Contact has been saved" & vbnewline
msg = msg & "to your database." & vbnewline
MailObj.Body = msg
MailObj.Send
response.redirect Request.ServerVariables("SCRIPT_NAME") & "?saved=1"
End If
%>
<% If NOT request("saved") = "1" Then %>
<% Else %>
Your
message has been send succesfully. |
Thank
you.
We will respond within one business day. If you don't hear from us, please call us at 414-438-7480. |
<% End If %>
|