|
|
Gästebuch Eintrag
<%
strConnection = "Driver={Microsoft Access Driver (*.mdb)};DBQ="
strConnection = strConnection & Server.MapPath("../fpdb/guestbook.mdb")
strConnection = strConnection & ";DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5;"
' korrekt nach Datum absteigend sortiert; first ten records
Const cstrFirstTenRecords = "SELECT TOP 10 IdField,Name,EmailAddress,Homepage,Browser,OperatingSystem,EntryDate,Comment from Guestbook ORDER BY IdField DESC"
' next ten records
Const cstrNextTenRecP1 = "SELECT TOP 10 IdField,Name,EmailAddress,Homepage,Browser,OperatingSystem,EntryDate,Comment from Guestbook WHERE IdField < "
Const cstrNextRecP2 = " ORDER BY IdField DESC"
' previous ten records; WRONG SORT ORDER INITIALLY!
Const cstrPrevTenRecP1 = "SELECT TOP 10 IdField,Name,EmailAddress,Homepage,Browser,OperatingSystem,EntryDate,Comment from Guestbook WHERE IdField > "
Const cstrPrevRecP2 = " ORDER BY IdField ASC"
strPageDirection = Trim(Request.QueryString("Page"))
If "" = strPageDirection Then strPageDirection = "Start"
nLastIndex = Trim(Request.QueryString("Index"))
If ("" = nLastIndex Or Not IsNumeric(nLastIndex)) Then strPageDirection = "Start"
Select Case strPageDirection
Case "Next"
strSQL = cstrNextTenRecP1 & nLastIndex & cstrNextRecP2
Case "Prev"
strSQL = cstrPrevTenRecP1 & nLastIndex & cstrPrevRecP2
bTopDown = True
Case Else
strSQL = cstrFirstTenRecords
End Select
Set conn = CreateObject("ADODB.Connection")
conn.Open strConnection
Set rs = CreateObject ("ADODB.Recordset")
rs.Open strSQL, conn
If Not rs.EOF and Not rs.BOF Then
avarRecords = rs.GetRows()
Else
bNoRecords = True
End If
rs.Close
' get summary information
rs.Open "SELECT * FROM qSummaries", conn
nTotalRecords = rs(0)
If nTotalRecords <> 0 Then
rs.MoveNext
nTotalMax = rs(0)
rs.MoveNext
nTotalMin = rs(0)
End If
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
strScriptName = Request.ServerVariables("SCRIPT_NAME")
If Not bNoRecords Then
nRecords = UBound(avarRecords,2)
If Not bTopDown Then
nPrevPaging = avarRecords(0,0)
nLastPaging = avarRecords(0,nRecords)
Else
nPrevPaging = avarRecords(0,nRecords)
nLastPaging = avarRecords(0,0)
End If
Response.Write ""
Response.Write "Anzahl Einträge: " & nTotalRecords
Response.Write " " & vbCrLf
WritePagingHeaders
If Not bTopDown Then
For intRecord = 0 To nRecords
WriteRecord avarRecords, intRecord
Next
Else
For intRecord = nRecords To 0 Step -1
WriteRecord avarRecords, intRecord
Next
End If
WritePagingHeaders
Response.Write " "
Else
Response.Write "Keine Eintragungen gefunden! "
End If ' bNoRecords
Sub WriteRecord(avarRecords, intRecord)
Response.Write ""
Response.Write "Name: " & avarRecords(1,intRecord) & "
"
Response.Write "eMail: "
If "" <> avarRecords(2,intRecord) Then
Response.Write ""
Response.Write avarRecords(2,intRecord) & ""
Else
Response.Write "keine Angaben"
End If
Response.Write "
"
Response.Write "Homepage: "
If "" <> avarRecords(3,intRecord) Then
Response.Write ""
Response.Write "http://" & avarRecords(3,intRecord) & ""
Else
Response.Write "keine Angaben"
End If
Response.Write "
"
Response.Write "Kommentar: " & Replace(avarRecords(7,intRecord),vbCrlf,"
") & "
"
Response.Write " | "
Response.Write avarRecords(5,intRecord) & " / " & avarRecords(4,intRecord)
Response.Write "
" & avarRecords(6,intRecord) & ""
Response.Write " | " & vbCrLf
Response.Write "
| " & vbCrlf
End Sub
Sub WritePagingHeaders()
%>
| <%
If nTotalMax > nPrevPaging Then
Response.Write "zurück"
Else
Response.Write "zurück"
End If
%> |
| |
">
anfang |
| |
<%
If nTotalMin < nLastPaging Then
Response.Write "vor"
Else
Response.Write "vor"
End If
%> |
|
<%
End Sub
%>
|
|
|
|
|
|
|
|
|