<% If Request("Submitted") then SQL = "Select * From MechanicReviews" %> <% Session("SubmittedReview") = "True" Recordset.AddNew Recordset("Shop_Name") = Request("Shop_Name") Recordset("Shop_State") = Request("Shop_State") Recordset("Shop_City") = Request("Shop_City") Recordset("Shop_Review") = Request("Shop_Review") Recordset("Shop_Reviewer_Rating") = Request("Shop_Reviewer_Rating2") Recordset("Reviewer_FirstName") = Request("Reviewer_FirstName") Recordset("Review_Date") = Date Recordset.Update Set objCDOMessage = Server.CreateObject("CDONTS.NewMail") 'This create's the Mail Object objCDOMessage.From = "webmaster@mechanic-review.com" ' the address listed as "From" objCDOMessage.To = "webmaster@mechanic-review.com" ' the address listed as "To" objCDOMessage.Subject = "A New Simple Mechanic Review has been posted!!" ' specify the subject header objCDOMessage.Body = "Review Details " & vbcrlf & vbcrlf &_ "View This Review http://www.Mechanic-Review.com/ReviewDetails.php?Shop_id=" & Recordset("AutoNumber") & vbcrlf & vbcrlf &_ "Shop_Name: " & Request("Shop_Name") & vbcrlf &_ "Shop_State: " & Request("Shop_State") & vbcrlf &_ "Shop_City: " & Request("Shop_City") & vbcrlf &_ "Shop_Review: " & vbcrlf & Request("Shop_Review") & vbcrlf & vbcrlf &_ "Shop_Review_Rating: " & Request("Shop_Reviewer_Rating2") & vbcrlf &_ "Reviewer_FirstName: " & Request("Reviewer_FirstName") & vbcrlf &_ "Review_Date: " & Date & vbcrlf & vbcrlf &_ "-------------------------------------------------------------------" & vbcrlf &_ "Remove This Review http://www.Mechanic-Review.com/removereview.php?Shop_id=" & Recordset("AutoNumber") objCDOMessage.Send errmsg = "Your Review has been posted. We highly appreaciate your review.
Thanks and have a great day!" If Request("SearchType") = "Type" then Response.Redirect("http://www.mechanic-review.com/SearchReviews.php?Submitted=1&SearchType=Type&State=" & Request("Shop_State") & "&Shop_Reviewer_Rating=" & Request("Shop_Reviewer_Rating")) end if If Request("SearchType") = "General" then Response.Redirect("http://www.mechanic-review.com/SearchReviews.php?Submitted=1&SearchType=General&strsearch=" & Request("strsearch")) else Response.Redirect("http://www.mechanic-review.com/ListOfReviews.php?State=" & Request("Shop_State")) end if end if %>

<% if Request("Submitted") then %> <%=errmsg%> Click here to purchase the Axiom Stealth USB Drive flash - 128 MB(USBFD/128-AX) for only $19.54 <%else%> Before you view the requested list of mechanics please share an experience you have had with a mechanic/shop to help car owners like yourself. <% end if %>	To submit a review please fill in the simple form below. The review can be as long or short as you'd like, however longer reviews are preferred.

"> "> "> "> Shop/Garage Name: Review: Shop Rating: Excellent Good Fair Poor We ask that your review is honest and respectful of the shop/garage that your review is about.

Shop City: Your First Name: (optional) Shop State: <%=Request("State")%> ">