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