|
<% dim connect, rs, sql, gtmpch, toconfirm gtmpch = request.form("gtmpch") toconfirm = request.form("toconfirm") set connect = server.createobject("ADODB.Connection") connect.open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &_ Server.MapPath("\perlphpasp\db\tempdb.mdb")) if toconfirm = "yes" then sql="delete from tempfile where tmpch ='" & gtmpch & "'" connect.execute(sql) response.write("Delete : ok") else sql = "select * from tempfile where tmpch='" & gtmpch & "'" set rs = connect.execute(sql) if rs.eof then response.write("Not found, so can not delete") else response.write("<form action=deltmpch.asp method=post>">mpch) response.write("<input type=hidden name=gtmpch value='" & gtmpch & "'>") response.write("<input type=hidden name=toconfirm value=yes>") response.write("<input type=submit value=Confirm>") response.write("</form>") end if end if connect.close set connect = nothing %> |