<%@ LANGUAGE="VBSCRIPT" %> <% Set Conn=Server.CreateObject("ADODB.Connection") conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("/database/bkkvideo.mdb") Dim sql, varLoop,VarPostOrg, varTextLen, varTel1, varCount, sqlCount, delid delid = Request.QueryString("paraID") sql ="Select * from bkkvideo Where id = " & Request.QueryString("paraID") & " " Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 1, 3 do while not(rs.eof) rs.delete rs.movenext loop rs.close conn.close set conn = nothing%> Deletetion Completed

Back