5 replies to this topic

[mkboy]

Estou tentando fazer um redirect e nada.

Se algum campo estiver vazio, redirecione para cadastro.asp
senão redirecione para login.asp


Onde errei?
O que mudar?

<%@ language="vbscript" %>

<%
nome  =  Request.form("nome")
nascimento = Request.form("nascimento")
cpf  = Request.form("cpf")
email  = Request.form("email")
ddd  = Request.form("ddd")
tel  = Request.form("tel")
cidade  = Request.form("cidade")
estado  = Request.form("estado")
login  = Request.form("login")
senha  = Request.form("senha")
ip  =    Request.ServerVariables("REMOTE_ADDR")

'On error resume next

set boletimDB = server.CreateObject("ADODB.Connection")
boletimDB.open "boletim"

        theSQL = "insert into cadastro"
        theSQL = theSQL & "(nome, nascimento, cpf, email, ddd, tel, cidade,
estado, login, senha, data, ip) "
        theSQL = theSQL & " values ('"&nome&"','"&nascimento&"','"&cpf&"','"&email&"','"&ddd&"','"&tel&"','"&cidade&"',
'"&estado&"','"&login&"','"&senha&"','" & NOW & "','" &ip& "')"

 
boletimDB.Execute(theSQL)

boletimDB.close
set boletimDB = Nothing

  if Err.number = 0 then
response.redirect"cadastro.asp"
else
response.redirect "login.asp"
end if
%>

[dmaneiro]

cara tenta por assim

response.redirect("url.asp")

[mkboy]

Coloquei os parenteses e aconteceu isso:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Field 'cadastro.nome' cannot be a zero-length string.

/intranet/interative/processa_cadastro.asp, line 34

[Rodrigo]

Coloquei os parenteses e aconteceu isso:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Field 'cadastro.nome' cannot be a zero-length string.

/intranet/interative/processa_cadastro.asp, line 34

esse erro ta falando q o campo nome na tabela cadastro naum pode ser = 0

[gnomo]

tenta assim
response.redirect "url.html"

Valeu :ok:

[Nicholas Pufal]

Ae cara,

Faz assim:

<%@ language="vbscript" %>

<%
nome  =  Request.form("nome")
nascimento = Request.form("nascimento")
cpf  = Request.form("cpf")
email  = Request.form("email")
ddd  = Request.form("ddd")
tel  = Request.form("tel")
cidade  = Request.form("cidade")
estado  = Request.form("estado")
login  = Request.form("login")
senha  = Request.form("senha")
ip  =    Request.ServerVariables("REMOTE_ADDR")

if nome = "" or nascimento = "" or cpf = "" or email = "" or ddd = "" or tel = "" or cidade = "" or estado = "" or login = "" or senha = "" then
response.redirect("cadastro.asp")
end if


set boletimDB = server.CreateObject("ADODB.Connection")
boletimDB.open "boletim"

        theSQL = "insert into cadastro"
        theSQL = theSQL & "(nome, nascimento, cpf, email, ddd, tel, cidade, 
estado, login, senha, data, ip) "
        theSQL = theSQL & " values ('"&nome&"','"&nascimento&"','"&cpf&"','"&email&"','"&ddd&"','"&tel&"','"&cidade&"',
'"&estado&"','"&login&"','"&senha&"','" & NOW & "','" &ip& "')"

  
boletimDB.Execute(theSQL)

boletimDB.close
set boletimDB = Nothing


%>

Dessa forma, todos os campos serão necessários e se algum estiver em branco, ele redireciona para a cadastro.asp, caso contrário (todos estiverem preenchidos) ele simplesmente executa o código de inserir no BD.

Abraços