Erro no cadastro de usuários (ASP)
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>
<link href='[http://fonts.googleapis.com/css?family=Open+Sans:300italic,400italic,400,300,600,700,800](http://fonts.googleapis.com/css?family=Open+Sans:300italic,400italic,400,300,600,700,800)' rel='stylesheet' type='text/css'>
<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>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><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><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>Discussão (3)
Carregando comentários...