Jump to content

  2. →
  3. →

Photo

Excluir Usuarios

Started By Matrix2003 , 11/01/2004, 13:02

  • Faça o login para participar
11 replies to this topic

#1 Matrix2003

Matrix2003

    24 Horas

  • Banidos
  • PipPipPipPipPip
  • 414 posts
  • Sexo:Não informado
  • Localidade:Bauru/SP
  • Interesses:ASP SOMENTE ASP

Posted 11/01/2004, 13:02

este é o codigo 
<%
Option Explicit
Dim sql,rsUser,username,password,page,stayloggedin,LConnectString,lconn,sqlflag

username = Request.Cookies("username")

if username = "" then
  Response.Redirect("login.asp?page=profile.asp")
end if

usernameid = Request.QueryString("usernameid")
%>
<!--#include file="conn.asp"-->
<%
deleta = "DELETE * FROM Username WHERE id = " & usernameid & ""
set rs = conn.execute(deleta)

response.redirect"comfirma.asp"
%>

o erro esta aqui como concertar 

Erro de tempo de execução do Microsoft VBScript erro '800a01f4' 

Variável não definida: 'usernameid' 

/sitedozanelati/login2/userdelete.asp, line 11

Pessoal espero ajudar sempre que possivél todos vocês, não se esqueça do nosso site www.onemasters.com agora com muito mais atualidades todos os dias..
Projetos e muito mais....Valeu
Ricardo Zanelati

#2 cybermix

cybermix

    andrewsmedina.com.br

  • Ex-Admins
  • 3586 posts
  • Sexo:Não informado
  • Localidade:Não sou desse planeta não!!!!
  • Interesses:python, fireworks, linux, php, flash...

Posted 13/01/2004, 01:18

se voce esta usando option expliciti voce tem que declarar todas as variaveis que esta usando
www.andrewsmedina.com.br

#3 Rodrigo

Rodrigo

    oi!

  • Usuários
  • 995 posts
  • Sexo:Não informado
  • Interesses:Diretório de sites - http://www.acheinobrasil.com.br

Posted 13/01/2004, 08:06

vc tem 2 erros ai nesse codigo... toma ele corrigido:

<%
Option Explicit
Dim sql,rsUser,username,usernameid,password,page,stayloggedin,LConnectString,lconn,sqlflag

username = Request.Cookies("username")

if username = "" then
 Response.Redirect("login.asp?page=profile.asp")
end if

usernameid = Request.QueryString("usernameid")
%>
<!--#include file="conn.asp"-->
<%
deleta = "DELETE FROM Username WHERE id = " & usernameid & ""
set rs = conn.execute(deleta)

response.redirect"comfirma.asp"
%>

Diretório de sites brasileiros - Achei no Brasil

#4 Matrix2003

Matrix2003

    24 Horas

  • Banidos
  • PipPipPipPipPip
  • 414 posts
  • Sexo:Não informado
  • Localidade:Bauru/SP
  • Interesses:ASP SOMENTE ASP

Posted 17/01/2004, 15:08

mais olha o que esta dando agora

Erro de tempo de execução do Microsoft VBScript erro '800a01f4'

Variável não definida: 'deleta'

/sitedozanelati/login2/userdelete.asp, line 16
Pessoal espero ajudar sempre que possivél todos vocês, não se esqueça do nosso site www.onemasters.com agora com muito mais atualidades todos os dias..
Projetos e muito mais....Valeu
Ricardo Zanelati

#5 Info_Tec

Info_Tec

    Servo do DEUS VIVO!

  • Usuários
  • 398 posts
  • Sexo:Não informado
  • Localidade:Entre a cadeira e o teclado
  • Interesses:Jesus, minha esposa e filha.<br>ASP, Lógica de programação, Projeto de Estradas, $$$ que tô precisando!

Posted 17/01/2004, 15:10

Corrigido:
<%

Option Explicit

Dim sql,rsUser,username,usernameid,password,page,stayloggedin,LConnectString,lconn,sqlflag,deleta



username = Request.Cookies("username")



if username = "" then

Response.Redirect("login.asp?page=profile.asp")

