CITY OF OAK RIDGE PROPERTY TAX RESULTS PAGE

<%@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 "
" & RS("TName1") & "" Response.Write RS("TName2") & "
" Response.Write "Tax Map: " & RS("TMAPN" ) & RS("TMAPA") Response.Write " " & "Tax Parcel: " & RS("TPARCL") & "
" Response.Write "Tax Year: " & RS("TTAXYR" ) Response.Write " " & "Tax Amount: " & RS("TTXAMT") & " " Response.Write " Tax Balance: " & RS("TTXBAL") & "
----------------------------------------------------------------------------------------
" RS.MoveNext WEND End If Else Response.Write "No Search String Entered." End IF RS.Close MyConn.Close Set RS = Nothing Set MyConn = Nothing %>