|
OWNER NAME
|
ADDRESS
|
TAX YEAR
|
TAX AMOUNT
|
<%@Language=VBScript%>
<%
Dim searchStr, MyConn, RS, i
searchStr = Request.Form("strSearch")
Set MyConn=Server.CreateObject("ADODB.Connection")
MyConn.Open "Driver={SQL Server};" & _
"Server=orservi;" & _
"Database=PropertyTax;" & _
"Uid=pptaxconnect;" & _
"Pwd=oakridge"
SQL = "SELECT * FROM viewtaxinfo WHERE tname1 LIKE '%" & searchStr & "%' ORDER BY TNAME1,TTAXYR"
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 RS("TName1") & RS("TName2")
Response.Write " | "& RS("THOUSE" ) & RS("THNOA") & RS("TNSEW") & " " & RS("TSTNAM")
Response.Write " | " & RS("TTAXYR" )
Response.Write " | " & 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
%>
|
