<< Back
" end if ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' void dbOpenConnection () ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' sub dbOpenConnection () set conn = server.createobject("adodb.connection") if request.ServerVariables("SERVER_NAME") = "gs" then conn.open CUST_DSN, CUST_UID, CUST_PWD else conn.open "PROVIDER=SQLOLEDB;DATA SOURCE=" & CUST_SVR & ";UID=" & CUST_UID & ";PWD=" & CUST_PWD & ";DATABASE=" & CUST_DSN end if end sub ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' void dbCloseConnection () ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' sub dbCloseConnection () conn.close set conn = nothing end sub %> <% dbOpenConnection() %> <% '############################################################################## ' ' varcheck.inc.asp - include unit for checking all incoming variables. ' '############################################################################## dim area dim submit dim admin dim usedcarsearchid dim partsandserviceid dim meetourpeopleid dim maintenanceid dim fromvehicleyear dim tovehicleyear dim maxvehicleyear dim minvehicleyear dim vehiclemake dim vehiclemodel dim vehiclemileage dim vehiclesort dim makearray(1000) dim makecount ' Get incoming variables ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' area = request.queryString("area") ' Area Name submit = request.queryString("submit") ' Submit value to be passed from buttons pushed on certain forms, for security fromvehicleyear = Request.Form("fromvehicleyear") tovehicleyear = Request.Form("tovehicleyear") vehiclemake = Request.Form("vehiclemake") vehiclemodel = Request.Form("vehiclemodel") vehiclemileage = Request.Form("vehiclemileage") vehiclesort = Request.Form("vehiclesort") usedcarsearchid = request.queryString("usedcarsearchid") ' Full Listing ID partsandserviceid = request.queryString("partsandserviceid") ' Full Listing ID meetourpeopleid = request.queryString("meetourpeopleid") ' Full Listing ID maintenanceid = request.queryString("maintenanceid") ' Full Listing ID '----- Begin debugging code ------ if DEBUG_INCOMING then ' Output all incoming variables before validation response.write "area (before validation): " & area & "
" response.write "submit (before validation): " & submit & "
" response.write "----------------
" end if '----- End debugging code ------ ' Check area against array ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' dim checked checked = 0 ' Compare to public array of areas for i = 0 to uBound(AREAS) ' Check if area is from allowed scope if uCase(area) = uCase(AREAS(i)) then ' Set checked property to true checked = 1 end if next if checked = 0 then ' Reset area to default value area = AREAS(DEF_AREA) end if ' Check ID against numeric non-zero content ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' if isNumeric(usedcarsearchid) and not isNull(usedcarsearchid) then if usedcarsearchid < 1 then ' Reset property ID to default value usedcarsearchid = DEF_USEDCARS end if else ' Reset property ID to default value usedcarsearchid = DEF_USEDCARS end if ' Check ID against numeric non-zero content ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' if isNumeric(partsandserviceid) and not isNull(partsandserviceid) then if partsandserviceid < 1 then ' Reset property ID to default value partsandserviceid = DEF_PARTSANDSERVICE end if else ' Reset property ID to default value partsandserviceid = DEF_PARTSANDSERVICE end if ' Check ID against numeric non-zero content ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' if isNumeric(meetourpeopleid) and not isNull(meetourpeopleid) then if meetourpeopleid < 1 then ' Reset property ID to default value meetourpeopleid = DEF_MEETOURPEOPLE end if else ' Reset property ID to default value meetourpeopleid = DEF_MEETOURPEOPLE end if ' Check ID against numeric non-zero content ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' if isNumeric(maintenanceid) and not isNull(maintenanceid) then if maintenanceid < 1 then ' Reset property ID to default value maintenanceid = DEF_MEETOURPEOPLE end if else ' Reset property ID to default value maintenanceid = DEF_MEETOURPEOPLE end if ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Credit Application ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' dim formSalesperson dim formFirstname dim formLastname dim formMiddleinitial dim formAddress1 dim formAddress2 dim formCity dim formState dim formZip dim formHomephone dim formSsn dim formDateofbirth dim formEmployer dim formEmployeraddr1 dim formEmployeraddr2 dim formEmployercity dim formEmployerstate dim formEmployerzip dim formWorkphone dim formMonthlyincome dim formOnjobyears dim formOnjobmonths dim formAdditionalincome dim formEmail dim formResidence dim formLandlord dim formLandlordphone dim formLandlordpayment dim formTradein dim formTradeinyear dim formTradeinmake dim formTradeinmodel dim formTradeinpayoff dim formLender dim formLenderaddr1 dim formLenderaddr2 dim formLendercity dim formLenderstate dim formLenderzip dim formLenderphone dim formLenderaccountnum dim formPayoffbalance dim formPayoffdate dim formVehicletype dim formVehiclepreference dim formVehiclepurchasetimeframe dim formVehiclestocknumber dim formVehicleofferprice dim formJointapplication dim formCoapplicantname dim formCoapplicantssn dim formCoapplicantdob formSalesperson = Trim(request.form("Salesperson")) formFirstname = Trim(request.form("Firstname")) formLastname = Trim(request.form("Lastname")) formMiddleinitial = Trim(request.form("Middleinitial")) formAddress1 = Trim(request.form("Address1")) formAddress2 = Trim(request.form("Address2")) formCity = Trim(request.form("City")) formState = Trim(request.form("State")) formZip = Trim(request.form("Zip")) formHomephone = Trim(request.form("Homephone")) formSsn = Trim(request.form("Ssn")) formDateofbirth = Trim(request.form("Dateofbirth")) formEmployer = Trim(request.form("Employer")) formEmployeraddr1 = Trim(request.form("Employeraddr1")) formEmployeraddr2 = Trim(request.form("Employeraddr2")) formEmployercity = Trim(request.form("Employercity")) formEmployerstate = Trim(request.form("Employerstate")) formEmployerzip = Trim(request.form("Employerzip")) formWorkphone = Trim(request.form("Workphone")) formMonthlyincome = Trim(request.form("Monthlyincome")) formOnjobyears = Trim(request.form("Onjobyears")) formOnjobmonths = Trim(request.form("Onjobmonths")) formAdditionalincome = Trim(request.form("Additionalincome")) formEmail = Trim(request.form("Email")) formResidence = Trim(request.form("Residence")) formLandlord = Trim(request.form("Landlord")) formLandlordphone = Trim(request.form("Landlordphone")) formLandlordpayment = Trim(request.form("Landlordpayment")) formTradein = Trim(request.form("Tradein")) formTradeinyear = Trim(request.form("Tradeinyear")) formTradeinmake = Trim(request.form("Tradeinmake")) formTradeinmodel = Trim(request.form("Tradeinmodel")) formTradeinpayoff = Trim(request.form("Tradeinpayoff")) formLender = Trim(request.form("Lender")) formLenderaddr1 = Trim(request.form("Lenderaddr1")) formLenderaddr2 = Trim(request.form("Lenderaddr2")) formLendercity = Trim(request.form("Lendercity")) formLenderstate = Trim(request.form("Lenderstate")) formLenderzip = Trim(request.form("Lenderzip")) formLenderphone = Trim(request.form("Lenderphone")) formLenderaccountnum = Trim(request.form("Lenderaccountnum")) formPayoffbalance = Trim(request.form("Payoffbalance")) formPayoffdate = Trim(request.form("Payoffdate")) formVehicletype = Trim(request.form("Vehicletype")) formVehiclepreference = Trim(request.form("Vehiclepreference")) formVehiclepurchasetimeframe = Trim(request.form("Vehiclepurchasetimeframe")) formVehiclestocknumber = Trim(request.form("Vehiclestocknumber")) formVehicleofferprice = Trim(request.form("Vehicleofferprice")) formJointapplication = Trim(request.form("Jointapplication")) formCoapplicantname = Trim(request.form("Coapplicantname")) formCoapplicantssn = Trim(request.form("Coapplicantssn")) formCoapplicantdob = Trim(request.form("Coapplicantdob")) dim creditapperrors(30) dim creditapperrorscount creditapperrorscount = 0 'The following fields are error-checked as being required fields if formFirstname = "" then creditapperrors(creditapperrorscount) = "Personal - First Name" creditapperrorscount = creditapperrorscount + 1 end if if formLastname = "" then creditapperrors(creditapperrorscount) = "Personal - Last Name" creditapperrorscount = creditapperrorscount + 1 end if if formAddress1 = "" then creditapperrors(creditapperrorscount) = "Personal - Address" creditapperrorscount = creditapperrorscount + 1 end if if formCity = "" then creditapperrors(creditapperrorscount) = "Personal - City" creditapperrorscount = creditapperrorscount + 1 end if if formState = "" then creditapperrors(creditapperrorscount) = "Personal - State" creditapperrorscount = creditapperrorscount + 1 end if if formZip = "" then creditapperrors(creditapperrorscount) = "Personal - Zip" creditapperrorscount = creditapperrorscount + 1 end if if formHomephone = "" then creditapperrors(creditapperrorscount) = "Personal - Home Phone" creditapperrorscount = creditapperrorscount + 1 end if if formSsn = "" then creditapperrors(creditapperrorscount) = "Personal - Social Security Number" creditapperrorscount = creditapperrorscount + 1 end if if formDateofbirth = "" then creditapperrors(creditapperrorscount) = "Personal - Date of Birth" creditapperrorscount = creditapperrorscount + 1 end if if formEmployer = "" then creditapperrors(creditapperrorscount) = "Employer - Name" creditapperrorscount = creditapperrorscount + 1 end if if formEmployeraddr1 = "" then creditapperrors(creditapperrorscount) = "Employer - Address" creditapperrorscount = creditapperrorscount + 1 end if if formEmployercity = "" then creditapperrors(creditapperrorscount) = "Employer - City" creditapperrorscount = creditapperrorscount + 1 end if if formEmployerstate = "" then creditapperrors(creditapperrorscount) = "Employer - State" creditapperrorscount = creditapperrorscount + 1 end if if formEmployerzip = "" then creditapperrors(creditapperrorscount) = "Employer - Zip" creditapperrorscount = creditapperrorscount + 1 end if if formMonthlyincome = "" then creditapperrors(creditapperrorscount) = "Employment - Monthly Income" creditapperrorscount = creditapperrorscount + 1 end if if formOnjobyears = "" then creditapperrors(creditapperrorscount) = "Employment - Time on Job Years" creditapperrorscount = creditapperrorscount + 1 end if if formOnjobmonths = "" then creditapperrors(creditapperrorscount) = "Employment - Time on Job Months" creditapperrorscount = creditapperrorscount + 1 end if if formEmail = "" then creditapperrors(creditapperrorscount) = "Employment - e-Mail Address" creditapperrorscount = creditapperrorscount + 1 end if 'The following fields are checked for numerical values 'and if a non-required number field is left blank we need to write a 0 if formOnjobyears <> "" then if Not IsNumeric(formOnjobyears) then creditapperrors(creditapperrorscount) = "Employment - Time on Job Years (Must be a Number)" creditapperrorscount = creditapperrorscount + 1 end if end if if formOnjobmonths <> "" then if Not IsNumeric(formOnjobmonths) then creditapperrors(creditapperrorscount) = "Employment - Time on Job Months (Must be a Number)" creditapperrorscount = creditapperrorscount + 1 end if end if if formTradeinyear <> "" then if Not IsNumeric(formTradeinyear) then creditapperrors(creditapperrorscount) = "Trade-In - Year (Must be a Number)" creditapperrorscount = creditapperrorscount + 1 end if else formTradeinyear = "0" end if 'Check for valid Email address Dim atcount Dim emailloopcounter Dim emailerrorid emailerrorid = 0 If len(Trim(formEmail)) <> 0 then 'Check length (a@b.cc is the smallest possible email) If len(formEmail) < 6 Then emailerrorid = 2 'Check Format, at least one "@" ElseIf instr(formEmail,"@") = 0 Then emailerrorid = 2 'Check for at least one "." ElseIf instr(formEmail,".") = 0 Then emailerrorid = 2 'Check for no more than 7 characters after the last "." ElseIf len(formEmail) - instrrev(formEmail,".") > 7 Then emailerrorid = 2 'Check for at least 2 characters after the last "." ElseIf len(formEmail) - instrrev(formEmail,".") < 2 Then emailerrorid = 2 'Check for no "_" after the "@" ElseIf instr(formEmail,"_") <> 0 And instrrev(formEmail,"_") > instrrev(formEmail,"@") Then emailerrorid = 2 'Check for at least one character before the "@" ElseIf instr(formEmail,"@") = 1 Then emailerrorid = 2 Else 'Check for only one "@" atcount = 0 For emailloopcounter = 1 to len(formEmail) If mid(formEmail,emailloopcounter,1) = "@" Then atcount = atcount + 1 End If Next If atcount > 1 Then emailerrorid = 2 End If 'Check Each character for validity For emailloopcounter = 1 to len(formEmail) If Not IsNumeric(mid(formEmail,emailloopcounter,1)) And _ (lcase(mid(formEmail,emailloopcounter,1)) < "a" Or _ lcase(mid(formEmail,emailloopcounter,1)) > "z") And _ mid(formEmail,emailloopcounter,1) <> "_" And _ mid(formEmail,emailloopcounter,1) <> "." And _ mid(formEmail,emailloopcounter,1) <> "@" And _ mid(formEmail,emailloopcounter,1) <> "-" Then emailerrorid = 2 End If Next End If End If if emailerrorid <> 0 then creditapperrors(creditapperrorscount) = "Employment - e-Mail Address (Not a Valid Address, ie. user@domain.com)" creditapperrorscount = creditapperrorscount + 1 end if ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' string ReplaceText (string pattern, string origString, string replString) ' ' Replaces all found substrings with new string. Requres definition of ' string to be searched as pattern, string in which will be search performed ' as origString, and string to be replaced - replString. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Function ReplaceText (pattern, origString, replString) If Trim(origString) <> "" and Trim(replString) <> "" Then ' Response.Write "Trim(origString): " & Trim(origString) & "
" ' Response.Write "Trim(replString): " & Trim(replString) & "
" Dim regEx Set regEx = New RegExp ' Create regular expression regEx.Global = True regEx.Pattern = pattern ' Set pattern regEx.IgnoreCase = True ' Make case insensitive ReplaceText = regEx.Replace(origString, replString) ' Make replacement' End If End Function %> <% '############################################################################## ' ' inc.content.asp - include unit to extract data from database ' and to prepare it for design output layer. ' ' dbOpenConnection () - opens connection to database server ' dbCloseConnection () - closes opened connection to database server ' ' getUsedcarsearch() ' getUsedcarsearchlist() ' getUsedcarsearchfull(int id) ' ' writeCreditapplication() 'Writes the Credit App and adds to Networker ' sendCreditapplicationemail() ' ' getPartsandservicelist() ' getPartsandservicefull(int id) ' ' getMeetourpeoplelist() ' getMeetourpeoplefull(int id) ' '############################################################################## ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' getUsedcarsearch() ' ' Returns Used Car parameters for the Used Car search page ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' function getUsedcarsearch() dim sql dim result ' Select number of records sql = "SELECT COUNT(ID) AS num " _ & "FROM karpower" '----- Begin debugging code ------ if DEBUG_SQL then ' Output SQL statement response.write "getUsedcarsearch() [num]: " & sql & "
" response.write "----------------
" end if '----- End debugging code ------ ' Execute SQL statement set result = conn.execute(sql) ' Check if there are at least one found gNum = result("num") ' Save number of found records in global variable if gNum then ' Pull selected information for the Vehicle Year and Mileage sql = "SELECT MAX(vehicleyear) as MaxVehicleyear, MIN(vehicleyear) as MinVehicleyear " _ & "FROM karpower" '----- Begin debugging code ------ if DEBUG_SQL then ' Output SQL statement response.write "getUsedcarsearch(): " & sql & "
" response.write "----------------
" end if '----- End debugging code ------ ' Execute SQL statement set result = conn.execute(sql) ' Global Variable assignments maxvehicleyear = result("MaxVehicleyear") minvehicleyear = result("MinVehicleyear") ' Pull selected information for the Make sql = "SELECT make " _ & "FROM karpower ORDER BY make" '----- Begin debugging code ------ if DEBUG_SQL then ' Output SQL statement response.write "getUsedcarsearch(): " & sql & "
" response.write "----------------
" end if '----- End debugging code ------ ' Execute SQL statement set result = conn.execute(sql) makecount = 0 dim previousmake previousmake = result("make") dim currentmake result.movenext do while not result.eof currentmake = result("make") if Trim(previousmake) <> Trim(currentmake) then makearray(makecount) = Trim(previousmake) previousmake = currentmake makecount = makecount + 1 end if result.movenext loop makearray(makecount) = Trim(previousmake) end if end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' getUsedcarsearchlist() ' ' Returns the Used Car list of properties from the search page ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' function getUsedcarsearchlist() dim sql dim result gNum = 0 ' Select number of records sql = "SELECT COUNT(ID) AS num " _ & "FROM karpower WHERE ((vehicleyear >= " & fromvehicleyear & " AND vehicleyear <= " & tovehicleyear & ")" if vehiclemake <> "all_makes" then sql = sql & " AND make = '" & vehiclemake & "'" end if if Trim(vehiclemodel) <> "" then sql = sql & " AND model like '%" & vehiclemodel & "%'" end if if vehiclemileage <> "all_mileages" then if vehiclemileage = "0to20" then sql = sql & " AND (mileage >= 0 AND mileage <= 20000)" end if if vehiclemileage = "20to40" then sql = sql & " AND (mileage >= 20000 AND mileage <= 40000)" end if if vehiclemileage = "40to60" then sql = sql & " AND (mileage >= 40000 AND mileage <= 60000)" end if if vehiclemileage = "60to80" then sql = sql & " AND (mileage >= 60000 AND mileage <= 80000)" end if if vehiclemileage = "80to100" then sql = sql & " AND (mileage >= 80000 AND mileage <= 100000)" end if if vehiclemileage = "100to150" then sql = sql & " AND (mileage >= 100000 AND mileage <= 150000)" end if if vehiclemileage = "150to200" then sql = sql & " AND (mileage >= 150000 AND mileage <= 200000)" end if if vehiclemileage = "over200" then sql = sql & " AND (mileage >= 200000)" end if end if sql = sql & ")" ' response.write sql ' response.write "
----------------
" '----- Begin debugging code ------ if DEBUG_SQL then ' Output SQL statement response.write "getUsedcarsearchlist(): " & sql & "
" response.write "----------------
" else ' Execute SQL statement set result = conn.execute(sql) ' Check if there are at least one found gNum = result("num") ' Save number of found records in global variable end if '----- End debugging code ------ if gNum > 0 then ' Select number of records sql = "SELECT ID,stock#,vehicleyear,make,model,mileage,priceadjust,retail " _ & "FROM karpower WHERE ((vehicleyear >= " & fromvehicleyear & " AND vehicleyear <= " & tovehicleyear & ")" if vehiclemake <> "all_makes" then sql = sql & " AND make = '" & vehiclemake & "'" end if if Trim(vehiclemodel) <> "" then sql = sql & " AND model like '%" & vehiclemodel & "%'" end if if vehiclemileage <> "all_mileages" then if vehiclemileage = "0to20" then sql = sql & " AND (mileage >= 0 AND mileage <= 20000)" end if if vehiclemileage = "20to40" then sql = sql & " AND (mileage >= 20000 AND mileage <= 40000)" end if if vehiclemileage = "40to60" then sql = sql & " AND (mileage >= 40000 AND mileage <= 60000)" end if if vehiclemileage = "60to80" then sql = sql & " AND (mileage >= 60000 AND mileage <= 80000)" end if if vehiclemileage = "80to100" then sql = sql & " AND (mileage >= 80000 AND mileage <= 100000)" end if if vehiclemileage = "100to150" then sql = sql & " AND (mileage >= 100000 AND mileage <= 150000)" end if if vehiclemileage = "150to200" then sql = sql & " AND (mileage >= 150000 AND mileage <= 200000)" end if if vehiclemileage = "over200" then sql = sql & " AND (mileage >= 200000)" end if end if sql = sql & ") ORDER BY " & vehiclesort ' response.write sql ' Execute SQL statement set result = conn.execute(sql) set getUsedcarsearchlist = result else ' Return error code as no records were found set getUsedcarsearchlist = nothing end if end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' getUsedcarsearchfull(usedcarsearchid) ' ' Returns Used Car full listing ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' function getUsedcarsearchfull(usedcarsearchid) dim sql dim result ' Select number of records sql = "SELECT COUNT(ID) AS num " _ & "FROM karpower WHERE ID = " & usedcarsearchid '----- Begin debugging code ------ if DEBUG_SQL then ' Output SQL statement response.write "getUsedcarsearchfull() [num]: " & sql & "
" response.write "----------------
" end if '----- End debugging code ------ ' Execute SQL statement set result = conn.execute(sql) ' Check if there are at least one found gNum = result("num") ' Save number of found records in global variable if gNum then ' Pull selected event information sql = "SELECT stock#,stored,vehicleyear,make,model,engine,transmission," _ & "color,mileage,vin,priceadjust,retail,image," _ & "equipment1,equipment2,equipment3,equipment4,equipment5,equipment6,equipment7,equipment8,equipment9," _ & "equipment10,equipment11,equipment12,equipment13,equipment14,equipment15,equipment16,equipment17," _ & "equipment18,equipment19,equipment20,equipment21,equipment22,equipment23,equipment24 " _ & "FROM karpower " _ & "WHERE ID = " & usedcarsearchid '----- Begin debugging code ------ if DEBUG_SQL then ' Output SQL statement response.write "getUsedcarsearchfull(): " & sql & "
" response.write "----------------
" end if '----- End debugging code ------ ' Execute SQL statement set result = conn.execute(sql) set getUsedcarsearchfull = result else ' Return error code as no records were found set getUsedcarsearchfull = nothing end if end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' void writeCreditapplication() ' ' Saves Credit Application ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' sub writeCreditapplication() dim sql 'Prepare values to write to the database formSalesperson = ReplaceText("'", formSalesperson, "''") formFirstname = ReplaceText("'", formFirstname, "''") formLastname = ReplaceText("'", formLastname, "''") formMiddleinitial = ReplaceText("'", formMiddleinitial, "''") formAddress1 = ReplaceText("'", formAddress1, "''") formAddress2 = ReplaceText("'", formAddress2, "''") formCity = ReplaceText("'", formCity, "''") formState = ReplaceText("'", formState, "''") formZip = ReplaceText("'", formZip, "''") formHomephone = ReplaceText("'", formHomephone, "''") formSsn = ReplaceText("'", formSsn, "''") formDateofbirth = ReplaceText("'", formDateofbirth, "''") formEmployer = ReplaceText("'", formEmployer, "''") formEmployeraddr1 = ReplaceText("'", formEmployeraddr1, "''") formEmployeraddr2 = ReplaceText("'", formEmployeraddr2, "''") formEmployercity = ReplaceText("'", formEmployercity, "''") formEmployerstate = ReplaceText("'", formEmployerstate, "''") formEmployerzip = ReplaceText("'", formEmployerzip, "''") formWorkphone = ReplaceText("'", formWorkphone, "''") formMonthlyincome = ReplaceText("'", formMonthlyincome, "''") formOnjobyears = ReplaceText("'", formOnjobyears, "''") formOnjobmonths = ReplaceText("'", formOnjobmonths, "''") formAdditionalincome = ReplaceText("'", formAdditionalincome, "''") formEmail = ReplaceText("'", formEmail, "''") formResidence = ReplaceText("'", formResidence, "''") formLandlord = ReplaceText("'", formLandlord, "''") formLandlordphone = ReplaceText("'", formLandlordphone, "''") formLandlordpayment = ReplaceText("'", formLandlordpayment, "''") formTradein = ReplaceText("'", formTradein, "''") formTradeinyear = ReplaceText("'", formTradeinyear, "''") formTradeinmake = ReplaceText("'", formTradeinmake, "''") formTradeinmodel = ReplaceText("'", formTradeinmodel, "''") formTradeinpayoff = ReplaceText("'", formTradeinpayoff, "''") formLender = ReplaceText("'", formLender, "''") formLenderaddr1 = ReplaceText("'", formLenderaddr1, "''") formLenderaddr2 = ReplaceText("'", formLenderaddr2, "''") formLendercity = ReplaceText("'", formLendercity, "''") formLenderstate = ReplaceText("'", formLenderstate, "''") formLenderzip = ReplaceText("'", formLenderzip, "''") formLenderphone = ReplaceText("'", formLenderphone, "''") formLenderaccountnum = ReplaceText("'", formLenderaccountnum, "''") formPayoffbalance = ReplaceText("'", formPayoffbalance, "''") formPayoffdate = ReplaceText("'", formPayoffdate, "''") ' formVehicletype = ReplaceText("'", formVehicletype, "''") formVehiclepreference = ReplaceText("'", formVehiclepreference, "''") ' formVehiclepurchasetimeframe = ReplaceText("'", formVehiclepurchasetimeframe, "''") formVehiclestocknumber = ReplaceText("'", formVehiclestocknumber, "''") formVehicleofferprice = ReplaceText("'", formVehicleofferprice, "''") formJointapplication = ReplaceText("'", formJointapplication, "''") formCoapplicantname = ReplaceText("'", formCoapplicantname, "''") formCoapplicantssn = ReplaceText("'", formCoapplicantssn, "''") formCoapplicantdob = ReplaceText("'", formCoapplicantdob, "''") sql = "INSERT INTO creditapplication (" _ & "Salesperson, Firstname, Lastname, Middleinitial, Address1, Address2, " _ & "City, State, Zip, Homephone, Ssn, Dateofbirth, Employer, Employeraddr1, " _ & "Employeraddr2, Employercity, Employerstate, Employerzip, Workphone, " _ & "Monthlyincome, Onjobyears, Onjobmonths, Additionalincome, Email, " _ & "Residence, Landlord, Landlordphone, Landlordpayment, Tradein, " _ & "Tradeinyear, Tradeinmake, Tradeinmodel, Tradeinpayoff, Lender, " _ & "Lenderaddr1, Lenderaddr2, Lendercity, Lenderstate, Lenderzip, Lenderphone, " _ & "Lenderaccountnum, Payoffbalance, Payoffdate, Vehicletype, Vehiclepreference, " _ & "Vehiclepurchasetimeframe, Vehiclestocknumber, Vehicleofferprice, Jointapplication, " _ & "Coapplicantname, Coapplicantssn, Coapplicantdob, datesubmitted) VALUES (" _ & "'" & formSalesperson & "', " _ & "'" & formFirstname & "', " _ & "'" & formLastname & "', " _ & "'" & formMiddleinitial & "', " _ & "'" & formAddress1 & "', " _ & "'" & formAddress2 & "', " _ & "'" & formCity & "', " _ & "'" & formState & "', " _ & "'" & formZip & "', " _ & "'" & formHomephone & "', " _ & "'" & formSsn & "', " _ & "'" & formDateofbirth & "', " _ & "'" & formEmployer & "', " _ & "'" & formEmployeraddr1 & "', " _ & "'" & formEmployeraddr2 & "', " _ & "'" & formEmployercity & "', " _ & "'" & formEmployerstate & "', " _ & "'" & formEmployerzip & "', " _ & "'" & formWorkphone & "', " _ & "'" & formMonthlyincome & "', " _ & "" & formOnjobyears & ", " _ & "" & formOnjobmonths & ", " _ & "'" & formAdditionalincome & "', " _ & "'" & formEmail & "', " _ & "'" & formResidence & "', " _ & "'" & formLandlord & "', " _ & "'" & formLandlordphone & "', " _ & "'" & formLandlordpayment & "', " _ & "'" & formTradein & "', " _ & "" & formTradeinyear & ", " _ & "'" & formTradeinmake & "', " _ & "'" & formTradeinmodel & "', " _ & "'" & formTradeinpayoff & "', " _ & "'" & formLender & "', " _ & "'" & formLenderaddr1 & "', " _ & "'" & formLenderaddr2 & "', " _ & "'" & formLendercity & "', " _ & "'" & formLenderstate & "', " _ & "'" & formLenderzip & "', " _ & "'" & formLenderphone & "', " _ & "'" & formLenderaccountnum & "', " _ & "'" & formPayoffbalance & "', " _ & "'" & formPayoffdate & "', " _ & "'" & formVehicletype & "', " _ & "'" & formVehiclepreference & "', " _ & "'" & formVehiclepurchasetimeframe & "', " _ & "'" & formVehiclestocknumber & "', " _ & "'" & formVehicleofferprice & "', " _ & "'" & formJointapplication & "', " _ & "'" & formCoapplicantname & "', " _ & "'" & formCoapplicantssn & "', " _ & "'" & formCoapplicantdob & "', " _ & "'" & date & "'" _ & ")" ' response.write "sql: " & sql & "
" '----- Begin debugging code ------ if DEBUG_SQL then ' Output SQL statement response.write "writeCreditapplication(): " & sql & "
" response.write "----------------
" else ' Execute SQL statement conn.execute(sql) end if '----- End debugging code ------ dim dbcontent sql = "SELECT Email FROM networker_members WHERE Email='" & formEmail & "'" 'response.write "sql: " & sql set dbcontent = conn.execute(sql) if dbcontent.eof then sql="INSERT INTO networker_members(First_Name,Last_Name,Address,City,State,Zip," _ & "Phone,Email,Problem_Emailing,Newsletter,CreditApplication,Batch_number) VALUES ('" _ & formFirstname & "','" _ & formLastname & "','" _ & Trim(formAddress1 & " " & formAddress2) & "','" _ & formCity & "','" _ & formState & "','" _ & formZip & "','" _ & formHomephone & "','" _ & formEmail & "'," _ & "'no','yes','yes',0)" conn.execute(sql) else sql="UPDATE networker_members SET " _ & "CreditApplication = 'yes', " _ & "First_Name = '" & formFirstname & "', " _ & "Last_Name = '" & formLastname & "', " _ & "Address = '" & Trim(formAddress1 & " " & formAddress2) & "', " _ & "City = '" & formCity & "', " _ & "State = '" & formState & "', " _ & "Zip = '" & formZip & "', " _ & "Phone = '" & formHomephone & "' " _ & "WHERE Email = '" & formEmail & "'" conn.execute(sql) end if end sub ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' void sendCreditapplicationemail() ' ' Sends e-Mail concerning new Credit Application ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' sub sendCreditapplicationemail() dim mailBody dim mailer mailBody = "### New Credit Application: " & formFirstname & " " & formLastname & " ###" & vbcrlf _ & "____________________________________________________________" & vbcrlf & vbcrlf _ & " Contact information" & vbcrlf _ & "____________________________________________________________" & vbcrlf & vbcrlf if formSalesperson <> "" Then mailBody = mailBody & " Salesperson: " & formSalesperson & vbcrlf end if mailBody = mailBody & " First Name: " & formFirstname & vbcrlf _ & " Last Name: " & formLastname & vbcrlf _ & " Address 1: " & formAddress1 & vbcrlf _ & " Address 2: " & formAddress2 & vbcrlf _ & " City: " & formCity & vbcrlf _ & " State: " & formState & vbcrlf _ & " Zip: " & formZip & vbcrlf _ & " Phone: " & formHomephone & vbcrlf _ & " Email: " & formEmail & vbcrlf _ & "____________________________________________________________" & vbcrlf & vbcrlf _ & " Admin Login: http://www.fallonautomall.com/admin" & vbcrlf _ & "____________________________________________________________" Set mailer = Server.CreateObject ("CDO.Message") mailer.From = chr(34) & formFirstname & " " & formLastname & chr(34) & " <" & formEmail & ">" mailer.Bcc = """info""
----------------
" '----- Begin debugging code ------ if DEBUG_SQL then ' Output SQL statement response.write "getPartsandservicelist(): " & sql & "
" response.write "----------------
" else ' Execute SQL statement set result = conn.execute(sql) ' Check if there are at least one found gNum = result("num") ' Save number of found records in global variable end if '----- End debugging code ------ if gNum > 0 then ' Select number of records sql = "SELECT * " _ & "FROM employee WHERE employeelocation = 'partsandservice' ORDER BY priority" ' response.write sql ' Execute SQL statement set result = conn.execute(sql) set getPartsandservicelist = result else ' Return error code as no records were found set getPartsandservicelist = nothing end if end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' getPartsandservicefull(partsandserviceid) ' ' Returns employee full listing ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' function getPartsandservicefull(partsandserviceid) dim sql dim result ' Select number of records sql = "SELECT COUNT(ID) AS num " _ & "FROM employee WHERE ID = " & partsandserviceid '----- Begin debugging code ------ if DEBUG_SQL then ' Output SQL statement response.write "getPartsandservicefull() [num]: " & sql & "
" response.write "----------------
" end if '----- End debugging code ------ ' Execute SQL statement set result = conn.execute(sql) ' Check if there are at least one found gNum = result("num") ' Save number of found records in global variable if gNum then ' Pull selected event information sql = "SELECT * " _ & "FROM employee " _ & "WHERE ID = " & partsandserviceid '----- Begin debugging code ------ if DEBUG_SQL then ' Output SQL statement response.write "getPartsandservicefull(): " & sql & "
" response.write "----------------
" end if '----- End debugging code ------ ' Execute SQL statement set result = conn.execute(sql) set getPartsandservicefull = result else ' Return error code as no records were found set getPartsandservicefull = nothing end if end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' getMeetourpeoplelist() ' ' Returns the employee list from the search page ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' function getMeetourpeoplelist() dim sql dim result gNum = 0 ' Select number of records sql = "SELECT COUNT(ID) AS num " _ & "FROM employee WHERE employeelocation = 'meetourpeople'" ' response.write sql ' response.write "
----------------
" '----- Begin debugging code ------ if DEBUG_SQL then ' Output SQL statement response.write "getMeetourpeoplelist(): " & sql & "
" response.write "----------------
" else ' Execute SQL statement set result = conn.execute(sql) ' Check if there are at least one found gNum = result("num") ' Save number of found records in global variable end if '----- End debugging code ------ if gNum > 0 then ' Select number of records sql = "SELECT * " _ & "FROM employee WHERE employeelocation = 'meetourpeople' ORDER BY priority" ' response.write sql ' Execute SQL statement set result = conn.execute(sql) set getMeetourpeoplelist = result else ' Return error code as no records were found set getMeetourpeoplelist = nothing end if end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' getMeetourpeoplefull(meetourpeopleid) ' ' Returns employee full listing ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' function getMeetourpeoplefull(meetourpeopleid) dim sql dim result ' Select number of records sql = "SELECT COUNT(ID) AS num " _ & "FROM employee WHERE ID = " & meetourpeopleid '----- Begin debugging code ------ if DEBUG_SQL then ' Output SQL statement response.write "getMeetourpeoplefull() [num]: " & sql & "
" response.write "----------------
" end if '----- End debugging code ------ ' Execute SQL statement set result = conn.execute(sql) ' Check if there are at least one found gNum = result("num") ' Save number of found records in global variable if gNum then ' Pull selected event information sql = "SELECT * " _ & "FROM employee " _ & "WHERE ID = " & meetourpeopleid '----- Begin debugging code ------ if DEBUG_SQL then ' Output SQL statement response.write "getMeetourpeoplefull(): " & sql & "
" response.write "----------------
" end if '----- End debugging code ------ ' Execute SQL statement set result = conn.execute(sql) set getMeetourpeoplefull = result else ' Return error code as no records were found set getMeetourpeoplefull = nothing end if end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' getMaintenancelist() ' ' Returns the employee list from the search page ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' function getMaintenancelist() dim sql dim result gNum = 0 ' Select number of records sql = "SELECT COUNT(ID) AS num " _ & "FROM employee WHERE employeelocation = 'maintenance'" ' response.write sql ' response.write "
----------------
" '----- Begin debugging code ------ if DEBUG_SQL then ' Output SQL statement response.write "getMaintenancelist(): " & sql & "
" response.write "----------------
" else ' Execute SQL statement set result = conn.execute(sql) ' Check if there are at least one found gNum = result("num") ' Save number of found records in global variable end if '----- End debugging code ------ if gNum > 0 then ' Select number of records sql = "SELECT * " _ & "FROM employee WHERE employeelocation = 'maintenance' ORDER BY priority" ' response.write sql ' Execute SQL statement set result = conn.execute(sql) set getMaintenancelist = result else ' Return error code as no records were found set getMaintenancelist = nothing end if end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' getMaintenancefull(maintenanceid) ' ' Returns employee full listing ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' function getMaintenancefull(maintenanceid) dim sql dim result ' Select number of records sql = "SELECT COUNT(ID) AS num " _ & "FROM employee WHERE ID = " & maintenanceid '----- Begin debugging code ------ if DEBUG_SQL then ' Output SQL statement response.write "getMaintenancefull() [num]: " & sql & "
" response.write "----------------
" end if '----- End debugging code ------ ' Execute SQL statement set result = conn.execute(sql) ' Check if there are at least one found gNum = result("num") ' Save number of found records in global variable if gNum then ' Pull selected event information sql = "SELECT * " _ & "FROM employee " _ & "WHERE ID = " & maintenanceid '----- Begin debugging code ------ if DEBUG_SQL then ' Output SQL statement response.write "getMaintenancefull(): " & sql & "
" response.write "----------------
" end if '----- End debugging code ------ ' Execute SQL statement set result = conn.execute(sql) set getMaintenancefull = result else ' Return error code as no records were found set getMaintenancefull = nothing end if end function %> <% '############################################################################## ' ' inc.output.asp - include unit to output data to browser ' ' drawHeader() - draws the appropriate header image for the page ' ' drawUsedcarsearch() ' drawUsedcarsearchlist() ' drawUsedcarsearchfull() ' ' drawCreditapplication() ' ' drawPartsandservicelist() ' drawPartsandservicefull() ' ' drawMeetourpeoplelist() ' drawMeetourpeoplefull() ' '############################################################################## ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' void drawHeader() ' ' Selects the appropriate header image for the page ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' sub drawHeader() '------------------------------------------------------- '-----------------------Begin HTML---------------------- If area = "usedcarsearch" or area = "usedcarsearchlist" or area = "usedcarsearchfull" Then %>
<%
ElseIf area = "creditapplication" or area = "creditapplicationsubmission" Then %>
<%
ElseIf area = "partsandservice" or area = "partsandservicefull" Then %>
<%
ElseIf area = "meetourpeople" or area = "meetourpeoplefull" Then %>
<%
ElseIf area = "maintenance" or area = "maintenancefull" Then %>
<% End If
'---------------------END HTML--------------------------
'-------------------------------------------------------
end sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' void drawUsedcarsearch()
'
' Outputs the search form for Used Cars
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
sub drawUsedcarsearch()
'-------------------------------------------------------
'-----------------------Begin HTML----------------------
%>
Welcome to the Fallon Auto Mall Pre-Owned Auto Search Engine.
(Note: All Fields are optional. If left unchanged all autos will be shown.)
|
|||||||||||||||||||||||||||||||||
|
||||||||||||
<% '---------------------END HTML------------------------ '------------------------------------------------------- end sub ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' void drawCreditapplication(errorID) ' ' Display the Credit Application Form ' ' errorID Codes: ' 0 - Initial Credit Application ' 1 - Successful submission of the Credit Application ' 2 - Failed submission of the Credit Application ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' sub drawCreditapplication(errorID) '------------------------------------------------------- '-----------------------Begin HTML---------------------- %>
Information submitted is secured by Microsoft SSL encryption and GeoTrust Inc.
Thank you for submitting your Credit Application to the Fallon Auto Mall.
Please complete one inquiry form for each person you wish to have listed on the Title of your vehicle.
An Error has occurred. Please check the following to be sure each field has been
filled in correctly:
|
|
|||||||||
|
|
|||||||||
|
|
|
 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|||||||||
 |
|
||||||||||||||||||||||
 |
|
 |
|
||||||||||||||||||||
|
|
||||||||||||||||||||||
 |
|
||||||||||||||||||||||
 |
" target="_blank"
ONMOUSEOVER="changeImages('Top_18', 'images/Top_18-over.gif'); return true;"
ONMOUSEOUT="changeImages('Top_18', 'images/Top_18.gif'); return true;"> |
 |
|
||||||||||||||||||||
 |
 |
 |
 |
 |
|
|||||||||||||||||||||||||||||||||||||||||||||
 |
 |
|||
|
||||
