Ir para conteúdo

POWERED BY:

Arquivado

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

amandapdias

Erro no cadastro de usuários (ASP)

Por , em ASP Clássico

Recommended Posts

amandapdias    0

amandapdias
Postado

Galera, estou criando esta tela de cadastro, ela abre normalmente mas quando clico no botão cadastrar, ele não gera nenhum ação.

 

Alguém pode me ajudar a descobrir o erro? (lembrando que ontem testei e estava funcionando)

 

Segue o código:

 

<html>
<head>
<title>Teste 1></title>
<style type="text/css">
body {
font-family: 'Open Sans', sans-serif;
color: black;
background-color: #FFFFD3
}
ul.navbar {
list-style-type: none;
padding: 0;
margin: 0;
position: absolute;
top: 2em;
left: 1em;
width: 9em
}
h1 {
font-family: 'Open Sans', sans-serif;
}
ul.navbar li {
background: white;
margin: 0.5em 0;
padding: 0.3em;
border-right: 1em solid black
}
ul.navbar a {
text-decoration: none
}
a:link {
color: blue
}
a:visited {
color: purple
}
</style>
</head>
<body>
<center>
<form action="" method="get">
<table border="1px">
<tr style = color:black;background-color:#F5F2F0;><td align="center" style = "font-size:15px; border-radius:10px;">Digite seu login:</td><td align="middle">
<input name="txt_login" type="text"></td>
<td>
<input name="bt_verificar" type="submit" value="Verificar">
</td></tr>
<tr>
</table>
</form>
<%
Dim Conn
Dim sSQL
Dim rsTmp
Dim codUsuario
Set Conn = Server.CreateObject("ADODB.CONNECTION")
Set rsTmp = Server.CreateObject("ADODB.Recordset")
Conn.Open("FILEDSN=sitewami;USERID=dbsitewami;PASSWORD=misi08;")
'Seleciona o login na tabela de usuários do site WA
sSQL = "Select cnome, cdescricao from usuario where upper(cnome) = upper('"&request("txt_login")&"')"
codUsuario = ""
rsTmp.Open sSQL, Conn
if Not rsTmp.EOF then
codUsuario = rsTmp("cnome")
cNome = rsTmp ("cDescricao")
rsTmp.MoveNext
end if
if codUsuario <> empty then
Response.Write ("Este usuário já existe, login: " & "<b style=color:#FF0000;>" & codUsuario & "</B>" & "Nome: " & "<b style=color:#FF0000;>" & cNome &"</B>" )
else
Response.Write ("O usuário não existe.")
end if
rsTmp.Close
Conn.Close()
%>
<%
if Request.Form("codUsuarioWeb") <> empty then
'Conecta ao SITEWAMI
Set Conn = Server.CreateObject("ADODB.CONNECTION")
Conn.Open("FILEDSN=sitewami;USERID=dbsitewami;PASSWORD=misi08;")
'Insert na tabela usuário
Conn.Execute("Insert into usuario (ccodigousuario,cnome,cdescricao,lativo, csenha,dExpired,cEmail) "&_
"values ('"& Request.Form("codUsuarioWeb") &"',"&_
"'"& Request.Form("txt_cnome") &"',"&_
"'"& Request.Form("txt_cdescricao") &"',"&_
"'1',"&_
"'÷áíé±²³´µ¶',"&_
"dateadd(month,6,getdate()),"&_
"'"& Request.Form("txt_Email") &"'"&_
")")
Conn.Close
'Response.Write(query)
Response.Write("<center>Os dados foram cadastrados com sucesso!</center>")
end if
%>
<%
Dim codUsuarioWeb
Set Conn = Server.CreateObject("ADODB.CONNECTION")
Set rsTmp = Server.CreateObject("ADODB.Recordset")
Conn.Open("FILEDSN=sitewami;USERID=dbsitewami;PASSWORD=misi08;")
'Gerar código do usuário automaticamente
sSQL = "select max(ccodigousuario) + 1 ccodigousuario from usuario"
rsTmp.Open sSQL, Conn
if Not rsTmp.EOF then
codUsuarioWeb = rsTmp("ccodigousuario")
rsTmp.MoveNext
end if
rsTmp.Close
Conn.Close()
%>
<br>
<p>
<div align="center" style=background-color:#A6BCFF;color:#fff;font-size:23px;border-radius:15px;"><b>Cadastro de Usuários - SITE WAMI</b></div>
<form method="POST" id="formulario" action="index.asp">
<table>
<tr><td>CÓDIGO:</td><td><%=codUsuarioWeb%></td></tr>
<tr><td>LOGIN:<td><input type = "text" id="txt_cnome" name="txt_cnome" value=""></td></tr>
<tr><td>DESCRIÇÃO/NOME:<td><input type = "text" id="txt_cdescricao" name="txt_cdescricao" value="" style="width:300px;"></td></tr>
<tr><td>EMAIL:<td><input type="text" id="txt_email" name="txt_email" value="" style="width:300px;"></td></tr>
<tr><td>CLIENTE:<td>
<select name="sl_cliente" id="sl_cliente" onchange="alert(this.value);">
<%
Dim listaClientes
Set Conn = Server.CreateObject("ADODB.CONNECTION")
Set rsTmp = Server.CreateObject("ADODB.Recordset")
Conn.Open("FILEDSN=sitewami;USERID=dbsitewami;PASSWORD=misi08;")
'Listar Clientes
sSQL = "select ccodigocliente,crazaosocial from cliente order by crazaosocial"
rsTmp.Open sSQL, Conn
while Not rsTmp.EOF
Response.Write "<option value="&rsTmp("ccodigocliente")&">"&rsTmp("crazaosocial")&"</option>"
rsTmp.MoveNext
wend
rsTmp.Close
Conn.Close
%>
</select></td></tr>
</table>
<br>
<!-- Botões -->
<div align="center">
<input type="button" id="btCadastrar" name="btCadastrar" value="Cadastrar" onclick="ValidaCadastro()"/>
<input type="button" name="btCancelar" id= "btCancelar" value="Cancelar" onclick="javascript: location='index.asp';" />
<input type="button" name="btLimpar" id= "btLimpar" value="Limpar" onclick="javascript: location='index.asp';" />
</div>
</form>
<!-- fim dos Botões -->
<script language="javascript">
function ValidaCadastro()
{
if ((document.getElementById("codUsuarioWeb").value != "")
&& (document.getElementById("txt_cnome").value != "")
&& (document.getElementById("txt_cdescricao").value != "")
&& (document.getElementById("txt_email").value != ""))
{
document.getElementById('formulario').submit();
}
else
{
alert("Os dados com * são obrigatórios.");
}
}
</script>
</center>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

rafaeldupalio    5

rafaeldupalio
Postado

essa apgina esta salva com extensao .asp? se nao precisa salvar em .asp para executar as strings sou noob estout entando ajudar, verifique tambem se nao esta com algum desvio condicional que esta "pulando" alguma parte. posso estar falando besteira até pq vc parece entender bem mas as vezes passa algo despercebido.

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