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, é 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"> <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
Pergunta
PhoEniXFirE
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, é 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"> <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çã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çã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"> </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 é 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
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.