Midas at 5105 E. Bay Drive, Clearwater, FL. 33764

<%@LANGUAGE="VBSCRIPT"%> <% strSentMail = "" If (Request.Form("submissioncheck") <> "") Then strFirstName = Cstr(request.form("txtfname")) strLastName = Cstr(request.form("txtlname")) strEmail = Cstr(request.form("txtemail")) strPhone = Cstr(request.form("txtphone")) strAddress = Cstr(request.form("txtaddress")) strAddress2 = Cstr(request.form("txtaddress2")) strVehicleInfo = Cstr(request.form("txtvehicleinfo")) strComments = Cstr(request.form("textarea")) ' Assess Check boxes for service boolOil = Cstr(request.form("chkoil")) boolBrakes = Cstr(request.form("chkbrakes")) boolTires = Cstr(request.form("chktires")) boolExhaust = Cstr(request.form("chkexhaust")) boolOther = Cstr(request.form("chkother")) If boolOil <> "True" then boolOil = "No" If boolBrakes <> "True" then boolBrakes = "No" If boolTires <> "True" then boolTires = "No" If boolExhaust <> "True" then boolExhaust = "No" If boolOther <> "True" then boolOther = "No" ' Assess Check boxes for logistics boolFreePickup = Cstr(request.form("chkfreepickup")) boolPickupAddress = Cstr(request.form("chkhomepickupaddress")) boolDropoffAddress = Cstr(request.form("chkdropoffaddress")) If boolFreePickup <> "True" then boolFreePickup = "No" If boolPickupAddress <> "True" then boolPickupAddress = "No" If boolDropoffAddress <> "True" then boolDropoffAddress = "No" ' Send email to admin, notifying that a contact has been made ' Build mail strFrom = "The Midas Website" strBody = "Please review this customer's request and contact the customer with the information below." strBody = strBody & vbCrLf & vbCrLf & "First Name: " & strFirstName strBody = strBody & vbCrLf & "Last Name: " & strLastName strBody = strBody & vbCrLf & "Phone: " & strPhone strBody = strBody & vbCrLf & "Email: " & strEmail strBody = strBody & vbCrLf & "Personal Address: " & strAddress strBody = strBody & vbCrLf & "City, State: " & strAddress2 strBody = strBody & vbCrLf & "Vehicle Information: " & strVehicleInfo strBody = strBody & vbCrLf & vbCrLf & "Oil Service Requested: " & boolOil strBody = strBody & vbCrLf & "Brake Service Requested: " & boolBrakes strBody = strBody & vbCrLf & "Exhaust Service Requested: " & boolExhaust strBody = strBody & vbCrLf & "Other Service Requested: " & boolOther strBody = strBody & vbCrLf & "Tire Service Requested: " & boolTires strBody = strBody & vbCrLf & vbCrLf & "Free Pickup/Drop Off Requested: " & boolFreePickup strBody = strBody & vbCrLf & "The Pickup Address is the Home Address: " & boolPickupAddress strBody = strBody & vbCrLf & "The Drop Off Address is the same as the Pick Up Address: " & boolDropoffAddress strBody = strBody & vbCrLf & vbCrLf & "Other Customer Comments: " & strComments strSubject = "Customer Contact from the Midas Website" strTo = "adatmidas@hotmail.com, darthjordan@gmail.com" Dim Mail set Mail=server.createobject("CDO.Message") Mail.From = "adamford@stpetemidas.com" Mail.To= strTo Mail.Subject = strSubject Mail.TextBody = strBody Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") =2 Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="relay-hosting.secureserver.net" Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =25 Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") =1 Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "damien" Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "123456" Mail.Configuration.Fields.Update Mail.Send set Mail=nothing strSentMail = "Thank you, your mail has been sent. We will respond to your request within 24 business hours." End If %> Midas at 5105 E. Bay Drive, Clearwater, FL. 33764


We donate $5 of every maintenance purchase towards make a wish foundation.

CALL US NOW!
PHONE (727) 531-4070

Home | Contact | Service | About Us | Coupons