ho questo codice per eliminare i messaggi ricevuti
seleziono il messaggio tramite un check clicco su elimina la pagina si ricarica ma non mi elimina il record...
come posso fare?
codice:<%on error resume next%> <% if request.form("delete")="true" then x=0 sql="delete * from miniBlog where ID=" for each item in request.form if x>0 and x< len(Request.Form)then if request.form(item)<>"" then sql = sql & request.form(item) & " or ID=" end if end if x=x+1 next sql = replace(sql,"or ID=Elimina","") sql = replace(sql,"ID=Elimina","") sql= left(sql,len(sql)-7) if len(sql)>33 then Set Conn = Server.CreateObject("ADODB.Connection") Conn.CommandTimeout = 40 Conn.ConnectionTimeout = 40 Conn.CursorLocation = 3 Conn.ConnectionString="server=mioserver.it;db=miodb;driver=MySQL;uid=miouser;pwd=miapass" Conn.Open Set rs= Conn.Execute(sql) end if ' response.write(sql &" " & x) end if %>

Rispondi quotando