<%
Response.buffer = true
AID=Request.QueryString("AID")
RID=Request.QueryString("RID")
IPID=Request.QueryString("IPID")
On Error Resume Next
sFieldsmissing = ""
If ValidateFields() Then
HO=request.form("HOME_OWNER")
HL=request.form("HOW_LONG_EMPLOYED")
MP=request.form("MONTHLY_HOUSE_PAYMENT")
TC=request.form("TIME_CURRENT_ADDRESS")
PIn=request.form("PERSONAL_INCOME")
CCA=request.form("CREDIT_CHECK_AUTHORIZED")
SSN= request.form("SOCIAL_1") &""& request.form("SOCIAL_2") &""& request.form("SOCIAL_3")
flag=0
flag1=0
NeedL="Yes"
if HO="" then flag=1
if HL="" then flag=1
if HL="00 Year" then flag=1
if MP="" then flag=1
if MP="Please Select" then flag=1
if TC="" then flag=1
if TC="Please Select" then flag=1
if PIn="" then flag=1
if PIn="Please Select" then flag=1
if CCA="" then flag=1
if SSN="" then flag1=1
if flag= 0 then
if flag1=1 then
LeadClass="Imperfect"
else
LeadClass="Perfect"
end if
else
LeadClass="Fair"
end if
if flag=1 then
NeedL = "No"
end if
Set conn=Server.CreateObject("ADODB.connection")
conn.open"dsn=MySQL_Car"
Set rs = Server.CreateObject("ADODB.Recordset")
sql="Select * From lead where FULL_NAME='"&AID&"' and LastName='"&RID&"' and ip_address='"&IPID&"'"
rs.Open sql,conn,1,3
rs("Vehicle") = request.form("Vehicle")
rs("MakeVehicle") = request.form("MakeVehicle")
rs("CarYear") = request.form("CarYear")
rs("LowPrice") = request.form("LowPrice")
rs("HighPrice") = request.form("HighPrice")
rs("HOME_OWNER") = request.form("HOME_OWNER")
rs("HOW_LONG_EMPLOYED") = request.form("HOW_LONG_EMPLOYED")
rs("MONTHLY_HOUSE_PAYMENT") = request.form("MONTHLY_HOUSE_PAYMENT")
rs("TIME_CURRENT_ADDRESS") = request.form("TIME_CURRENT_ADDRESS")
rs("PERSONAL_INCOME") = request.form("PERSONAL_INCOME")
rs("CREDIT_CHECK_AUTHORIZED") = request.form("CREDIT_CHECK_AUTHORIZED")
rs("SOCIAL_SECURITY") = request.form("SOCIAL_1") &""& request.form("SOCIAL_2") &""& request.form("SOCIAL_3")
rs("LeadClass")=LeadClass
rs("NeedLoan")=NeedL
rs.Update
rs.close
set rs = nothing
conn.close
set conn = nothing
'response.redirect ("http://www.autoloans-us.com/thank_you_for_your_car_loan_application.html")
response.redirect ("thank_you_car_loan_lasvegas.html")
'¹ URL ١ͧ
Else
BeginTable
Response.Write sFieldsMissing
EndTable
End If
Function ValidateFields()
If Request.Form("HOME_OWNER") = "" Then
sFieldsMissing = sFieldsMissing & "
Are you a home-owner?
"
End If
If Request.Form("HOW_LONG_EMPLOYED") = "00 Year" Then
sFieldsMissing = sFieldsMissing & "
How long have you been employed?
"
End If
If Request.Form("MONTHLY_HOUSE_PAYMENT") = "Please Select" Then
sFieldsMissing = sFieldsMissing & "
Monthly house payment ?
"
End If
If Request.Form("TIME_CURRENT_ADDRESS") = "Please Select" Then
sFieldsMissing = sFieldsMissing & "
Time at current address:
"
End If
If Request.Form("PERSONAL_INCOME") = "Please Select" Then
sFieldsMissing = sFieldsMissing & "
Please select your total monthly income:
"
End If
If Request.Form("CREDIT_CHECK_AUTHORIZED") = "" Then
sFieldsMissing = sFieldsMissing & "
We have helped thousands with less than perfect credit to get a car.In order to get you approved we will need to see a credit report.Are you willing to authorize a credit?
"
End If
If sFieldsMissing = "" Then
ValidateFields = TRUE
Else
ValidateFields = FALSE
End If
End Function
Function StripApostrophe(OldValue)
StripApostrophe = replace(oldvalue,"'","''")
End Function
Sub BeginTable
Response.Write ("Missing Data
There was a fundamental ERROR in your application and your application was not submitted. Use the back button and correct the items listed below.