<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "ae19_online"
sql = "INSERT INTO gaeste (gruppe,Name, Vorname, Homepage, Email,Alter, Beruf, Hobby, Info, Datum, Zeit)" &_
" VALUES(" &_
"'nms', " &_
"'" & Request("nname") &"', " &_
"'" & Request("Vorname") &"', " &_
"'" & Request("Homepage") &"', " &_
"'" & Request("Email") &"', " &_
"'" & Request("Alter") &"', " &_
"'" & Request("Beruf") &"', " &_
"'" & Request("Hobby") &"', " &_
"'" & Request("Info") &"', " &_
"Date(), Time())"
'Response.Write(sql & "
")
Set RS = Conn.Execute(sql)
%>
<% If Request("ab")="" Then ab=0 Else ab = Request("ab") End If%>
<% If Request("bis")="" Then bis=0 Else bis = -1 End If%>
<%
if ab>10 then zuruck= ab-10
vor = ab+10
Set RS = Conn.Execute("SELECT * from gaeste order by datum desc")
RS.Move(ab)
Do While Not RS.EOF
rc = rc +1
RS.MoveNext
loop
'Response.Write(rc)
response.redirect ("anzeigen.asp")
%>
Gästebuch