كيف اجعل الASP تحقق مايلى:

<%
	Dim sqlStr

    Const adCmdText = 1

    Const RecordAffected1 = 0
    Const RecordAffected2 = 10

	set Conn = server.createObject("ADODB.Connection")
              set rs = Server.CreateObject("ADODB.RECORDSET")

	ps = "provider=microsoft.jet.OLEDB.4.0; data source="
   	ps = ps & server.MapPath("library.mdb")
              sqlStr = "DELETE from book WHERE sm = '"
	sqlStr = sqlStr & request.form("bookName") & "'"
    conn.open ps
    rs.open sqlStr,conn,3,3
    IF NOT rs.EOF THEN
    conn.beginTrans	
    rs.Delete
    response.write "your process has been sucssed"
    conn.commitTrans
    ELSE
    response.write "no result matched your search keyword please try again"
    'or redirect the user to search page using : response.redirect("search.asp")

    END IF
 rs.close
conn.close
SET rs=nothing
SET conn=nothing


%>

Tahiyati

Madani