<%@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 TAXMASTandAddressMaster WHERE TMapN = '" & searchStr & "' AND TMapA = '" & searchalpha & "' AND TParcl = '" & searchparcel & "' ORDER BY TMAPN"
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 "
YOUR NEW TAX MAP AND PARCEL INFORMATION IS:
"
Response.Write "----------------------------------------------------------------------------------------
"
Response.Write RS("HouseNumber") & ""
Response.Write RS("HouseNumberAlpha") & ""
Response.Write RS("StreetNSEW") & ""
Response.Write RS("StreetName") & "
"
Response.Write "Old Tax Map: " & RS("TMAPN" ) & RS("TMAPA")
Response.Write " " & "Tax Parcel: " & RS("TPARCL") & "
"
Response.Write "New Tax Map: " & RS("NewMap" )
Response.Write " " & "New Tax Group: " & RS("NewGroup") & " "
Response.Write "New Tax Parcel: " & RS("NewParcel") & "
----------------------------------------------------------------------------------------
"
RS.MoveNext
WEND
End If
Else
Response.Write "No Search String Entered."
End IF
RS.Close
MyConn.Close
Set RS = Nothing
Set MyConn = Nothing
%>