<%
hid = request.Querystring("bd")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.open Server.MapPath("dbcon.mdb")
sql="select * from Tbcon where ID = " & cint(hid)
Set rs=Server.CreateObject("ADODB.recordset")
rs.open sql, conn, 1, 3
if not rs.bof then
rs.movefirst
end if
rs.delete
rs.update
rs.close
conn.close
set rs = nothing
set conn = nothing
response.Redirect("Adminconlist.asp")
%>
Load balance : Server 04
