Jump to content

  2. →
  3. →

Photo

Alterar Cadastro

Started By PhoEniXFirE, 29/04/2004, 17:53

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

#1 PhoEniXFirE

PhoEniXFirE

    12 Horas

  • Usuários
  • 133 posts
  • Sexo:Masculino
  • Localidade:Salvador / E. da Cunha
  • Interesses:Mulheres, Alcool e Rock

Posted 29/04/2004, 17:53

Estou desenvolvendo um sistema de cadastro de emails, o caso, o usuário se cadastra no meu bd por ASP e eu recebo um email avisando este cadastro. Na administração, além de visualizar todas as informações do usuário pra poder cadastrado no email do meu servidor, posso tb, excluir e alterar, essas informações, aí vem o problema, a função excluir está funcionando corretamente, mas a ALTERAR não está funcionando, ela funciona de forma ID, então ele puxa todas as informações no arquivonot.asp, no arquivonot.asp, eu modifico as dados e no arquivo alterar.asp, onde ele faz o UPDATE, dá um erro referente ao formulário. Já de várias olhadas, mesmo assim ainda n consegui descubrir onde está o erro.
Então o q peço aqui, eh q, se alguém puder da uma olhada tb nele, pra ver sabe onde está o erro, agradeço bastante.
Os arquivos estão anexados e abaixo:

users.asp - *Arquivo onde seleciono qual id vou alterar no ALTERARNOT.ASP
<%
cBanco = Server.MapPath("../database.mdb")
strConn = "Provider = Microsoft.jet.oledb.4.0; Data Source = "& cBanco &";"
Set Conn = Server.CreateObject("adodb.connection")

Conn.Open(strConn)

Set Rs = Server.CreateObject("adodb.recordset")

RS.PageSize = 5

SQL ="Select * From users ORDER BY ID DESC"
Rs.Open SQL, Conn, 3, 3
%>
<body link="#0000FF" vlink="#0000FF" alink="#0000FF" bgcolor="#F0F8FF">
<img border="0" src="../images/euclidesmail.gif"><br>
<font face="arial" style="font-size: 8pt">&nbsp;&nbsp; <u>Usuários cadastrados</u>: <b><% Response.Write rs.RecordCount %></b></font><p>
<%If Rs.Eof Then
Response.Write("Não tem nada no banco de dados")
Response.End()
ELSE
   IF cint(Request.QueryString("pagina"))<1 then
       intpagina=1 
    ELSE
       IF cint(Request.QueryString("pagina"))> RS.PageCount then 
          intpagina=RS.PageCount 
       ELSE
          intpagina=Request.QueryString("pagina")
       END IF
    END IF
 END IF

RS.AbsolutePage=intpagina

intrec=0

While intrec < RS.PageSize and not RS.EOF 
Login = Rs("U_ID")
Password = Rs("U_PASSWORD")
First = Rs("U_FIRST")
Last = Rs("U_LAST")
Dica = Rs("U_DICA")
City = Rs("U_CITY")
State = Rs("U_STATE")
Cadastrado = Rs("U_CADASTRADO")
ID = Rs("ID")

 Response.Write("<address><font face='Arial' style='font-size: 8pt; font-style: normal'>Email: <a href='mailto:" & Login & "@euclidesdacunha.com'>" & Login & "@euclidesdacunha.com</a></font></address> <address><font face='Arial' style='font-size: 8pt; font-style: normal'>Senha: <b>" & Password & "</b></font></address> <address><font face='Arial' style='font-size: 8pt; font-style: normal'>Dica de Senha: <b>" & Dica & "</b></font></address> <address><font face='Arial' style='font-size: 8pt; font-style: normal'>Nome e Sobrenome: <b>" & First & " " & Last & "</b></font></address> <address><font face='Arial' style='font-size: 8pt; font-style: normal'>Cidade / Estado: <b>" & City & "-" & State & "</b></font></address> <address><font style='font-style: normal' face='Arial' style='font-size: 8pt'>EuclidesNews: <b>Sim</b></font></address> <address><font face='Arial' style='font-size: 8pt; font-style: normal'>Cadastro: <b><font color=red>" & Cadastrado & "</font></b></font></address> <address><img border='0' src='linha.jpg' width='100%' height='1'></address> <address><font face='Arial' size='2' style='font-style: normal'><a href='excluirnot.asp?id=" & ID & "'>[Excluir]</a> <a href='alterarnot.asp?id=" & ID & "'>[Alterar]</a></font></address> <address><img border='0' src='linha.jpg' width='100%' height='1'></address><br>")
