Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

mestre fyoda

excluir varios usuarios de uma vez so

Por , em ASP Clássico

Recommended Posts

mestre fyoda    1

mestre fyoda
Postado

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

 

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

 

 

deletar.asp

 

ASP [/tr][tr]

<%@ 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"))%>

 </font>

<td align="center" bgcolor=<%=rcolor%> width="56" height="20"> <font size="2" face="arial" color="BLACK">

<%Response.Write(RS("login"))%>

 </font>

<%rs.MoveNext%>

</font></tr>

<%loop

SET rs=nothing

set conn=nothing

%>

</table>

<input type="submit" value="Deletar" name="B1">

</p>

 

</form>

</BODY>

[/tr]

 

 

delete.asp

ASP [/tr][tr]

<%@ 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

 

%>

[/tr]

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado
Microsoft VBScript runtime error '800a01f4'

 

Variable is undefined: 'login'

 

/comunidade/deleta.asp, line 11

A variável login não está definida, com o Option Explicit em seu código você deve definir todas as variáveis com o DIM.

Compartilhar este post

Link para o post
Compartilhar em outros sites

mestre fyoda    1

mestre fyoda
Postado

Microsoft VBScript runtime error '800a01f4'

 

Variable is undefined: 'SQL'

 

/comunidade/deleta.asp, line 14

 

 

ASP [/tr][tr]

<%@ Language=VBScript%>

<% Option Explicit %>

<%

Dim intSno,intDelid,conn,a,login,SQL

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 = conn.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

%>

[/tr]

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Bem, agora é só ir definindo todas as variáveis usadas, deu erro de "RS" não definida.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito