<%
billid=request.QueryString("billid")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("db/dbit.mdb")
set rs=server.createobject("adodb.recordset")
Sql = "delete * from billtran where idtran = "&billid
Conn.Execute(Sql)
sqlitem="select * from protran"
rs.open sqlitem,conn,1,3
if not rs.bof then
rs.movefirst
end if
while not rs.eof
chkbill=rs("billid")
if chkbill=billid then
rs.delete
rs.update
end if
rs.movenext
wend
rs.close
Conn.Close
Set Conn=nothing
response.Redirect("adminshowbilltran.asp")
%>
Load balance : Server 04
