
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database/#@%bbsbz.asa")
Set rs = Server.CreateObject("ADODB.Recordset")


   dim delesql
   dim useridtxt
   dim pagetxt
   id = Request("id")
   delesql="DELETE FROM bzsq WHERE id=" & id
   conn.Execute delesql
   set conn=nothing
   response.redirect "bzsq-admingn.asp"
%>