Rs.MoveNext
'Wend

intrec=intrec+1 

'Rs.Close
'Set Rs = Nothing

'Conn.Close
'Set Conn = Nothing

  IF RS.EOF then 
      response.write " " 
   END IF
Wend 'fim do loop

%></p>
</p></font>
   <font face="arial" style="font-size: 10pt"><b>
<%
IF intpagina > 1 then 
%> 
   <a href="users.asp?pagina=<%=intpagina-1%>">[Anterior]</a> 
<% 
ELSE
%> <font color="#C0C0C0">[Anterior]</font> 
<% 
END IF

IF strcomp(intpagina,RS.PageCount) <> 0 then 
%> 
   <a href="users.asp?pagina=<%=intpagina + 1%>">[Próxima]</a>  
<% 
ELSE
%> <font color="#C0C0C0">[Próximo] <% 
END IF
%></font></b><font color="black">Página:<b>
<% Response.Write intpagina %><br>
</b></font></font><font face="arial">
<span style="font-size: 8pt">Webmaster <b>Rai Rabelo</b></span></font>

alterarnot.asp - *Arquivo onde faço as modificações desejadas
<% 
set db = server.CreateObject("ADODB.connection")
dim caminho
caminho = server.MapPath("../database.mdb")
db.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & caminho
id = request.querystring("id")
sql = "select * from users where id = "&id &""
set rs = db.execute(sql)
Login = Rs("U_ID")
Password = Rs("U_PASSWORD")
First = Rs("U_FIRST")
Last = Rs("U_LAST")
Dica = Rs("U_DICA")
City = Rs("U_CITY")
State = Rs("U_STATE")
Cadastrado = Rs("U_CADASTRADO")
ID = Rs("ID")
%>
<html>
<head>
<title>:: Euclides Mail - Administra&ccedil;&atilde;o (Alterar Email)</title>
</head>

<body link="#0000FF" vlink="#0000FF" alink="#0000FF" bgcolor="#F0F8FF">
<form name="form1" method="post" action="alterar.asp">
  <table width="100%" border="0" cellspacing="5" cellpadding="0">
    <tr>
      <td>
<table width="100%" border="1" cellspacing="5" cellpadding="0" bordercolor="#000080" style="border-collapse: collapse">
          <tr> 
            <td colspan="2"></td>
          </tr>
          <tr> 
            <td colspan="2"><div align="center"><font color="#000080"><strong>Altera&ccedil;&atilde;o 
                de Email</strong></font></div></td>
          </tr>
          <tr> 
            <td><font color="#000080"><strong><br>
           id: </strong></font><input name="txtid" type="text" id="txtid2" class="input2" value="<%=ID%>" size="5" style="font-family: Verdana; font-size: 8 pt; border: 1px solid #808080">
<address><font face="Arial" style="font-size: 8pt; font-style: normal">Email:
    <input name="txtlogin" type="text" id="txtlogin2" value="<%=Login%>" size="15" style="font-family: Verdana; font-size: 8 pt; border: 1px solid #808080">@euclidesdacunha.com</a></font></address>
<address>
  <font face="Arial" style="font-size: 8pt; font-style: normal">Senha: <b><input name="txtpassword" type="text" id="txtpassword2" value="<%=Password%>" size="14" style="font-family: Verdana; font-size: 8 pt; border: 1px solid #808080"></b></font></address>
<address>
  <font face="Arial" style="font-size: 8pt; font-style: normal">Dica de Senha:
  <b><input name="txtdica" type="text" id="txtdica2" value="<%=Dica%>" size="40" style="font-family: Verdana; font-size: 8 pt; border: 1px solid #808080"></b></font></address>
<address>
  <font face="Arial" style="font-size: 8pt; font-style: normal">Nome: <input name="txtfirst" type="text" id="txtfirst" value="<%=First%>" size="17" style="font-family: Verdana; font-size: 8 pt; border: 1px solid #808080"> 
  Sobrenome: <b><input name="txtlast" type="text" id="txtlast2" value="<%=Last%>" size="17" style="font-family: Verdana; font-size: 8 pt; border: 1px solid #808080"></b></font></address>
