<%@ LANGUAGE="VBScript" %> <% ' Turn on page buffering Response.Buffer = True ' Turn On Error Handling On Error Resume Next %> <% if request.form("btSubmit")>"" then DIM rs Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "agreement", objConn, , adLockOptimistic, adCmdTable rs.AddNew rs("FirstName")=request.form("FirstName") rs("DOB")=request.form("DOB") rs("MaritalStatus")=request.form("MaritalStatus") rs("Occupant1")=request.form("Occupant1") rs("Occupant2")=request.form("Occupant2") rs("Occupant3")=request.form("Occupant3") rs("Occupant4")=request.form("Occupant4") rs("Occupant5")=request.form("Occupant5") rs("pet_age1")=request.form("pet_age1") rs("pet3")=request.form("pet3") rs("year1")=request.form("year1") rs("color2")=request.form("color2") rs("plate2")=request.form("plate2") rs("supervisor1")=request.form("supervisor1") rs("supervisor2")=request.form("supervisor2") rs("car_payment")=request.form("car_payment") rs("bank")=request.form("bank") rs("emergency1")=request.form("emergency1") rs("emergency_phone1a")=request.form("emergency_phone1a") rs("emergency_phone1b")=request.form("emergency_phone1b") rs("emergency_relation1")=request.form("emergency_relation1") rs("emergency_addr1a")=request.form("emergency_addr1a") rs("emergency_addr1b")=request.form("emergency_addr1b") rs("emergency2")=request.form("emergency2") rs("emergency_phone2a")=request.form("emergency_phone2a") rs("emergency_phone2b")=request.form("emergency_phone2b") rs("emergency_relation2")=request.form("emergency_relation2") rs("emergency_addr2a")=request.form("emergency_addr2a") rs("emergency_addr2b")=request.form("emergency_addr2b") rs("sued_for_bills")=request.form("sued_for_bills") rs("felony")=request.form("felony") rs("signature")=request.form("signature") rs("signature_date")=request.form("signature_date") rs("MiddleName")=request.form("MiddleName") rs("rentAmount")=request.form("rentAmount") rs("rentAmount2")=request.form("rentAmount2") rs("rentAmount3")=request.form("rentAmount3") rs("age2")=request.form("age2") rs("pet_age3")=request.form("pet_age3") rs("make1")=request.form("make1") rs("model1")=request.form("model1") rs("cc2")=request.form("cc2") rs("pmt")=request.form("pmt") rs("acct")=request.form("acct") rs("LastName")=request.form("LastName") rs("rentuptodate")=request.form("rentuptodate") rs("rentuptodate2")=request.form("rentuptodate2") rs("length3")=request.form("length3") rs("rentuptodate3")=request.form("rentuptodate3") rs("breed3")=request.form("breed3") rs("years2")=request.form("years2") rs("current_income1")=request.form("current_income1") rs("current_income2")=request.form("current_income2") rs("current_income3")=request.form("current_income3") rs("car_loan_lienholder")=request.form("car_loan_lienholder") rs("cc_creditor1")=request.form("cc_creditor1") rs("cc_creditor2")=request.form("cc_creditor2") rs("cc3")=request.form("cc3") rs("cc_creditor3")=request.form("cc_creditor3") rs("other_payment")=request.form("other_payment") rs("bankruptcy")=request.form("bankruptcy") rs("broken_lease")=request.form("broken_lease") rs("SS")=request.form("SS") rs("citystatezip")=request.form("citystatezip") rs("exitReason")=request.form("exitReason") rs("lastCityStateZip")=request.form("lastCityStateZip") rs("exitReason2")=request.form("exitReason2") rs("lastCityStateZip2")=request.form("lastCityStateZip2") rs("exitReason3")=request.form("exitReason3") rs("age5")=request.form("age5") rs("breed1")=request.form("breed1") rs("model2")=request.form("model2") rs("source3")=request.form("source3") rs("cc_payment1")=request.form("cc_payment1") rs("cc_payment2")=request.form("cc_payment2") rs("cc_payment3")=request.form("cc_payment3") rs("balance")=request.form("balance") rs("DL")=request.form("DL") rs("WPhone")=request.form("WPhone") rs("email")=request.form("email") rs("pet2")=request.form("pet2") rs("pet_age2")=request.form("pet_age2") rs("emp_addr1a")=request.form("emp_addr1a") rs("emp_addr1b")=request.form("emp_addr1b") rs("emp_addr2a")=request.form("emp_addr2a") rs("emp_addr2b")=request.form("emp_addr2b") rs("proof3")=request.form("proof3") rs("court")=request.form("court") rs("damage")=request.form("damage") rs("deposit_available")=request.form("deposit_available") rs("DLState")=request.form("DLState") rs("presentLandlord")=request.form("presentLandlord") rs("occupation1")=request.form("occupation1") rs("age1")=request.form("age1") rs("occupation2")=request.form("occupation2") rs("occupation3")=request.form("occupation3") rs("occupation4")=request.form("occupation4") rs("occupation5")=request.form("occupation5") rs("phone1")=request.form("phone1") rs("source2")=request.form("source2") rs("HPhone")=request.form("HPhone") rs("pet1")=request.form("pet1") rs("breed2")=request.form("breed2") rs("years1")=request.form("years1") rs("ext2")=request.form("ext2") rs("source1")=request.form("source1") rs("other_debt")=request.form("other_debt") rs("CPhone")=request.form("CPhone") rs("CurrentAddress")=request.form("CurrentAddress") rs("lastLandLord")=request.form("lastLandLord") rs("lastLandLord2")=request.form("lastLandLord2") rs("age4")=request.form("age4") rs("state1")=request.form("state1") rs("year2")=request.form("year2") rs("phone2")=request.form("phone2") rs("cc1")=request.form("cc1") rs("cc_balance1")=request.form("cc_balance1") rs("cc_balance2")=request.form("cc_balance2") rs("cc_balance3")=request.form("cc_balance3") rs("other_balance")=request.form("other_balance") rs("notes")=request.form("notes") rs("LandlordPhone1")=request.form("LandlordPhone1") rs("landlordPhone2")=request.form("landlordPhone2") rs("length2")=request.form("length2") rs("landlordPhone3")=request.form("landlordPhone3") rs("relationship1")=request.form("relationship1") rs("relationship2")=request.form("relationship2") rs("relationship3")=request.form("relationship3") rs("relationship4")=request.form("relationship4") rs("relationship5")=request.form("relationship5") rs("color1")=request.form("color1") rs("plate1")=request.form("plate1") rs("make2")=request.form("make2") rs("state2")=request.form("state2") rs("job_desc1")=request.form("job_desc1") rs("hours_week1")=request.form("hours_week1") rs("ext1")=request.form("ext1") rs("job_desc2")=request.form("job_desc2") rs("hours_week2")=request.form("hours_week2") rs("propertyID")=request.form("propertyID") rs("length")=request.form("length") rs("indoor_outdoor1")=request.form("indoor_outdoor1") rs("indoor_outdoor2")=request.form("indoor_outdoor2") rs("indoor_outdoor3")=request.form("indoor_outdoor3") rs("employer1")=request.form("employer1") rs("employer2")=request.form("employer2") rs("proof2")=request.form("proof2") rs("car_balance")=request.form("car_balance") rs("car_creditor")=request.form("car_creditor") rs("lastAddress")=request.form("lastAddress") rs("lastAddress2")=request.form("lastAddress2") rs("age3")=request.form("age3") rs("proof1")=request.form("proof1") rs("other_creditor")=request.form("other_creditor") rs("personal_ref1")=request.form("personal_ref1") rs("personal_phone1a")=request.form("personal_phone1a") rs("personal_phone1b")=request.form("personal_phone1b") rs("personal_relation1")=request.form("personal_relation1") rs("personal_addr1a")=request.form("personal_addr1a") rs("personal_addr1b")=request.form("personal_addr1b") rs("personal_ref2")=request.form("personal_ref2") rs("personal_phone2a")=request.form("personal_phone2a") rs("personal_phone2b")=request.form("personal_phone2b") rs("personal_relation2")=request.form("personal_relation2") rs("personal_addr2a")=request.form("personal_addr2a") rs("personal_addr2b")=request.form("personal_addr2b") rs("locked_out")=request.form("locked_out") rs.Update 'get new id set ors=objConn.execute("select * from agreement order by ID desc") newid=ors("ID") end if 'send to Todd body="

You have a new rental application

" body=body & "

View it at http://www.kabien.com/printapp.asp?ID=" & newid Set mailer = Server.CreateObject("SoftArtisans.SMTPMail") strVer = Mailer.Version mailer.RemoteHost ="localhost" mailer.FromAddress = Request.form("email") mailer.AddRecipient "", "tkabes@sanantonioweddings.com" mailer.AddbCC "", "mel@mdparish.com" mailer.contenttype = "text/html" mailer.HTMLText=body mailer.Subject = "New Rental Application" mailer.sendmail %> <% ' Error Handler If Err.Number <> 0 Then ' Clear response buffer Response.Clear ' Display Error Message to user %> An error occurred in the execution of this ASP page
Please report the following information to the support desk

Page Error Object
Error Number <%= Err.Number %>
Error Description <%= Err.Description %>
Source <%= Err.Source %>
LineNumber <%= Err.Line %>
<% End If %>