Teste 1>

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:** ``` Teste 1> ``` <% 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: " & "" & codUsuario & "" & "Nome: " & "" & cNome &"" ) 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("Os dados foram cadastrados com sucesso!") 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() %> ```

Cadastro de Usuários - SITE WAMI

``` ``` ```

CÓDIGO:	<%=codUsuarioWeb%>
LOGIN:
DESCRIÇÃO/NOME:
EMAIL:
CLIENTE:

amandapdias

Erro no cadastro de usuários (ASP)