<address>
  <font face="Arial" style="font-size: 8pt; font-style: normal">Cidade: <input name="txtcity" type="text" id="txtcity2" value="<%=City%>" size="30" style="font-family: Verdana; font-size: 8 pt; border: 1px solid #808080"> Estado:
  <b><input name="txtstate" type="text" id="txtstate2" value="<%=State%>" size="3" style="font-family: Verdana; font-size: 8 pt; border: 1px solid #808080"></b></font></address>
<address>
  <span style="font-style: normal"><font face="Arial" style="font-size: 8pt">
  Cadastrado: <b><input name="txtcadastrado" type="text" id="txtcadastrado2" value="<%=Cadastrado%>" size="3" style="font-family: Verdana; font-size: 8 pt; border: 1px solid #808080"></b></font></span></address>
</td>
</td>
          </tr>
          <tr> 
            <td colspan="2">&nbsp;</td>
          </tr>
          <tr> 
            <td colspan="2"><div align="center"> 
                <p> 
                  <input type="submit" name="submit" value="Alterar" style='font-family: "Verdana"; font-size: 8pt; color:#000080; font-weight:bold'>
                </p>
              </div></td>
          </tr>
          </table>
      </td>
    </tr>
  </table>
</form>
</body>
</html>

alterar.asp - *Arquivo eh feito o UPDATE
<% 
set db = server.CreateObject("ADODB.connection")
dim caminho
caminho = server.MapPath("../database.mdb")
db.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & caminho
id2 = request.form("txtid")
login2 = request.form("txtlogin")
password2 = request.form("txtpassword")
dica2 = request.form("txtdica")
first2 = request.form("txtfirst")
last2 = request.form("txtlast")
city2 = request.form("txtcity")
state2 = request.form("txtstate")
cadastrado2 = request.form("txtcadastrado")
sql = "Update users set login='"& login2 &"', password='"& password2 &"', dica='"& dica2 &"', first='"& first2 &"', last='"& last2 &"', city='"& city2 &"', state='"& state2 &"', cadastrado='"& cadastrado2 &"' where id='"& id2 &"'"
set rs = db.execute(sql)
response.redirect "users.asp"
rs.close
db.close
set rs = nothing
set db = nothing

%>

Obrigado,
Rai Rabelo

Attached Files


Nome: Rai Rabelo
Nick: PhoEniXFirE
Site: www.phoenixfire.com.br
MSN: rairabelo@phoenixfire.com.br
ICQ: 221966550

Asp - Flash - Javascript - HTML

#2 _UsP_

_UsP_

    Normal

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

Posted 29/04/2004, 20:31

Olá PhoEniXFirE, eu acho que ninguem te ajudou pois você não pois o erro que ta dando. Não precisa por o code inteiro ok? ;) bota so a linha que ta dando erro blz? Já que se trata de SQL bota a linha do erro e sua anterior...
Até mais...

#3 PhoEniXFirE

PhoEniXFirE

    12 Horas

  • Usuários
  • 133 posts
  • Sexo:Masculino
  • Localidade:Salvador / E. da Cunha
  • Interesses:Mulheres, Alcool e Rock

Posted 30/04/2004, 13:43

blz, então aí vai o erro:

Informações técnicas (para a equipe de suporte)

Tipo de erro:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][Driver ODBC para Microsoft Access] Too few parameters. Expected 8.
/euclidesmail2/admin/alterar.asp, line 16


Tipo de navegador:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; (R1 1.3); .NET CLR 1.1.4322)

Página:
POST 191 bytes to /euclidesmail2/admin/alterar.asp

POST Data:
txtid=1&txtlogin=central&txtpassword=244d71&txtdica=central@hotmail.com&txtfirst=Administra%E7%E3o&txtlast=Classificados&txtcity=Euclides+da+Cunha&txtstate=BA&txtcadastrado=Sim&submit=Alterar
Nome: Rai Rabelo
Nick: PhoEniXFirE
Site: www.phoenixfire.com.br
MSN: rairabelo@phoenixfire.com.br
ICQ: 221966550

Asp - Flash - Javascript - HTML
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