<% Response.expires=0 zahl = request.querystring("seite") zahl = int(zahl) Ansicht = request.querystring("Ansicht") %> Gästebuch Gamskogler.at

Tragen Sie sich doch in unser Gästebuch ein. / Register yourselves nevertheless into our guest book.

Neuer Eintrag / New entry

<% set db = Server.CreateObject("ADODB.Connection") connect="Driver={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("\cgi-bin\Gams.mdb") db.Open connect sql2 = "select * from guestbook order by nummer DESC" set rs = db.Execute(sql2) Do While Not rs.EOF ' Alle Datensätze erfassen Satz = Satz + 1 rs.MoveNext Loop if Satz > 0 then rs.MoveFirst ' Zum Ersten Datensatz Do While Not rs.EOF ' Solange noch ein Statz vorhanden ist if x >= zahl then %>
<%if (rs("email"))><"keine Mail" then%> <%:end if%> <%if (rs("homepage"))><"keine Homepage" then%> <%:end if%>
 Name: <%=(rs("name"))%>
 Datum / Date: <%=(rs("datum"))%>
 eMail: "><%=(rs("email"))%>
 Homepage: < "http://" then %>http://<%end if%><%=(rs("homepage"))%>" target="_blank"><%=(rs("homepage"))%>
 Mitteilung / Report: <%=FormatMessage(rs("mitteilung"))%>
  
 Antwort / Answer: <%=FormatMessage(rs("antwort"))%>

<% end if x=x+1 if x = Satz then exit do if x => (zahl + Ansicht) then exit do rs.MoveNext loop if rs.eof then %>

Einträge gefunden :  Ansicht -  
<% else %>
<% if zahl > 0 then%> <% end if %> <%if Satz > zahl + Ansicht then%> <% end if %>
<%=Satz%> Einträge gefunden :  Ansicht <%=zahl + 1%> - <%=x%>

<% end if %> <% else %>

Keine Gästebucheinträge vorhanden

<% end if db.Close set db=Nothing %>