7 Day Auto Glass in Houston Texas Coupon Page

<% sCompanyName = "Houston Texas 7 Day Auto Glass Discounters" sSendTo = "autobackglass@yahoo.com" If Request.QueryString("bSubmitted") = "1" THEN sFirstName = Request.Form("fldFirstName") sLastName = Request.Form("fldLastName") sPhone = Request.Form("fldPhoneNumber") sCity = Request.Form("fldCity") sMake = Request.Form("fldMake") sModel = Request.Form("fldModel") sYear = Request.Form("fldYear") sStyle = Request.Form("fldStyle") sDoors = Request.Form("fldDoors") sGlass = Request.Form("fldGlass") sEmail = Request.Form("fldEmail") sSearchEngine = Request.Form("fldSearchEngine") sAdditional = Request.Form("fldAdditional") sHtml = sHtml &"BELOW IS THE INFORMATION RECEIVED
" sHtml = sHtml &"Name: "&Request.Form("fldFirstName")&" "&Request.Form("fldLastName")&"
" sHtml = sHtml &"Phone: "& sPhone &"
" sHtml = sHtml &"City: "& sCity &"
" sHtml = sHtml &"Make: "&Request.Form("fldMake")&"
" sHtml = sHtml &"Model: "&Request.Form("fldModel")&"
" sHtml = sHtml &"Year: "&Request.Form("fldYear")&"
" sHtml = sHtml &"Style: "&Request.Form("fldStyle")&"
" sHtml = sHtml &"Doors: "&Request.Form("fldDoors")&"
" sHtml = sHtml &"Glass Position: "&Request.Form("fldGlass")&"
" sHtml = sHtml &"Email Address: "&Request.Form("fldEmail")&"
" sHtml = sHtml &"Search Engine: "&Request.Form("fldSearchEngine")&"
" sHtml = sHtml &"Additional Comments: "&Request.Form("fldAdditional")&"
" sError = "" If sFirstName = "" THEN sError = "Please enter your first name." Elseif sLastName = "" THEN sError = "Please enter your last name." Elseif sPhone = "" THEN sError = "Please enter your phone number." Elseif sCity = "Choose A City" THEN sError = "Please select your city." Elseif sModel = "Choose A Vehicle" THEN sError = "Please select your vehicle model." Elseif sYear = "Choose a Year" THEN sError = "Please select the year of your vehicle." Elseif sStyle = "Body Style" THEN sError = "Please select the style of your vehicle." Elseif sDoors = "Doors" THEN sError = "Please select the number of doors in your vehicle." Elseif sMake = "" THEN sError = "Please enter your vehicle make." Elseif sGlass = "Choose A Glass" THEN sError = "Please select the glass type of your vehicle." Elseif sEmail = "" THEN sError = "Please enter your email address." End If If sError = "" THEN Set oMail = Server.CreateObject("Persits.MailSender") oMail.Host = "smtp.sbcglobal.yahoo.com" oMail.UserName = "kcglass@sbcglobal.net" oMail.Password = "shiraz" oMail.From = sEmail oMail.AddAddress sSendTo oMail.Subject = ""&sCompanyName&" QUOTE RECEIVED" oMail.Body = sHtml oMail.isHTML = true oMail.Send Response.Write "" Set oMail = Nothing End If End If %> 7 Day Auto Glass in Houston Texas Coupon Page