end if



usernameid = Request.QueryString("usernameid")

%>

<!--#include file="conn.asp"-->

<%

deleta = "DELETE FROM Username WHERE id = " & usernameid & ""

set rs = conn.execute(deleta)



response.redirect"comfirma.asp"

%>

A cada minuto está mais perto.
Aceite JESUS como seu único e suficiente salvador!
_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-
Fórum HOSANAS, venha conversar e se engrandecer com a palavra de DEUS.
Host: ASPECTO, Hospedagem ASP com qualidade e bom preço.

#6 Matrix2003

Matrix2003

    24 Horas

  • Banidos
  • PipPipPipPipPip
  • 414 posts
  • Sexo:Não informado
  • Localidade:Bauru/SP
  • Interesses:ASP SOMENTE ASP

Posted 17/01/2004, 15:22

adminirei a rapidez da resposta mais o erro agora esta em
Microsoft JET Database Engine erro '80040e14'

Erro de sintaxe (operador faltando) na expressão de consulta 'id ='.

/sitedozanelati/login2/userdelete.asp, line 17
Pessoal espero ajudar sempre que possivél todos vocês, não se esqueça do nosso site www.onemasters.com agora com muito mais atualidades todos os dias..
Projetos e muito mais....Valeu
Ricardo Zanelati

#7 _UsP_

_UsP_

    Normal

  • Usuários
  • 108 posts
  • Sexo:Não informado

Posted 18/01/2004, 05:57

Tem certeza de que tem algum valor no "request.querystring("usernameid") ?

#8 *Asp* WebMaster

*Asp* WebMaster

    Novato no fórum

  • Usuários
  • 6 posts
  • Sexo:Não informado

Posted 18/01/2004, 06:22

<%
Option Explicit
Dim sql,rsUser,username,usernameid,password,page,stayloggedin,LConnectString,lconn,sqlflag,deleta

username = Request.Cookies("username")

if username = "" then
Response.Redirect("login.asp?page=profile.asp")
end if

usernameid = Request.QueryString("usernameid")
%>
<!--#include file="conn.asp"-->
<%
deleta = "DELETE FROM Username WHERE id = '" & usernameid & "' "
set rs = conn.execute(deleta)

response.redirect"comfirma.asp"
%>


Testa assim para ver se funciona

Edição feita por: *Asp* WebMaster, 18/01/2004, 06:23.

#9 Matrix2003

Matrix2003

    24 Horas

  • Banidos
  • PipPipPipPipPip
  • 414 posts
  • Sexo:Não informado
  • Localidade:Bauru/SP
  • Interesses:ASP SOMENTE ASP

Posted 18/01/2004, 07:27

Microsoft JET Database Engine erro '80040e37'

O mecanismo de banco de dados Microsoft Jet não encontrou a tabela de entrada ou consulta 'username'. Certifique-se de que ela existe e de que seu nome está digitado corretamente.

/sitedozanelati/login2/userdelete.asp, line 16

Este é o erro agora
Pessoal espero ajudar sempre que possivél todos vocês, não se esqueça do nosso site www.onemasters.com agora com muito mais atualidades todos os dias..
Projetos e muito mais....Valeu
Ricardo Zanelati

#10 _UsP_

_UsP_

    Normal

  • Usuários
  • 108 posts
  • Sexo:Não informado

Posted 18/01/2004, 07:39

Pelo erro, ta dizendo que não existe a tabela username. Logico. tem certeza que o nome da tabela é assim?

#11 *Asp* WebMaster

*Asp* WebMaster

    Novato no fórum

  • Usuários
  • 6 posts
  • Sexo:Não informado

Posted 18/01/2004, 09:09

Tem como passar o codigo da pagina toda ?

#12 Matrix2003

Matrix2003

    24 Horas

  • Banidos
  • PipPipPipPipPip
  • 414 posts
  • Sexo:Não informado
  • Localidade:Bauru/SP
  • Interesses:ASP SOMENTE ASP

Posted 18/01/2004, 13:58

tenho a pagina do profile.asp que o erro é este e este erro é no link

