<%
Const winpath = "e:\ftp\pub\updates\windows\am2002\"
Const winpath3 = "e:\ftp\pub\updates\windows\am2003\"
Const thispath = "e:\http\am2002\"
Const macpath = "e:\ftp\pub\updates\powermac\am2002\"
Const projectspath = "e:\ftp\pub\projects\"
Const miscpath = "e:\ftp\pub\misc\"
Const DQ=""""
Const SQ="'"
Const ACTION = "a"
Const ACTION_DISPLAY = "d"
Const ACTION_RANK = "r"
Const ACTION_SEARCH = "s"
Const ACTIONURL = "http://www.bycx.com/steam/report.asp?a=d&number="
Const PRINTURL = "http://www.bycx.com/steam/print.asp?a=d&number="
Sub Drawnavarrows(dn, hn)
WriteLine ""
WriteLine " "
if( trim(dn) < trim(hn) ) then
WriteLine " |  "
end if
WriteLine " |
"
End Sub
Sub Search(cnDB)
Set rsData = Server.CreateObject("ADODB.Recordset")
rsData.Open "SELECT * from [minutes] WHERE [minutes].[body] LIKE " & SQ & "%" & Trim(Request("search")) & "%" & SQ, cnDB, adOpenDynamic, adLockOptimistic
' rsData.Open "SELECT * from [minutes] WHERE [minutes].[body] LIKE " & SQ & Trim(Request("search")) & SQ, cnDB, adOpenDynamic, adLockOptimistic
Do Until rsData.EOF
WriteLine "MARTINS MINUTES - " & rsData("date") & " #" & rsData("number") & "
"
WriteLine "" & rsData("title") & "
"
WriteLine "" & rsData("body") & "
"
rsData.MoveNext
Loop
rsData.Close
End Sub
'Sub DisplayMinute(cnDB)
' Set rsData = Server.CreateObject("ADODB.Recordset")
' rsData.Open "SELECT * from [minutes] WHERE [minutes].[number] =" & Trim(Request("number")), cnDB, adOpenDynamic, adLockOptimistic
' WriteLine " | "
' WriteLine "MARTINS MINUTES - " & rsData("date") & " #" & rsData("number") & "
"
' WriteLine "" & rsData("title") & "
"
' WriteLine "" & "" & rsData("body") & "
"
' WriteLine " | "
' rsData.Close
'End Sub
' & "margin: 0.3em; " _
' & "padding: 0.3em; " _
Sub DisplayReports(cnDB)
WriteLine ""
WriteLine ""
dim rsData 'As ADODB Recordset
dim rsDataPart 'As ADODB Recordset
dim sel ' As integer
dim lasttype ' As interger
dim hn, rank
if( Request(Action) = ACTION_RANK ) then
rank = TRUE
end if
Dim dn
dn = Trim(request("number"))
Set rsData = Server.CreateObject("ADODB.Recordset")
rsData.Open "SELECT * from [report] WHERE [report].[number] =" & dn, cnDB, adOpenDynamic, adLockOptimistic
WriteLine ""
WriteLine ""
if(NOT rsData.EOF) then
WriteLine "B Y C Xtra - " & " #" & rsData("number") & " - " & rsData("date") & "
"
WriteLine "" & rsData("title") & "
"
WriteLine rsData("body") & "
"
Else
WriteLine "B Y C Xtra # " & dn & " Can't Be Found"
end if
rsData.Close
WriteLine " |
"
End Sub
Function OpenDB(byRef FatalError)
Dim cnDB ' As ADODB.Connection
dim sourcestr ' As string
On Error Resume Next
FatalError = 0
sourcestr = server.MapPath("db/report.mdb")
Set cnDB = Server.CreateObject("ADODB.Connection")
cnDB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & sourcestr
cnDB.Open
If Err.Number <> 0 then
FatalError = 1
End If
Set OpenDB = cnDB
End Function
Sub CloseDB(cnDB)
cnDB.Close
Set cnDB = Nothing
End Sub
Sub WriteLine(strData)
Response.Write strData & vbCrLF
End Sub
Sub WriteComment(strData)
WriteLine ""
End Sub
'Call Main
'Sub Main
Dim cnDB 'As ADODB.Connection
Dim FatalError
Set cnDB = OpenDB(FatalError)
If FatalError then
WriteLine "Database Offline check back soon"
' Response.Redirect "OffLine.html"
' Exit Sub
End If
'End Sub
%>
<%
Select Case Request(Action)
Case ACTION_DISPLAY
DisplayReports cnDB
Case ACTION_SEARCH
DisplayReports cnDB
Case ACTION_CLEAR
DisplayReports cnDB
Case Else
DisplayReports cnDB
End Select
%>
For the latest weekly report, larger view of the above images or information about our excursion schedules visit us on the web @ www.BYCX.com