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' 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>
<%
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>