<% 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 %>
" onSubmit="MM_validateForm('Name','','R','Email','','RisEmail');return document.MM_returnValue">
   Contact Form
   
Name:   ">
Company:   ">
E-Mail:   ">
   
How did you
hear about us?:
 
Rate us :    ( 1- 5. with 5 being excellent!)
 
Comments:  
 
Remember Me:  
   
<% 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 %>