<% '// nur "ADODB.RecordSet" kann RecordCount ausführen '// 'p= +/- 'b= bis 'ab = ab Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "ae19_online" Set RS = Server.CreateObject("ADODB.RecordSet") sql = "SELECT * from gaeste where gruppe='nms' order by datum desc,zeit desc" RS.Open sql, Conn, 1,1 rc = RS.RecordCount id =0 id = Request("id") +0 ' +0 sonst error zurueck=0 c=0 Do While Not RS.EOF c=c+1 if RS("id") = id then 'Response.Write(RS("id")&"
") RS.MovePrevious if Not RS.EOF and Not RS.BOF then vor = RS("id") RS.MoveNext end if RS.MoveNext if c=1 then RS.MoveNext if Not RS.EOF then zurueck = RS("id") end if 'Response.Write(vor &":"&zurueck) Exit Do end if if Not RS.EOF then RS.MoveNext end if Loop RS.Close sql="SELECT * from gaeste where" &_ " id=" & Request("id") & "" Set RS = Conn.Execute(sql) 'Response.Write(Request("ab")) %> Gästebuch
Gästebuch Eintrag <%=rc-c+1 %>

<% 'response.write(id)%> <%if vor > 0 then %> << vor <%end if %> neuer Eintrag
zurück zur Übersicht 		<%if zurueck> 0 then %> zurück >> <%end if %>

Name

<%=RS("NAME")%> 

Vorname

<%=RS("VORNAME")%>

Texteingabe

<%=RS("INFO")%> 

Homepage

 <%=RS("HOMEPAGE")%>

eMail

 <%=RS("EMAIL")%>

 Alter

 <%=RS("ALTER")%>

Beruf

 <%=RS("BERUF")%>

Hobby

 <%=RS("HOBBY")%>
<% RS.Close Conn.Close %>
<% 'response.write(id)%> <%if vor > 0 then %> << vor <%end if %> zurück zur Übersicht <%if zurueck> 0 then %> zurück >> <%end if %>