
- Fórum WMO
- → Viewing Profile: Posts: M@rcelo
Community Stats
- Group Usuários
- Active Posts 39
- Profile Views 1152
- Member Title Turista
- Age Age Unknown
- Birthday Birthday Unknown
-
Sexo
Não informado
1
Neutral
User Tools
Friends
M@rcelo hasn't added any friends yet.
Latest Visitors
Posts I've Made
In Topic: Validar Formulario Com Funcao Asp
04/09/2008, 15:29
ok ,,VALEW

In Topic: Validar Formulario Com Funcao Asp
04/09/2008, 13:37
Cara,,
entao eu nao posso fazer nem assim
<form name="form1" method="post" action="#"
onsubmit=" return validasenha()">
sendo que a funcao validasenha é em asp tambem, onde eu faria os testes e daria o redirect para pagina correta se os dados fossem validados
olha abaixo:
obrigado
function validasenha()
response.buffer = true
email = request("email")
senha = request("senha")
if email <> "" and senha <> "" then
<!--#include file="conn.asp"-->
email = trim(email)
email = replace(email,"'","''")
senha = trim(senha)
senha = ucase(replace(senha,"'","''"))
SQL3 = "SELECT emai1l,senha clientes where email1 = '"&email&"' and senha = '"&senha&"' a
Set oRS3 = DBConnection.Execute(SQL3)
IF oRS3.eof then
msg="Cadstro não Localizado."
else
session("clienteativo") = "sim"
response.redirect "http://" & Request.ServerVariables("HTTP_HOST") & "/ok.asp"
End if
Set oRS3 = nothing
DBConnection.Close
else
msg="Informe o Email e a Senha."
end if
end function
entao eu nao posso fazer nem assim
<form name="form1" method="post" action="#"
onsubmit=" return validasenha()">
sendo que a funcao validasenha é em asp tambem, onde eu faria os testes e daria o redirect para pagina correta se os dados fossem validados
olha abaixo:
obrigado
function validasenha()
response.buffer = true
email = request("email")
senha = request("senha")
if email <> "" and senha <> "" then
<!--#include file="conn.asp"-->
email = trim(email)
email = replace(email,"'","''")
senha = trim(senha)
senha = ucase(replace(senha,"'","''"))
SQL3 = "SELECT emai1l,senha clientes where email1 = '"&email&"' and senha = '"&senha&"' a
Set oRS3 = DBConnection.Execute(SQL3)
IF oRS3.eof then
msg="Cadstro não Localizado."
else
session("clienteativo") = "sim"
response.redirect "http://" & Request.ServerVariables("HTTP_HOST") & "/ok.asp"
End if
Set oRS3 = nothing
DBConnection.Close
else
msg="Informe o Email e a Senha."
end if
end function
- Fórum WMO
- → Viewing Profile: Posts: M@rcelo
- Privacy Policy
- Regras ·