Erro de tempo de execução do Microsoft VBScript erro '800a01c2'

Número de argumentos incorreto ou atribuição de propriedade inválida

/sitedozanelati/login2/profile.asp, line 339
a pagina é esta 
<%
Set conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("siteusers.mdb")
username = Request.Cookies("username")
%>
<html>
<head>


<%
if username = "" then
  nologin()
end if
%>
<!--#include file="conn.asp"-->
<%
sql = "SELECT * FROM Users WHERE username = '" & username & "'"
Set conn = conexao.execute(sql)
%>
<%if Request.QueryString("updated") = "true" then%>

<title></title>

</head>

<body background="../zanelati_r41_c7.gif">

<p align="center"><font color="#DD0000" face="Verdana" size="2">Seu Cadastro foi alterado com sucesso <%=Time()%></font></p>
<p align="center"><font color="#FFFFFF" size="1" face="Verdana">1</font></p>
<div align="center">
<%else%>
<%end if%>

  <center>
  <table border="0" width="124" cellspacing="0" cellpadding="0">
    <tr>
    <TD rowSpan=4 vAlign=top width=14><font face="Verdana" size="1"><!--DWLayoutEmptyCell-->&nbsp;</font></TD>
    <TD height=1 vAlign=top width=500><font face="Verdana" size="1"><img border="0" src="icons/LINHA11.gif"></font></TD>
    </tr>
    <tr>
    <TD height=18 vAlign=center width="500"><font face="Verdana" size="1"><img border="0" src="icons/pasta.gif">
      <STRONG><font color="#DEBC00">Atualize Seu Cadastro</font></STRONG></font></TD>
    </tr>
    <tr>
    <TD height=1 vAlign=top width="500"><font face="Verdana" size="1"><img border="0" src="icons/LINHA11.gif"></font></TD>
    </tr>
    <tr>
    <TD height=438 vAlign=top width="500">
      <form method="POST" action="profile_update.asp" target="x" name="profileform">
      <TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
        <FORM action=atualizar_cadastro.asp method=post name=Cadastro><!--DWLayoutTable-->
        <TBODY>
        <TR>
          <TD height=4 width=17></TD>
          <TD width=55></TD>
          <TD width=14></TD>
          <TD width=61></TD>
          <TD width=30></TD>
          <TD width=46></TD>
          <TD width=37></TD>
          <TD width=231></TD>
          <TD width=15></TD>
          <TD width=5></TD></TR>
        <TR>
          <TD height=12 vAlign=top><font face="Verdana" size="1"><a href="index.asp" onmouseover="window.status='&lt;- Voltar';return true;" target="x"><IMG border=0 
            src="icons/voltar.gif" width="17" height="12"></a></font></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD></TR>
        <TR>
          <TD height=13></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD></TR>
        <TR>
          <TD colSpan=4 height=16 vAlign=top><font face="Verdana" size="1"><img border="0" src="icons/Menu2.gif">
            Dados Pessoais</font></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD></TR>
        <TR>
          <TD height=11></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD></TR>
        <TR>
          <TD colSpan=2 height=18 vAlign=top><font face="Verdana" size="1">Nome:</font></TD>
          <TD vAlign=top><font face="Verdana" size="1"><!--DWLayoutEmptyCell-->&nbsp;</font></TD>
          <TD colSpan=3 vAlign=top><font face="Verdana" size="1"><INPUT id=nome name=firstname 
            style="BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: black 1px groove; BORDER-LEFT: black 1px groove; BORDER-RIGHT: black 1px groove; BORDER-TOP: black 1px groove; COLOR: black; FONT-FAMILY: verdana; FONT-SIZE: 8pt" 
            value=<%=Conn("firstname")%> size="20"></font></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD></TR>
        <TR>
          <TD colSpan=2 height=18 vAlign=top><font face="Verdana" size="1">Sobrenome:</font></TD>
          <TD vAlign=top><font face="Verdana" size="1"><!--DWLayoutEmptyCell-->&nbsp;</font></TD>
          <TD colSpan=3 vAlign=top><font face="Verdana" size="1"><INPUT id=sobrenome name=surname 
            style="BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: black 1px groove; BORDER-LEFT: black 1px groove; BORDER-RIGHT: black 1px groove; BORDER-TOP: black 1px groove; COLOR: black; FONT-FAMILY: verdana; FONT-SIZE: 8pt" 
            value=<%=Conn("surname")%> size="20"></font></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD></TR>
        <TR>
          <TD colSpan=2 height=18 vAlign=top><font face="Verdana" size="1">E-mail:</font></TD>
          <TD vAlign=top><font face="Verdana" size="1">&nbsp;</font></TD>
          <TD colSpan=3 vAlign=top><font face="Verdana" size="1"><INPUT id=email name=email 
            style="BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: black 1px groove; BORDER-LEFT: black 1px groove; BORDER-RIGHT: black 1px groove; BORDER-TOP: black 1px groove; COLOR: black; FONT-FAMILY: verdana; FONT-SIZE: 8pt" 
            value=<%=Conn("email")%> size="20"></font></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD></TR>
        <TR>
          <TD colSpan=2 height=17 vAlign=top><font face="Verdana" size="1">Signo:</font></TD>
          <TD vAlign=top></TD>
          <TD colSpan=3 vAlign=top><font face="Verdana" size="1"><%=Conn("starsign")%>
            </font></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD></TR>
        <TR>
          <TD colSpan=2 height=17 vAlign=top><font face="Verdana" size="1">Aniversário:</font></TD>
          <TD vAlign=top><font face="Verdana" size="1"><!--DWLayoutEmptyCell-->&nbsp;</font></TD>
          <TD colSpan=3 vAlign=top><font face="Verdana" size="1"><INPUT id=d maxLength=2 name=birth_day size=2 
            style="BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: black 1px groove; BORDER-LEFT: black 1px groove; BORDER-RIGHT: black 1px groove; BORDER-TOP: black 1px groove; COLOR: black; FONT-FAMILY: verdana; FONT-SIZE: 8pt" 
            value=<%=day(Conn("dob"))%>>  / <INPUT id=m maxLength=2 name=birth_month size=2 
            style="BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: black 1px groove; BORDER-LEFT: black 1px groove; BORDER-RIGHT: black 1px groove; BORDER-TOP: black 1px groove; COLOR: black; FONT-FAMILY: verdana; FONT-SIZE: 8pt" 
            value=<%=month(Conn("dob"))%>> / <INPUT id=a maxLength=4 name=birth_year size=4 
            style="BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: black 1px groove; BORDER-LEFT: black 1px groove; BORDER-RIGHT: black 1px groove; BORDER-TOP: black 1px groove; COLOR: black; FONT-FAMILY: verdana; FONT-SIZE: 8pt" 
            value=<%=year(Conn("dob"))%>></font></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD></TR>
        <TR>
          <TD colSpan=2 rowSpan=2 vAlign=top><font face="Verdana" size="1">Sexo:</font></TD>
          <TD rowSpan=2 vAlign=top><font face="Verdana" size="1"><!--DWLayoutEmptyCell-->&nbsp;</font></TD>
          <TD height=14 vAlign=center><font face="Verdana" size="1">Masculino</font></TD>
          <TD vAlign=bottom><font face="Verdana" size="1"><INPUT CHECKED name=sex 
            style="BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: black 0px groove; BORDER-LEFT: black 0px groove; BORDER-RIGHT: black 0px groove; BORDER-TOP: black 0px groove" 
            type=radio value=male></font></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD></TR>
        <TR>
          <TD rowSpan=2 vAlign=center><font face="Verdana" size="1">Feminino</font></TD>
          <TD rowSpan=2 vAlign=bottom><font face="Verdana" size="1"><INPUT name=sexo 
            style="BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: black 0px groove; BORDER-LEFT: black 0px groove; BORDER-RIGHT: black 0px groove; BORDER-TOP: black 0px groove" 
            type=radio value=female></font></TD>
          <TD height=2></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD></TR>
        <TR>
          <TD height=14></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD></TR>
        <TR>
          <TD height=7></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD></TR>
        <tr>
          <TD colSpan=6 height=14 vAlign=center><font face="Verdana" size="1"><img border="0" src="icons/Menu2.gif">
            Desejo receber novidades por 
            e-mail <%
  if Conn("sendemail") = True then
    sendemailchecked = " checked"
  else
    sendemailchecked = ""
  end if
  %></font></TD>
          <TD vAlign=top><font face="Verdana" size="1"><INPUT CHECKED id=novidades name=sendemail 
            style="BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: black 0px groove; BORDER-LEFT: black 0px groove; BORDER-RIGHT: black 0px groove; BORDER-TOP: black 0px groove" 
            type=checkbox value=True></font></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
        </tr>
        <TR>
          <TD colSpan=4 height=12 vAlign=top></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD></TR>
        <TR>
          <TD colSpan=4 height=12 vAlign=top><font face="Verdana" size="1"><img border="0" src="icons/Menu2.gif">
            Informações do usuário</font></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD></TR>
        <TR>
          <TD height=17></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD></TR>
        <TR>
          <TD colSpan=2 height=17 vAlign=top><font face="Verdana" size="1">Senha:</font></TD>
          <TD vAlign=top><font face="Verdana" size="1"><!--DWLayoutEmptyCell-->&nbsp;</font></TD>
          <TD colSpan=3 vAlign=top><font face="Verdana" size="1"><INPUT id=senha name=password 
            style="BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: black 1px groove; BORDER-LEFT: black 1px groove; BORDER-RIGHT: black 1px groove; BORDER-TOP: black 1px groove; COLOR: black; FONT-FAMILY: verdana; FONT-SIZE: 8pt" 
            type=password size="20"></font></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD></TR>
        <TR>
          <TD height=14></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD></TR>
        <TR>
          <TD colSpan=10 height=20 vAlign=top>
            <DIV align=center><font face="Verdana" size="1">&nbsp;&nbsp; <INPUT height=16 name=Submit3 
            src="icons/botao_atualizar.gif" 
            type=image value="Enviar meus dados" width=150> </font> </DIV></TD></TR>
        <TR>
          <TD height=17></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD></TR>
        <TR>
          <TD height=15></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD><a href="userdelete.asp?id=<%conn("id")%>" onclick="return excluir()" target="x"><IMG alt="Remover Usuário!" border=0 src="icons/remover.gif" align="right"></a></TD>
          <TD vAlign=top>
            <H3></H3></TD>
          <TD></TD></TR>
        <TR>
          <TD height=4></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD>
          <TD></TD></TR></FORM></TBODY></TABLE>
      </form>
    </TD>
    </tr>
  </table>
  </center>
