<%
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
Set rsData = Server.CreateObject("ADODB.Recordset")
' rsData.Open "SELECT * FROM [fixes] ORDER BY [fixes].[version]
' WHERE [platform] = " & SQ & platform & SQ ,cnDB, adOpenDynamic, readonly
if( Trim(Request("search")) = "" ) then
rsData.Open "SELECT * FROM [report] ORDER BY [report].[number] DESC",cnDB, adOpenDynamic, readonly
searching = FALSE
else
rsData.Open "SELECT * from [report] WHERE [report].[body] LIKE " & SQ & "%" & Trim(Request("search")) & "%" & SQ & " ORDER BY [report].[number] DESC", cnDB, adOpenDynamic, adLockOptimistic
searching = TRUE
end if
WriteLine "| "
WriteLine "  "
WriteLine" "
WriteLine " "
%>
<%
WriteLine ""
' WriteLine "Tune in regularly for the latest news and progress reports "
WriteLine ""
WriteLine "
|
"
WriteLine""
WriteLine"Report Index
"
If( searching = TRUE ) then
WriteLine "Reports containing: " & SQ & Request("search") & SQ & "
"
end if
Do Until rsData.EOF
if( rsData("body") <> "" ) then
if( searching = TRUE ) then
WriteLine " #" & rsData("number") & " " & rsData("title") & " " & rsData("Date") & ""
else
WriteLine " #" & rsData("number") & " " & rsData("title") & " " & rsData("Date") & ""
end if
if( trim(request("number")) = trim(rsData("number"))) then
WriteLine ""
end if
if ( rank = TRUE ) then
WriteLine rsData("Views")
end if
WriteLine "
"
' WriteLine "MARTINS MINUTES - " & rsData("date") & " #" & rsData("number") & "
"
' WriteLine "" & rsData("title") & "
"
' WriteLine "" & rsData("body") & "
"
if rsData("number") > hn then
hn = rsData("number")
end if
end if
rsData.movenext
Loop
rsData.Close
WriteLine "
"
WriteLine ""
WriteLine ""
WriteLine "
"
WriteLine "#16 Detailed Roster Info
"
WriteLine "'Loco Shop Cam'
"
WriteLine "BYCX Home Page
"
' WriteLine "Locomotive TimeLine
"
WriteLine "
Hint: Click on the images to open a larger view."
WriteLine "
We are seeking the following donation items to help complete this project:
"
WriteLine "20' or 40' Shipping container for tool and supply storage"
WriteLine "
Email Will Pickering for more information."
WriteLine(" | ")
Dim dn
dn = Trim(request("number"))
if( dn = "" ) then
dn = hn
end if
Set rsData = Server.CreateObject("ADODB.Recordset")
if( dn > 0 ) then
rsData.Open "SELECT * from [report] WHERE [report].[number] =" & dn, cnDB, adOpenDynamic, adLockOptimistic
' WriteLine " | "
WriteLine ""
WriteLine "| "
if (trim(dn) > 1 ) then
WriteLine ""
end if
if( trim(dn) < trim(hn) ) then
WriteLine " | "
end if
WriteLine " |
"
if(NOT rsData.EOF) then
WriteLine "B Y C Xtra - " & " #" & rsData("number") & " - " & rsData("date") & "
"
WriteLine "" & rsData("title") & "
"
WriteLine rsData("body") & "
"
WriteLine "Printer Friendly Version"
if ( rank = FALSE ) then
rsData("views") = rsData("views") + 1
end if
Else
WriteLine "B Y C Xtra # " & dn & " Can't Be Found"
end if
WriteLine "| "
if (trim(dn) > 1 ) then
WriteLine ""
end if
if( trim(dn) < trim(hn) ) then
WriteLine " | "
end if
WriteLine " |
"
WriteLine " |
"
rsData.Update
rsData.Close
Else
WriteLine "Search Item Not Found
Try another search or Press Clear | "
end if
WriteLine ""
End Sub
Sub DisplayFileDate(path)
Dim fs, f
set fs = CreateObject("Scripting.FileSystemObject")
found = fs.FileExists(path)
if( found ) then
set f = fs.GetFile(path)
Response.Write ""
Response.Write f.DateLastModified & " "
if( DateDiff("d", f.DateLastModified, Date) <= 7 ) then
Response.Write " *NEW*"
end if
Response.Write ""
' Response.Write f.Size
else
Response.Write "Offline"
end if
End Sub
Sub DisplayFileSize(path)
Dim fs, f
set fs = CreateObject("Scripting.FileSystemObject")
found = fs.FileExists(path)
if( found ) then
set f = fs.GetFile(path)
Response.Write ""
Response.Write FormatNumber(f.Size / 1000000,1) & "Meg"
Response.Write ""
' Response.Write f.Size
else
Response.Write "Offline"
end if
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
%>
