<%@ LANGUAGE="VBSCRIPT" %>
<% Response.Buffer = True %>
<% ID = Request.Querystring("ID") %>
<% RCOUNT = Request.Querystring("RCOUNT") %>
Kontaktbuch
<% If Session("ACCESS2") = "Yes" Then %>
<%
Set ConnGuestBook = Server.CreateObject("ADODB.Connection")
ConnGuestBook.ConnectionTimeout = Session("ConnGuestBook_ConnectionTimeout")
ConnGuestBook.CommandTimeout = Session("ConnGuestBook_CommandTimeout")
ConnGuestBook.Open Session("ConnGuestBook_ConnectionString4"), Session("ConnGuestBook_RuntimeUserName"), Session("ConnGuestBook_RuntimePassword")
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set CmdDeleteListing = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = "DELETE FROM BOOK WHERE (ID = " & ID & ")"
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = ConnGuestBook
CmdDeleteListing.Open cmdTemp, , 0, 1
%>
<%
Sub TLdelaySec(DelaySeconds)
SecCount = 0
Sec2 = 0
While SecCount < DelaySeconds + 1
Sec1 = Second(Time())
If Sec1 <> Sec2 Then
Sec2 = Second(Time())
SecCount = SecCount + 1
End If
Wend
End Sub
%>
<% TLdelaySec(2) %>
<% Response.Redirect "kontaktbuch.asp?RCOUNT=" & RCOUNT & "&sort=" & Request.Querystring("sort") %>
<% Else %>
Keine Berechtigung
bitte neu einlogen
<% End If %>