<%
Response.End
End If
ACTION = Request.Querystring("ACTION")
PAGE = CInt(Request.Querystring("PAGE"))
recCount = CInt(Request.Querystring("recCount"))
If recCount = "" Then
recCount = "0"
End If
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "select ID, Name, Email, IP, Homepage, Date, Entry, Kommentar from gb ORDER BY ID DESC"
rs.Open strSQL,Session("Connect_ConnectionString"), 3
HOWMANY = ConfigPageSize
rs.PageSize = HOWMANY
If ACTION = "fwd" Then
PAGE = PAGE + 1
recCount = recCount + HOWMANY
For actCount = 1 To recCount
rs.MoveNext
Next
End If
If ACTION = "back" Then
PAGE = PAGE - 1
recCount = recCount - HOWMANY
If recCount <> 0 Then
For actCount = 1 To recCount
rs.MoveNext
Next
End If
End If
With response
.Write "
" & vbCrLf
.write "" & vbCrLf
.write "| "&Lang_GBTitleAdmin&" |
" & vbCrLf
.write "| "
End With
If recCount = "0" Then
PAGE = 1
If rs.RecordCount > 1 or rs.RecordCount = 0 Then
response.write rs.RecordCount & " " & Lang_AdminMssgCount1 & " | "
Else
response.write rs.RecordCount & " " & Lang_AdminMssgCount2 & " | "
End If
If rs.RecordCount <> 0 And HOWMANY < rs.RecordCount Then
response.write Lang_AdminShowFirst & " " & HOWMANY
End If
End If
With response
.write " | "&Lang_AdminGBLink&" |
" & vbCrLf
.write "
"
End With
If rs.RecordCount = 0 Then
Response.End
End If
xx = 0
while NOT rs.EOF
With Response
.Write "" & vbCrLf
.Write "" & vbCrLf
.Write "" & vbCrLf
.Write "| " & RS("Name") & " | " & vbCrLf
.Write "" & rs("Date") & " | " & vbCrLf
.Write " " & vbCrLf
.Write "" & vbCrLf
.Write "| " & Zeilenumbruch(rs("Entry")) & " | " & vbCrLf
.Write " " & vbCrLf
End With
If Not RS("Kommentar") = "" then
With Response
.Write "" & vbCrLf
.Write "| " & Zeilenumbruch(rs("Kommentar")) & " | " & vbCrLf
.Write " " & vbCrLf
End With
End If
With Response
.Write "" & vbCrLf
.Write "| "&Lang_Email&" " & RS("eMail") & " | " & vbCrLf
.Write "" & vbCrLf
.Write " | " & vbCrLf
End With
With Response
.Write "" & vbCrLf
.Write "| IP: " & rs("IP") & " [Add to blacklist] | " & vbCrLf
.Write " " & vbCrLf
End With
Dim HomepageWrite
HomepageWrite = rs("Homepage")
if left(rs("homepage"),7)>< "http://" then
HomepageWrite = "http://" & rs("Homepage")
end if
if rs("Homepage") = "X" then
response.write ""&Lang_Error5&""
Else
response.write " "&Lang_Homepage&" »»"
End If
With Response
.Write "" & vbCrLf
.Write "" & vbCrLf
.Write "" & vbCrLf
.Write "| ID: " & rs("ID") & " | " & vbCrLf
.Write "" & Lang_AdminComment & " " & Lang_AdminEdit & " " & Lang_AdminDel & " | " & vbCrLf
.Write " " & vbCrLf
.Write " |
" & vbCrLf
End With
rs.MoveNext
xx = xx + 1
if xx = HOWMANY then
while NOT rs.EOF
rs.MoveNext
wend
end if
wend
With Response
.Write "" & vbCrLf
.Write "| " & vbCrLf
End With
If recCount > 0 Then
Response.Write "" & Lang_AdminPrev & "" & vbCrLf
End If
Response.Write " | " & vbCrLf
If PAGE = rs.PageCount Then
Else
Response.Write "" & Lang_AdminNext & "" & vbCrLf
End If
Response.Write " |
" & vbCrLf
Response.Write "" & vbCrLf
%>