Problema

[salmeida 0]

JA VI, REVI, E REVI NOVAMENTE E NÃO ACHO O ERRO....

COMOEU DESCREVI NO FINAL DO CODIGO "NOME EM BRANCO" PARA QUANDO ELE DESSE ERRO... E ELE SÓ ME DA NOME EM BRANCO... MAIS AI JA TIREI E DA UM ERRO NA INSERT.... ALGUÉM PODE ME AJUDA

 

<%Dim objConn, objRs, strQuery, strConnection, Reg, SqlDim email, senha, nome, apelido, endereco, complemento, bairro, cidade, estado, pais, cep Dim telefone, celular, sexo, nascimento, estadocivil, profissao, dia, mes, ano, atualizacao, dataDim Bc, Browserip = Request.ServerVariables("REMOTE_ADDR")email        = Request.Form("email")senha        = Request.Form("senha")nome         = Request.Form("nome")apelido      = Request.Form("apelido") endereco     = Request.Form("endereco")complemento  = Request.Form("complemento") &" "bairro       = Request.Form("bairro")cidade       = Request.Form("cidade")estado       = Request.Form("estado")pais         = Request.Form("pais")cep          = Request.Form("cep")telefone     = Request.Form("telefone") &" "celular      = Request.Form("celular") &" "sexo         = Request.Form("sexo")dia          = Request.Form("dia") mes          = Request.Form("mes")ano          = Request.Form("ano")nascimento   = Request.Form("dia") &"/" &Request.Form("mes") &"/" &Request.Form("ano")estadocivil  = Request.Form("estadocivil") &" "profissao    = Request.Form("profissao") &" "atualizacao  = Request.Form("atualizacao")Data         = Day(date) &"/" &Month(date) &"/" &year(date)set BC = server.createobject("MSWC.BrowserType")Browser = BC.Browser & " " & BC.VersionIf Atualizacao <> "S" Then   atualizacao = "N"End ifSession("email")       = emailSession("senha")       = senhaSession("nome")        = nome Session("apelido")     = apelidoSession("endereco")    = enderecoSession("complemento") = complemento &" "Session("bairro")      = bairroSession("cidade")      = cidadeSession("estado")      = estadoSession("pais")        = paisSession("cep")         = cepSession("telefone")    = telefone Session("celular")     = celular Session("sexo")        = sexoSession("dia")         = diaSession("mes")         = mesSession("ano")         = anoSession("estadocivil") = estadocivil Session("profissao")   = profissao Set objConn =  Server.CreateObject("ADODB.Connection")objConn.Open "DBQ=" & Server.MapPath("dados/webmensagem.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"sql = "SELECT * FROM Cadastro WHERE apelido = '" & apelido & "'"set Reg = server.createobject("adodb.recordset")	Reg.open sql, objconn, 1, 3	If not Reg.EOF Then   session("cadastro") = "achou"   response.redirect "index.asp?link=cadastro&opcao=1"End IfIf nome <> ""  Then'Insere os dados na tabela abertastrQuery = "INSERT INTO cadastro (Email, Senha, Nome, Apelido, Endereco, Complemento, Bairro, Cidade, Estado, Pais, CEP, Telefone, Celular, Sexo, DNasc, ECivil, Profissao, receberatualizacao, cadastro, browser, IP) VALUES" _          &"('"&email&"','"&senha&"','"&nome&"','"&apelido&"','"&endereco&"','"&complemento&"','"&bairro&"','"&cidade&"','"&estado&"','"&pais&"','"&cep&"','"&telefone&"','"&celular&"','"&sexo&"','"&"01/01/1900"&"','"&estadocivil&"','"&profissao&"','"&atualizacao&"','"&data&"','"&browser&"','"&Session("IP")&"')"'response.Write StrQuery    'Executa a inserção no Banco de Dados Set ObjRs = objConn.Execute(strQuery)    'Caso ocorra um erro esta função de erro será chamadaOn error Resume Next'Fecha o Objeto de ConexãoobjConn.closeConexao.Close'"APAGA" qualquer instancia que possa ter no objeto objRs e objConnSet objRs   = NothingSet objConn = Nothing'Caso a função On Error Resume Next não tenha sido chamada o objeto err será = a 0if err > 0 Then	Session("email")       = ""    Session("nome")        = ""    Session("apelido")     = ""    Session("endereco")    = ""    Session("complemento") = ""    Session("bairro")      = ""    Session("cidade")      = ""    Session("estado")      = ""    Session("pais")        = ""    Session("cep")         = ""    Session("telefone")    = ""    Session("celular")     = ""    Session("sexo")        = ""    Session("dia")         = ""    Session("mes")         = ""    Session("ano")         = ""    Session("estadocivil") = ""    Session("profissao")   = ""    Session("atualizacao") = ""    session("cadastro")    = ""		'Redireciona o usuário caso não tenha ocorrido erro na transação	response.redirect "sucesso.asp?sucesso=" &apelidoElse    response.write "Código do erro: " &err &"<br>"    response.write "Linha de SQL..: " &strQuery	end ifElse    response.write "O nome esta em branco "End If%>

ABRAÇOS

[Salgado 4]

Tira o On Error Resume Next, e verifica qual é a mensagem de erro informada.

[salmeida 0]

Tira o On Error Resume Next, e verifica qual é a mensagem de erro informada.

AI É QUE ESTA O PROBLEMA....ELE FICA PAGINA EM BRANCO... NÃO REDIRECIONA E NEM CADASTRA NO BANCO DE DADOS...

[Salgado 4]

Testa com esse e veja se mostra algum erro

<%

Dim objConn, objRs, strQuery, strConnection, Reg, Sql

Dim email, senha, nome, apelido, endereco, complemento, bairro, cidade, estado, pais, cep

Dim telefone, celular, sexo, nascimento, estadocivil, profissao, dia, mes, ano, atualizacao, data

Dim Bc, Browser

 

ip = Request.ServerVariables("REMOTE_ADDR")

 

email = Request.Form("email")

senha = Request.Form("senha")

nome = Request.Form("nome")

apelido = Request.Form("apelido")

endereco = Request.Form("endereco")

complemento = Request.Form("complemento") &" "

bairro = Request.Form("bairro")

cidade = Request.Form("cidade")

estado = Request.Form("estado")

pais = Request.Form("pais")

cep = Request.Form("cep")

telefone = Request.Form("telefone") &" "

celular = Request.Form("celular") &" "

sexo = Request.Form("sexo")

dia = Request.Form("dia")

mes = Request.Form("mes")

ano = Request.Form("ano")

nascimento = Request.Form("dia") &"/" &Request.Form("mes") &"/" &Request.Form("ano")

estadocivil = Request.Form("estadocivil") &" "

profissao = Request.Form("profissao") &" "

atualizacao = Request.Form("atualizacao")

Data = Day(date) &"/" &Month(date) &"/" &year(date)

 

set BC = server.createobject("MSWC.BrowserType")

Browser = BC.Browser & " " & BC.Version

 

If Atualizacao <> "S" Then

atualizacao = "N"

End if

 

Session("email") = email

Session("senha") = senha

Session("nome") = nome

Session("apelido") = apelido

Session("endereco") = endereco

Session("complemento") = complemento &" "

Session("bairro") = bairro

Session("cidade") = cidade

Session("estado") = estado

Session("pais") = pais

Session("cep") = cep

Session("telefone") = telefone

Session("celular") = celular

Session("sexo") = sexo

Session("dia") = dia

Session("mes") = mes

Session("ano") = ano

Session("estadocivil") = estadocivil

Session("profissao") = profissao

 

Set objConn = Server.CreateObject("ADODB.Connection")

objConn.Open "DBQ=" & Server.MapPath("dados/webmensagem.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"

 

sql = "SELECT * FROM Cadastro WHERE apelido = '" & apelido & "'"

set Reg = server.createobject("adodb.recordset")

Reg.open sql, objconn, 1, 3

 

If not Reg.EOF Then

session("cadastro") = "achou"

response.redirect "index.asp?link=cadastro&opcao=1"

End If

 

If nome <> "" Then

 

'Insere os dados na tabela aberta

 

strQuery = "INSERT INTO cadastro (Email, Senha, Nome, Apelido, Endereco, Complemento, Bairro, Cidade, Estado, Pais, CEP, Telefone, Celular, Sexo, DNasc, ECivil, Profissao, receberatualizacao, cadastro, browser, IP) VALUES" _

&"('"&email&"','"&senha&"','"&nome&"','"&apelido&"','"&endereco&"','"&complemento&"','"&bairro&"','"&cidade&"','"&estado&"','"&pais&"','"&cep&"','"&telefone&"','"&celular&"','"&sexo&"','"&"01/01/1900"&"','"&estadocivil&"','"&profissao&"','"&atualizacao&"','"&data&"','"&browser&"','"&Session("IP")&"')"

 

response.Write StrQuery

 

'Executa a inserção no Banco de Dados

Set ObjRs = objConn.Execute(strQuery)

 

'Caso ocorra um erro esta função de erro será chamada

'On error Resume Next

 

'Fecha o Objeto de Conexão

objConn.close

Conexao.Close

 

'"APAGA" qualquer instancia que possa ter no objeto objRs e objConn

Set objRs = Nothing

Set objConn = Nothing

 

'Caso a função On Error Resume Next não tenha sido chamada o objeto err será = a 0

'if err > 0 Then

'Session("email") = ""

' Session("nome") = ""

' Session("apelido") = ""

' Session("endereco") = ""

' Session("complemento") = ""

' Session("bairro") = ""

' Session("cidade") = ""

' Session("estado") = ""

' Session("pais") = ""

' Session("cep") = ""

' Session("telefone") = ""

' Session("celular") = ""

' Session("sexo") = ""

' Session("dia") = ""

' Session("mes") = ""

' Session("ano") = ""

' Session("estadocivil") = ""

' Session("profissao") = ""

' Session("atualizacao") = ""

' session("cadastro") = ""

 

'Redireciona o usuário caso não tenha ocorrido erro na transação

'response.redirect "sucesso.asp?sucesso=" &apelido

'Else

' response.write "Código do erro: " &err &"<br>"

' response.write "Linha de SQL..: " &strQuery

'end if

'Else

' response.write "O nome esta em branco "

'End If

%>

[/tr]

[salmeida 0]

Erro de compilação do Microsoft VBScript (0x800A03F6)'End' esperado/helptele/web/grava_cadastro.asp, line 125

[Salgado 4]

Opa, descomente o ultimo End If