</div>
<p align="center">&nbsp;</p>
<font face="Verdana" size="1">
<br clear="all">

<%
Conn.close
set Conn = nothing
%>

<%Function nologin()%>

<%Response.end
End Function%></font>

e a pagina userdelete.asp o erro é este
Microsoft JET Database Engine erro '80040e14' 

Erro de sintaxe (operador faltando) na expressão de consulta 'id = <font face='. 

/sitedozanelati/login2/userdelete.asp, line 10

o codigo da pagina é este 
<%
Option Explicit
Dim sql,rsUser,username,usernameid,password,page,stayloggedin,LConnectString,lconn,sqlflag,deleta

username = Request.Cookies("username")

if username = "" then
Response.Redirect("login.asp?page=profile.asp")
end if

usernameid = Request.QueryString("usernameid")
%>
<!--#include file="conn.asp"-->
<%
deleta = "DELETE FROM Username WHERE id = " & usernameid & ""
set rs = conn.execute(deleta)

response.redirect"comfirma.asp"
%>

Se eu não postei certo me perdoe mais quem souber me ajude
Pessoal espero ajudar sempre que possivél todos vocês, não se esqueça do nosso site www.onemasters.com agora com muito mais atualidades todos os dias..
Projetos e muito mais....Valeu
Ricardo Zanelati
Voltar para ASP


1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

  1. Fórum WMO
  2. → Desenvolvimento
  3. → ASP
  4. Privacy Policy
  5. Regras ·
IPB Skin By Virteq