Excluir Multiplos Registro De Uma Vez

mestre fyoda · Julho 9, 2004

http://i.1asphost.com/comunidade/deletar.asp , visitem o site , deleta algum usuario ai vai dar um erro , no meu micro não esta aparecendo o erro .

Por que não esta deletando ......? o que esta acontecendo . Me expliquem

deletar.asp

<%@ Language=VBScript %>
<%OPTION EXPLICIT%>

<BODY>
<FORM action="deleta.asp" method="Post" name=Form>

<%
Dim conn,rs,intCounter,intMod,rcolor,SQL
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("dados.mdb"))
set rs = Server.CreateObject("ADODB.recordset")

SQL = "select * from usuarios" 
RS.Open SQL,Conn,3,3

%>

<table width="306" border="1" cellpadding="0" cellspacing="0" height="43" style="border-collapse: collapse" bordercolor="#CCCCCC">
 <tr>
   <th align="left" bgcolor=#DFE19D width="84" height="13" bordercolor="#FFFFFF"  bordercolordark="#006699"> <b>
     Selecione</b>
   <th align="left" bgcolor=#DFE19D width="98" height="13" bordercolor="#FFFFFF"  bordercolordark="#006699"> <b><font size="2" face="arial"> Nome</font> </b>
   <td align="left" bgcolor=#DFE19D width="58" height="13" bordercolor="#FFFFFF"  bordercolordark="#006699">
     <p align="center"><b><font size="2" face="arial"> Login</font></b></td>
 </tr>
 <%intCounter=0%>
 <%do until rs.EOF%>
 <%
intCounter=intCounter+1
intMod=intcounter mod 2

if intmod=0 then 
rcolor = "#c0c0c0"  
elseif intmod=1 then 
rcolor = "#FFFFFF"  
end if
%>
 <tr>
   <td align="left" bgcolor=<%=rcolor%> width="84" height="20">
   <font size="2" face="arial" color="BLACK">
   <width=35%>
   <input type=CheckBox name=Delete value=<%=RS("id")%>>
   <td align="left" bgcolor=<%=rcolor%> width="58" height="20"> <font size="2" face="arial" color="BLACK">
     <%Response.Write (RS("nome"))%>
&nbsp;</font>
   <td align="center" bgcolor=<%=rcolor%> width="56" height="20"> <font size="2" face="arial" color="BLACK">
     <%Response.Write(RS("login"))%>
&nbsp;</font>
       <%rs.MoveNext%>
 </font></tr>
 <%loop
SET rs=nothing
set conn=nothing
%>
</table>
<input type="submit" value="Deletar" name="B1">
</p>

</form>
</BODY>

delete.asp

<%@ Language=VBScript%>
<% Option Explicit %>
<%
Dim intSno,intDelid,conn,a
intSno=Request("Delete")

set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("dados.mdb"))

login = Request.Form("login")


SQL = "select * from usuarios where login = '"&login&"' "
Set RS = conexao.Execute(SQL)

a=split(intSno,",")

dim iLoop
for iLoop=LBound(a) to UBound(a)
intDelid=Trim(a(iLoop))


conn.Execute "delete from usuarios where id=" & intDelid & ""
next
Response.Redirect "login.asp" 


conn.Close
set conn=nothing

%>

dark0 · Julho 11, 2004

cara.

porque ao invés de colocar o link aí, você não coloca o erro?

tem muitos usuarios que não podem sair abrindo vários sites não

muitos vem aqui pra tentar ajudar.. mas pra abrir outros sites, nem rola

acho que se você quer que alguém te responda mais rapido, seja mais objetivo.

por ex: o erro é esse.. porque ele é gerado? o que acontece?

puts.. jogar um link aí.. é foda

comece explicando o que seu sistema faz

porque jogar o codigo aí é facil

mas aí a todos que forem olhar, terem que entender o que você fez, ou tentou fazer, já fica mais complicado..

se quiser algum tipo de ajuda, seja mais específico.

não entendi nada no seu codigo.. sinto muito

ate mais

Entrar

Excluir Multiplos Registro De Uma Vez

Pergunta

mestre fyoda

Link para o comentário

Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

dark0

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades