<%@Language=VBScript%> <% Dim searchStr, MyConn, RS, i searchStr = Request.Form("strSearch") searchalpha = Request.Form ("alphaSearch") searchparcel = Request.Form ("ParcelSearch") searchTxYr = Request.Form("txyrSearch") Set MyConn=Server.CreateObject("ADODB.Connection") MyConn.Open "Driver={SQL Server};" & _ "Server=orservi;" & _ "Database=TXD2KLIB;" & _ "Uid=pptaxconnect;" & _ "Pwd=oakridge" SQL = "SELECT * FROM view2002 WHERE TMapN = '" & searchStr & "' AND TMapA = '" & searchalpha & "' AND TParcl = '" & searchparcel & "' ORDER BY TName1" Set RS = MyConn.Execute(SQL) If searchStr <> "" Then If RS.BOF AND RS.EOF Then Response.Write " No Records Found." Else While Not RS.EOF Response.Write "

" & "" Response.Write " TAX NOTICE    TAX YEAR    RETAIN THIS PORTION RECEIPT NO. " & RS("ttaxyr") & " CHECK SERVES AS RECEIPT " & RS("trectn") & " DIST MAP PARCEL P/I S. INT. CI. CO. " & RS("tdistr") & " " & RS("tmapn") & " " & RS("tparcl") & " " & RS("tpicod") & " " & RS("tpicod") & " " & RS("trectn") & " " & "" Response.Write " PROPERTY ADDRESS " & "" Response.Write " " & RS("thouse") & "" & RS("thnoa") & "" & RS("tnsew") & "" & RS("tstnam") & " " & "" Response.Write " CLASSIFICATION ACRES " & RS("tacres") & " TAX RATE " & RS("ttxrat") & " " & "" Response.Write "     RECORDED OWNER AS OF:               PROPERTY TAX INFORMATION     100% LAND VALUE     100% IMPMT VALUE     PER. PROP. VALUE     TOTAL PROP. VALUE     ASSESSMENT     AT     TOTAL DUE:    " & RS("ttxamt") & "     NOTICE: Property Owners with escrow accounts click     HERE for important additional information.

PLEASE REPORT       CASHIER'S      CORRECTIONS TO          STUB   THE BUSINESS OFFICE         DIST   " & RS("tdistr") & " MAP " & RS("tmapn") & " PARCEL " & RS("tparcl") & " P/I S. INT.    " & RS("tname1") & " " & RS("tname2") & "    " & RS("tstadr") & "    " & RS("tcsadr") & "    MAKE YOUR CHECK PAYABLE TO CITY OF OAK RIDGE    YOUR CHECK IS YOUR RECEIPT    CHECKS, DRAFTS, AND MONEY ORDERS ARE    ACCEPTED SUBJECT TO COLLECTION ONLY    SUBMIT ONLY THIS PORTION WITH CHECK    SUBMIT ENTIRE BILL WHEN PAYING BY CASH    PAYMENT DUE BY JULY 31    A 5% PENALTY ACCRUES AUGUST 1    YEAR   " & RS("ttaxyr") & "    RECEIPT    TAX AMOUNT   " & RS("ttxamt") & "

" & "" RS.MoveNext WEND End If Else Response.Write "No Search String Entered." End IF RS.Close MyConn.Close Set RS = Nothing Set MyConn = Nothing %>