<% Set objConn = Server.CreateObject("ADODB.Connection") Set rec = Server.CreateObject("ADODB.Recordset") ' objConn.Open "DBQ=" & Server.Mappath("\thaiall\db\applnews.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" objConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("applnews.mdb")) strSQL = "DELETE * FROM applnews WHERE (applnews.id= " & request.form("delid") & ");" set prorun = objConn.Execute(strSQL) objConn.close %> Delete news
Display
Back to [Update news]