<%' Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open dsn Dim activeme activeme =2 SQL = "UPDATE guests SET active='" & activeme & "' WHERE ID="& request.querystring("ID") & "" Set RS = Conn.Execute(SQL) %> Guestbook Management

Links

 

 Main
Change Password
Add New Admin User
View/Edit Entries
Log Out
 Delete Entries confirmation
Your entry has been hidden.
© Copyright 2007