<%@Language=VBSCRIPT%> <%Option Explicit%> <% response.buffer = true %> <% With Response .Write "" & vbCrLf .Write "" & vbCrLf .Write "" & vbCrLf .Write "

" & Lang_GBTitle & "

" & vbCrLf .Write "
" & vbCrLf End With dim intPage, intRecCount, intPageCount, intNum intPage = Request("page") If isNumeric(intPage) = False Or intPage < 1 Then intPage = 1 End If Set rs = Server.CreateObject("ADODB.RecordSet") strSQL = "select ID, Name, Email, Homepage, Date, Entry, Kommentar from gb ORDER BY ID DESC" %> <% rs.Open strSQL, Connect, 1 'set rs = Connect.execute(strSQL) if rs.EOF then Response.write Lang_NoEntries else ' Set PageSize rs.PageSize = ConfigPageSize rs.AbsolutePage = intPage intRecCount = rs.PageSize intPageCount = rs.PageCount Do While Not rs.EOF And intRecCount > 0 With Response .Write "

" & vbCrLf .Write "" & vbCrLf .Write "" & vbCrLf .Write "" & vbCrLf .Write "" & vbCrLf .Write "" & vbCrLf .Write "" & vbCrLf .Write "" & vbCrLf .Write "" & vbCrLf End With If Not rs("Kommentar") = "" then With Response .Write "" & vbCrLf .Write "" & vbCrLf .Write "" & vbCrLf End With End If With Response .Write "" & vbCrLf .Write "" & vbCrLf .Write "

" & RS("Name") & "	" & rs("Date") & "
" & RS("Entry") & "
" & RS("Kommentar") & "
" & Lang_Email & " " & rs("eMail") & "	" & 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 response.write "

" & vbCrLf intRecCount = intRecCount - 1 RS.MoveNext Loop end if if rs.EOF then response.write ""&Lang_NoMore&"" end if ShowPaging() rs.close Set rs = Nothing Connect.Close Set Connect = Nothing With Response .Write "" & vbCrLf .Write "" & vbCrLf .Write "

" & Lang_EntryLink & "

" & vbCrLf End With %>