mestre fyoda Postado Março 12, 2004 Denunciar Share Postado Março 12, 2004 Erro de tempo de execução do Microsoft VBScript erro '800a000d' Tipos incompatíveis: 'dados' /clanevil/alterar.asp, line 37 <!--#include file="restrito.asp"--><!--#include file="conectar.asp"--><% AbreConexaoIf Request.Form("enviado") = "sim" Then nome = Replace(Request.Form("nome"), "'", "/")snome = Replace(Request.Form("snome"), "'", "/")email = Replace(Request.Form("email"), "'", "/")login = Replace(Request.Form("login"), "'", "/")oldsenha = Replace(Request.Form("oldsenha"), "'", "/")senha = Replace(Request.Form("senha"), "'", "/")c_senha = Replace(Request.Form("c_senha"), "'", "/")sexo = Replace(Request.Form("sexo"), "'", "/")Set RS = Conexao.Execute("SELECT * FROM usuarios WHERE oldsenha = '"&senha&"'")If oldsenha <> senha ThenResponse.Write "A senha não antiga não confere , você presiza digita-la para alterar qualquer coiza .<a href=alterar.asp>Voltar</a>"ElseConexao.Execute("UPDATE usuarios SET nome = '"&nome&"', snome = '"&snome&"', email = '"&email&"' , login = '"&login&"', senha = '"&senha&"', sexo = '"&sexo&"' WHERE login = '"&Session("login")&"'")Response.Write "Dados alterados"End IfElse%><form method="POST" action="alterar.asp"><input type="hidden" name="enviado" value="sim"><body bgcolor="#C0C0C0"><div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="339" height="242" id="AutoNumber1" bgcolor="#C0C0C0"> <tr> <td width="339" height="58"> <fieldset> <p align="center"><font face="Tahoma"><b>Alterar Dados Cadastrados</b></font> </p> </center> <p><b><font size="2" face="Verdana"> Nome: </font></b><font face="Verdana"><b><font size="2"> </font><input type="text" name="nome" size="20" maxlength="20" value="<%=dados("nome")%>"></b></font></p> <p><b><font size="2" face="Verdana"> Sobre Nome: </font></b><font face="Verdana"><b> <input type="text" name="snome" size="20" maxlength="20" value="<%=dados("snome")%>"></b></font></p> <p><b><font size="2" face="Verdana"> E-mail: </font> </b><font face="Verdana"><b> <input type="text" name="email" size="20" maxlength="40" value="<%=dados("email")%>"></b></font></p> <p><b><font size="2" face="Verdana"> Sexo: <select disabled size="1" name="sexo"> <option>---( Escolha um Sexo)---</option> <option value="masculino">Masculino</option> <option value="feminino">Feminino</option> <option value="Lesbica">Lesbica</option> <option value="Gay">Gay</option> </select></font></b></p> <b><font size="2" face="Verdana"> Login: </font></b> <font face="Verdana"><b> <input type="text" disabled name="login" size="20" maxlength="40" value="<%=dados("login")%>"></b></font> <p><b><font size="2" face="Verdana"> Senha: </font></b><font face="Verdana"><b> <input type="password" name="senha" size="20" maxlength="8" value="<%=dados("senha")%>"></b></font></p> <p><b><font size="2" face="Verdana"> Confirme a senha: </font></b><font face="Verdana"><b> <input type="password" name="c_senha" size="20" maxlength="8"></b></font></p> <p align="center"> <input type="submit" value="Alterar"></form><% End IfFechaConexao %> Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Reginaldo ASP Postado Março 12, 2004 Denunciar Share Postado Março 12, 2004 você tá pedindo umregistro do recordset, mas você não abriu o recordser "dados" Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 mestre fyoda Postado Março 12, 2004 Autor Denunciar Share Postado Março 12, 2004 como faço isso , me ajuda cara ,me passa o meu codigo corrigido . Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Reginaldo ASP Postado Março 12, 2004 Denunciar Share Postado Março 12, 2004 troca dados por rsvocê já usou ASP antes? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 mestre fyoda Postado Março 12, 2004 Autor Denunciar Share Postado Março 12, 2004 nunca, você poderia me ajudar a colocar o codigocerto . Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
mestre fyoda
Erro de tempo de execução do Microsoft VBScript erro '800a000d'
Tipos incompatíveis: 'dados'
/clanevil/alterar.asp, line 37
<!--#include file="restrito.asp"-->
<!--#include file="conectar.asp"-->
<% AbreConexao
If Request.Form("enviado") = "sim" Then
nome = Replace(Request.Form("nome"), "'", "/")
snome = Replace(Request.Form("snome"), "'", "/")
email = Replace(Request.Form("email"), "'", "/")
login = Replace(Request.Form("login"), "'", "/")
oldsenha = Replace(Request.Form("oldsenha"), "'", "/")
senha = Replace(Request.Form("senha"), "'", "/")
c_senha = Replace(Request.Form("c_senha"), "'", "/")
sexo = Replace(Request.Form("sexo"), "'", "/")
Set RS = Conexao.Execute("SELECT * FROM usuarios WHERE oldsenha = '"&senha&"'")
If oldsenha <> senha Then
Response.Write "A senha não antiga não confere , você presiza digita-la para alterar qualquer coiza .<a href=alterar.asp>Voltar</a>"
Else
Conexao.Execute("UPDATE usuarios SET nome = '"&nome&"', snome = '"&snome&"', email = '"&email&"' , login = '"&login&"', senha = '"&senha&"', sexo = '"&sexo&"' WHERE login = '"&Session("login")&"'")
Response.Write "Dados alterados"
End If
Else
%>
<form method="POST" action="alterar.asp">
<input type="hidden" name="enviado" value="sim">
<body bgcolor="#C0C0C0">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="339" height="242" id="AutoNumber1" bgcolor="#C0C0C0">
<tr>
<td width="339" height="58">
<fieldset> <p align="center"><font face="Tahoma"><b>Alterar Dados Cadastrados</b></font>
</p>
</center>
<p><b><font size="2" face="Verdana"> Nome: </font></b><font face="Verdana"><b><font size="2">
</font><input type="text" name="nome" size="20" maxlength="20" value="<%=dados("nome")%>"></b></font></p>
<p><b><font size="2" face="Verdana"> Sobre Nome:
</font></b><font face="Verdana"><b>
<input type="text" name="snome" size="20" maxlength="20" value="<%=dados("snome")%>"></b></font></p>
<p><b><font size="2" face="Verdana">
E-mail: </font>
</b><font face="Verdana"><b>
<input type="text" name="email" size="20" maxlength="40" value="<%=dados("email")%>"></b></font></p>
<p><b><font size="2" face="Verdana">
Sexo: <select disabled size="1" name="sexo">
<option>---( Escolha um Sexo)---</option>
<option value="masculino">Masculino</option>
<option value="feminino">Feminino</option>
<option value="Lesbica">Lesbica</option>
<option value="Gay">Gay</option>
</select></font></b></p>
<b><font size="2" face="Verdana">
Login: </font></b>
<font face="Verdana"><b>
<input type="text" disabled name="login" size="20" maxlength="40" value="<%=dados("login")%>"></b></font>
<p><b><font size="2" face="Verdana">
Senha: </font></b><font face="Verdana"><b>
<input type="password" name="senha" size="20" maxlength="8" value="<%=dados("senha")%>"></b></font></p>
<p><b><font size="2" face="Verdana"> Confirme a senha:
</font></b><font face="Verdana"><b>
<input type="password" name="c_senha" size="20" maxlength="8"></b></font></p>
<p align="center">
<input type="submit" value="Alterar">
</form>
<% End If
FechaConexao %>
Link para o comentário
Compartilhar em outros sites
4 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.