Photo Gallery Member List Search Calendars FAQ Ticket List Log Out


HELP! Validation Script Doesn't Work

  		Logged in as: Guest
arrSession:exec spGetSession 2,3,21
Active Users: There are 0 members and 0 guests.
Users viewing this topic: none
 

 

  
 
  Printable Version
All Forums >> [Scripting] >> ASP >> HELP! Validation Script Doesn't Work
  Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks! 		Page: [1]
Login
Message << Older Topic   Newer Topic >>
HELP! Validation Script Doesn't Work - 5/23/2001 2:44:17 AM   
  varcesi

 

Posts: 12
Score: 0
Joined: 5/23/2001
From: Italy
Status: offline 		I have a set of two files to validate several forms but they just don't work. HELP!!!
Here are the files.

mainfile:
<%@ Language=VBScript %>
<% on error resume next %>
'<!--#INCLUDE file="valfunc.asp"-->
<%
valido = False
errors = ""
finalURL = Request.Form("URL")
formPost = "<form action=""" & finalURL & """ method=""POST"">" & vbCrlf
dados = "<div>"

For i = 1 To Request.Form.Count

fieldName = Request.Form.Key(i)
fieldValue = Request.Form.Item(i)

If fieldName = "fullname" Then

valido = val "Nome Completo",fieldValue,"fullname",,"200","1"
if valido = false then

exit for

else

formPost = formPost & "<input type=""hidden"" name=""" & fieldName & """ value=""" & fieldValue & """>" & vbCrlf
dados = dados & "Nome Completo: " & fieldValue & "<br>"

end if

ElseIf fieldName = "sex" Then

formPost = formPost & "<input type=""hidden"" name=""" & fieldName & """ value=""" & fieldValue & """>" & vbCrlf
dados = dados & "Sexo: " & fieldValue & "<br>"

ElseIf fieldName = "BDay" Then

dia = Request.Form("BDday")
mes = Request.Form("BDmonth")
ano = Request.Form("BDyear")

data = mes & "/" & dia & "/" & ano

valido = val "Data de Nascimento",data,"bdate",,,"1"

if valido = false then

exit for

else

formPost = formPost & "<input type=""hidden"" name=""" & fieldName & """ value=""" & fieldValue & """>" & vbCrlf
dados = dados & "Data de Nascimento: " & fieldValue & "<br>"

end if

ElseIf fieldName = "address" Then

valido = val "Morada",fieldValue,"string",,"200","1"

if valido = false then

exit for

else

formPost = formPost & "<input type=""hidden"" name=""" & fieldName & """ value=""" & fieldValue & """>" & vbCrlf
dados = dados & "Morada: " & fieldValue & "<br>"

end if

ElseIf fieldName = "CP1" Then

c1 = Request.Form("CP1")
c2 = Request.Form("CP2")

postalcode = c1 & "-" & c2

valido = val "Codigo Postal",postalcode,"postal",,,"1"

if valido = false then

exit for

else

formPost = formPost & "<input type=""hidden"" name=""CP1"" value=""" & c1 & """>" & vbCrlf & "<input type=""hidden"" name=""CP2"" value=""" & c2 & """>"
dados = dados & "Codigo Postal: " & postalcode & "<br>"

end if

ElseIf fieldName = "localidade" Then

valido = val "Localidade",fieldValue,"string",,,"1"

if valido = false then

exit for

else

formPost = formPost & "<input type=""hidden"" name=""" & fieldName & """ value=""" & fieldValue & """>" & vbCrlf
dados = dados & "localidade: " & fieldValue & "<br>"

end if

ElseIf fieldName = "mail" Then

valido = val "E-mail",fieldValue,"mail",,,"1"
if valido = false then

exit for

else

formPost = formPost & "<input type=""hidden"" name=""" & fieldName & """ value=""" & fieldValue & """>" & vbCrlf
dados = dados & "E-mail: " & fieldValue & "<br>"

end if

ElseIf fieldName = "schollevel" Then

valido = val "Grau Academico",fieldValue,"string",,,"0"

if valido = false then

exit for

else

formPost = formPost & "<input type=""hidden"" name=""" & fieldName & """ value=""" & fieldValue & """>" & vbCrlf
dados = dados & "Grau Academico: " & fieldValue & "<br>"

end if

ElseIf fieldName = "jobsector" Then

valido = val "Sector onde Trabalha",fieldValue,"string",,,"0"

if valido = false then

exit for

else

formPost = formPost & "<input type=""hidden"" name=""" & fieldName & """ value=""" & fieldValue & """>" & vbCrlf
dados = dados & "Sector onde Trabalha: " & fieldValue & "<br>"

end if

ElseIf fieldName = "job" Then

valido = val "Cargo",fieldValue,"string",,,"0"

if valido = false then

exit for

else

formPost = formPost & "<input type=""hidden"" name=""" & fieldName & """ value=""" & fieldValue & """>" & vbCrlf
dados = dados & "Cargo: " & fieldValue & "<br>"

end if

ElseIf fieldName = "username" Then

valido = val "Nome de Utilizador",fieldValue,"username","3","15","1"

if valido = false then

exit for

else

formPost = formPost & "<input type=""hidden"" name=""" & fieldName & """ value=""" & fieldValue & """>" & vbCrlf
dados = dados & "Nome de Utilizador: " & fieldValue & "<br>"

end if

ElseIf fieldName = "password" Then

valido = val "Password",fieldValue,"username","3","15","1"

if valido = false then

exit for

else

formPost = formPost & "<input type=""hidden"" name=""" & fieldName & """ value=""" & fieldValue & """>" & vbCrlf
dados = dados & "Password: " & fieldValue & "<br>"

end if

ElseIf fieldName = "password_c" Then

If fieldValue <> Request.Form("password") Then

valido = false
errors = errors & "As duas passwords nao correspondem."
Exit For

Else

valido = val "Password",fieldValue,"username","3","15","1"

if valido = false then

Exit For

else

formPost = formPost & "<input type=""hidden"" name=""" & fieldName & """ value=""" & fieldValue & """>" & vbCrlf
dados = dados & "Password: " & fieldValue & "<br>"

end if

End If

ElseIf fieldName = "question" Then

valido = val "Pergunta",fieldValue,"string",,"200","1"

if valido = false then

exit for

else

formPost = formPost & "<input type=""hidden"" name=""" & fieldName & """ value=""" & fieldValue & """>" & vbCrlf
dados = dados & "Pergunta: " & fieldValue & "<br>"

end if

ElseIf fieldName = "answer" Then

valido = val "Resposta",fieldValue,"string",,"200","1"

if valido = false then

exit for

else

formPost = formPost & "<input type=""hidden"" name=""" & fieldName & """ value=""" & fieldValue & """>" & vbCrlf
dados = dados & "Resposta: " & fieldValue & "<br>"

end if

ElseIf fieldName = "newletter" Then

formPost = formPost & "<input type=""hidden"" name=""" & fieldName & """ value=""" & fieldValue & """>" & vbCrlf
dados = dados & "Desejo receber a newsletter: " & fieldValue & "<br>"

ElseIf fieldName = "banned" Then

formPost = formPost & "<input type=""hidden"" name=""banned"" value=""0"">" & vbCrlf

ElseIf fieldName = "points" Then

formPost = formPost & "<input type=""hidden"" name=""points"" value=""0"">" & vbCrlf

Else

formPost = formPost & "<input type=""hidden"" name=""" & fieldName & """ value=""" & fieldValue & """>" & vbCrlf
dados = dados & fieldName & ": " & fieldValue & "<br>"

End If

Next

if valido = False then

errors = errors & "<p><a href=""javascript:history.back()"">Corrigir</a></p>" & vbCrlf
response.write(errors)

else

formPost = formPost & vbCrlf & "<input type=""submit"" value=""Confirmar Dados"">" & vbCrlf & "<input type=""button"" value=""Alterar Dados"" onClick=""JavaScript:history.back()""></form>"
dados = dados & "</p></div>"
' response.write(formPost)
' response.write(dados)

end if

%>

include file on next message

PLEASE HELP!!! I'm on a deadline here!
 
 
Post #: 1
 
Re: HELP! Validation Script Doesn't Work - 5/23/2001 2:45:57 AM   
  ekiko

 

Posts: 14
Score: 0
Joined: 5/23/2001
From: New Zealand
Status: offline 		First try using Lcase e.g.
ElseIf Lcase(fieldName) = "jobsector" Then

(in reply to varcesi)
 
 
Post #: 2
 
Re: HELP! Validation Script Doesn't Work - 5/23/2001 2:47:07 AM   
  varcesi

 

Posts: 12
Score: 0
Joined: 5/23/2001
From: Italy
Status: offline 		Well the problem is that I get an Http 500 internal server error and I really don't know were the error occurs. Is there any way to debug in a more easy way?

(in reply to varcesi)
 
 
Post #: 3
 
Re: HELP! Validation Script Doesn't Work - 5/23/2001 2:48:24 AM   
  ekiko

 

Posts: 14
Score: 0
Joined: 5/23/2001
From: New Zealand
Status: offline 		Go to www.msdn.microsoft.com and enter "Http 500 internal server error" in the Search box.
You have an undefined variable and the output should have given you the name. Next time, include the entire text of the error when you need help. Use MSDN first. It answers many but not all questions more quickly than this board.

(in reply to varcesi)
 
 
Post #: 4
 
Re: HELP! Validation Script Doesn't Work - 5/23/2001 2:51:17 AM   
  varcesi

 

Posts: 12
Score: 0
Joined: 5/23/2001
From: Italy
Status: offline 		I have already got the script to work. However it doesn't validate correctly.

Is there any debugging tools available? Besides InterDev, I mean. Ca I send you the complete code?

Thanx once again.

(in reply to varcesi)
 
 
Post #: 5
 
 
 
 

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.
All Forums >> [Scripting] >> ASP >> HELP! Validation Script Doesn't Work Page: [1]
Jump to:





New Messages No New Messages
Hot Topic w/ New Messages Hot Topic w/o New Messages
Locked w/ New Messages Locked w/o New Messages
 Post New Thread
 Reply to Message
 Post New Poll
 Submit Vote
 Delete My Own Post
 Delete My Own Thread
 Rate Posts




Forum Software © ASPPlayground.NET Advanced Edition 2.5.5 ANSI