<% @Language=VBScript %>
CITY OF OAK RIDGE
<% Dim MyConn
Dim RS
Dim SQL
Set MyConn=Server.CreateObject("ADODB.Connection")
MyConn.Open "Driver={SQL Server}; Server=orservi; Database=propertytax; Uid=pptaxconnect; Pwd=oakridge"
SQL = "SELECT rtrim(TAXBILL.TRECTN) as TRECTN, rtrim(TAXBILL.TTXAMT) as TTXAMT, rtrim(TAXBILL.TMAPN) AS TMAPN, rtrim(TAXBILL.TMAPA) AS TMAPA, rtrim(TAXBILL.TPARCL) AS TPARCL, " & _
"rtrim(TAXBILL.TPICOD) AS TPICOD, rtrim(TAXBILL.TSPCIN) AS TSPCIN, rtrim(TAXMAST.THOUSE) AS THOUSE, rtrim(TAXMAST.THNOA) AS THNOA, rtrim(TAXMAST.TNSEW) AS TNSEW, " & _
"rtrim(TAXMAST.TSTNAM) AS TSTNAM FROM TAXMAST INNER JOIN TAXBILL ON TAXMAST.TMAPN = TAXBILL.TMAPN AND TAXMAST.TMAPA = TAXBILL.TMAPA " & _
"AND TAXMAST.TPARCL = TAXBILL.TPARCL AND TAXMAST.TPICOD = TAXBILL.TPICOD AND TAXMAST.TSPCIN = TAXBILL.TSPCIN " & _
"WHERE (TAXBILL.Ttaxyr = 2003) and (taxbill.trectn <> 0) and (taxbill.ttrsts <> 'b') and (taxbill.tpicod <> 'p') ORDER BY TAXMAST.TSTNAM, TAXMAST.TNSEW, TAXMAST.THOUSE, TAXMAST.THNOA"
Set RS = MyConn.Execute(SQL)
if rs.bof and rs.eof then
response.write "ERROR"
end if
response.write "| Receipt No. | Amount | Map No. | Map Alpha | Parcel | PI | SI | House No. | Apt. | Dir | Street Name |
|
"
While Not RS.EOF
Response.Write "| " & rs("trectn") & " | " & rs("ttxamt") & " | " & rs("tmapn") & " | " & rs("tmapa") & " | " & rs("tparcl") & " | " & rs("tpicod") & " | " & rs("tspcin") & " | " & rs("thouse") & " | " & rs("thnoa") & " | " & rs("tnsew") & " | " & rs("tstnam") & " |
"
RS.MoveNext
WEND
response.write "
"
RS.Close
MyConn.Close
Set RS = Nothing
Set MyConn = Nothing %>