CITY OF OAK RIDGE PROPERTY TAX RESULTS PAGE
<%
Dim searchStr, MyConn, RS, i
searchStr = Request.Form("strSearch")
Set MyConn=Server.CreateObject("ADODB.Connection")
MyConn.Open "Driver={SQL Server};" & _
"Server=orservi;" & _
"Database=TXD2KLIB;" & _
"Uid=sa;" & _
"Pwd=KearneyRidge"
SQL = "SELECT * FROM TAXBILL WHERE TName1 LIKE '%" & searchStr & "%' ORDER BY TName1"
Set RS = MyConn.Execute(SQL)
If searchStr <> "" Then
If RS.BOF AND RS.EOF Then
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 "