homeabout usmembership directorycalendarnewstown of orleans
  <% ' ms access open database Sub OpenMDB2(RecObject, SQLstatement) MDB_Conn = "DBQ=E:\Inetpub\Virtuals\townoforleans.com\Web\_database\chamber.mdb;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;UID=admin;UserCommitSync=Yes;" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open MDB_Conn, "admin", "FuBaR7" Set cmdTemp = Server.CreateObject("ADODB.Command"): Set RecObject = Server.CreateObject("ADODB.Recordset"): cmdTemp.CommandText = SQLstatement: cmdTemp.CommandType = 1 Set cmdTemp.ActiveConnection = Conn: RecObject.Open cmdTemp, , 1, 3: Set Conn = Nothing: Set CmdTemp = Nothing End Sub %>
 
<%= UCase(Find) %>

<% fHideNavBar = False fHideNumber = False fHideRequery = False fHideRule = False stQueryString = "" fEmptyRecordset = False fFirstPass = True fNeedRecordset = False fNoRecordset = False tBarAlignment = "Left" tHeaderName = "DataRangeHdr1" tPageSize = 0 tPagingMove = "" tRangeType = "Text" tRecordsProcessed = 0 tPrevAbsolutePage = 0 intCurPos = 0 intNewPos = 0 fSupportsBookmarks = True fMoveAbsolute = False If IsEmpty(Session("DataRangeHdr1_Recordset")) Then fNeedRecordset = True Else If Session("DataRangeHdr1_Recordset") Is Nothing Then fNeedRecordset = True Else Set DataRangeHdr1 = Session("DataRangeHdr1_Recordset") End If End If If fNeedRecordset Then Set DataConn = Server.CreateObject("ADODB.Connection") DataConn.ConnectionTimeout = Session("DataConn_ConnectionTimeout") DataConn.CommandTimeout = Session("DataConn_CommandTimeout") DataConn.Open Session("DataConn_ConnectionString"), Session("DataConn_RuntimeUserName"), Session("DataConn_RuntimePassword") Set cmdTemp = Server.CreateObject("ADODB.Command") Set DataRangeHdr1 = Server.CreateObject("ADODB.Recordset") cmdTemp.CommandText = "SELECT LISTING, OWNER_NAMES, ADDRESS, CITY, STATE_PROVINCE, POSTAL_CODE, CATEGORY1, CATEGORY2, CATEGORY3, CATEGORY4, CATEGORY5, EMAIL, WEB_SITE, DESCRIPTION, HOME_PHONE, WORK_PHONE, FAXNUMBER, TOLLFREE FROM LISTINGS WHERE (CATEGORY1 = '" & Find & "') OR (CATEGORY2 = '" & Find & "') OR (CATEGORY3 = '" & Find & "') OR (CATEGORY4 = '" & Find & "') OR (CATEGORY5 = '" & Find & "') ORDER BY LISTING" cmdTemp.CommandType = 1 Set cmdTemp.ActiveConnection = DataConn DataRangeHdr1.Open cmdTemp, , 2, 1 End If On Error Resume Next If DataRangeHdr1.BOF And DataRangeHdr1.EOF Then fEmptyRecordset = True On Error Goto 0 If Err Then fEmptyRecordset = True If Not IsEmpty(Session("DataRangeHdr1_Filter")) And Not fEmptyRecordset Then DataRangeHdr1.Filter = Session("DataRangeHdr1_Filter") If DataRangeHdr1.BOF And DataRangeHdr1.EOF Then fEmptyRecordset = True End If If fEmptyRecordset Then fHideNavBar = True fHideRule = True End If %> <% If DataRangeHdr1.EOF Then %>

Sorry...No Listings Have The Category " <% =Find %> ".

<% End If %> <% Do If fEmptyRecordset Then Exit Do If Not fFirstPass Then DataRangeHdr1.MoveNext Else fFirstPass = False End If If DataRangeHdr1.EOF Then Exit Do %> <% If DataRangeHdr1("DESCRIPTION") <> "" Then %> <% End If %> <% If DataRangeHdr1("OWNER_NAMES") <> "" Then %> <% End If %> <% If DataRangeHdr1("ADDRESS") <> "" Then %> <% End If %> <% If DataRangeHdr1("WORK_PHONE") <> "" Then %> <% End If %> <% If DataRangeHdr1("TOLLFREE") <> "" Then %> <% End If %> <% If DataRangeHdr1("FAXNUMBER") <> "" Then %> <% End If %> <% If DataRangeHdr1("WEB_SITE") <> "" Then %> <% End If %> <% If DataRangeHdr1("EMAIL") <> "" Then %> <% End If %>
<% If IsNull(DataRangeHdr1("WEB_SITE")) = False Then %> " target="new"><%= DataRangeHdr1("LISTING") %>
<% Else %> <%= DataRangeHdr1("LISTING") %>
<% End If %>

<% If IsNull(DataRangeHdr1("DESCRIPTION")) = False Then %> <%= DataRangeHdr1("DESCRIPTION") %>
<% End If %>
 
contact: <%= DataRangeHdr1("OWNER_NAMES") %>
address: <%= DataRangeHdr1("ADDRESS") %> <%= DataRangeHdr1("CITY") %> <%= DataRangeHdr1("STATE_PROVINCE") %> <%= DataRangeHdr1("POSTAL_CODE") %>
phone: <% If IsNull(DataRangeHdr1("WORK_PHONE")) = False Then %> <%= DataRangeHdr1("WORK_PHONE") %> <% End If %>
toll free: <% If IsNull(DataRangeHdr1("TOLLFREE")) = False Then %> <%= DataRangeHdr1("TOLLFREE") %> <% End If %>
fax: <% If IsNull(DataRangeHdr1("FAXNUMBER")) = False Then %> <%= DataRangeHdr1("FAXNUMBER") %> <% End If %>
web site: " target="new"><%= LCase(DataRangeHdr1("WEB_SITE")) %>
email: <% If IsNull(DataRangeHdr1("EMAIL")) = False Then %> "><%= DataRangeHdr1("EMAIL") %> <% End If %>
 
<% Loop If tRangeType = "Table" Then Response.Write "
" If tPageSize > 0 Then If Not fHideRule Then Response.Write "" If Not fHideNavBar Then %>

METHOD="POST"> " VALUE=" << "> " VALUE=" < "> " VALUE=" > "> <% If fSupportsBookmarks Then %> " VALUE=" >> "> <% End If %> <% If Not fHideRequery Then %> " VALUE=" Requery "> <% End If %>
<% If Not fHideNumber Then If tPageSize > 1 Then Response.Write "Page: " & Session(tHeaderName & "_AbsolutePage") & "" Else Response.Write "Record: " & Session(tHeaderName & "_AbsolutePage") & "" End If End If %>
<% End If End If %>

[an error occurred while processing this directive]

Town of Orleans
P.O. Box 231
LaFargeville, NY 13656
315.482.5253 Ext 3
 
 
   
   

VIEW THE
ORLEANS TOWNSHIP
 VISITOR'S GUIDE
ONLINE
CLICK HERE