|
<%
Dim searchstr2, MyConn2, rs2, propertyid
searchStr2 = request.querystring ("propertyid")
Set MyConn2=Server.CreateObject("ADODB.Connection")
MyConn2.Open "Driver={SQL Server};" & _
"Server=orservi;" & _
"Database=PropertyTax;" & _
"Uid=pptaxconnect;" & _
"Pwd=oakridge"
SQL = "SELECT * FROM viewtaxinfo WHERE tname1 + tname2 LIKE '%" & searchStr2 & "%' ORDER BY Tname1,TTAXYR DESC"
set rs2 = myconn2.execute(sql)
If searchStr2 <> "" Then
If rs2.BOF AND rs2.EOF Then
Response.Write " No Records Found."
Else
Response.Write "
Owner Name:" & rs2("TName1") & rs2("TName2") & "
"
Response.Write "Address:" & rs2("THOUSE") & rs2("THNOA") & rs2("TNSEW") & " " & rs2("TSTNAM") & "
"
Response.Write "Tax Year:" & rs2("TTAXYR") & " " & "Tax Receipt No:" & rs2("TRECTN") & "
"
Response.Write "Original Tax Amount:$" & rs2("TTXAMT") & "
"
Response.Write "Penalty Amount Due:$" & rs2("TTXPEN") & " " & "Total Balance Due:$" & rs2("TTXBAL") & "
"
Response.Write "Old Tax Map/Parcel:" & rs2("TMAPN") & rs2("TMAPA") & " " & rs2("TPARCL") & " " & "
"
Response.Write "New Tax Map:" & rs2("ControlMapNumber") & rs2("ControlMapAlpha") & " " & rs2("Group") & rs2("Parcel") & " " & "PI Code:" & rs2("TPICOD") & " " & "SI Code:" & " " & rs2("TSPCIN") & "
"
Response.Write "Deed Book:" & rs2("DeedBook1") & " " & "Page No." & rs2("DeedPage1") & "
"
Response.Write "Deeded Acres:" & rs2("DeededAcres") & " " & "Dimensions:" & rs2("Dimensions1") & "
"
Response.Write "GIS Link:" & rs2("GISLink") & "
"
End If
Else
Response.Write "No Search String Entered."
End IF
rs2.Close
MyConn2.Close
Set rs2 = Nothing
Set MyConn = Nothing
%>
|
