DaniWeb Forum Index > Web Development > ASP

Validation vbscript to ASP

Please support our ASP advertiser: PostgreSQL or MySQL? Compare and contrast the two most popular open source databases

Thread Solved

•

Join Date: Jun 2007

Posts: 57

Reputation: Run.[it] is an unknown quantity at this point

Solved Threads: 1

Run.[it]

Offline

Junior Poster in Training

Validation vbscript to ASP

May 22nd, 2008

Im having problems with getting the page to stop progressing to the asp one when the user enters the text outwith the limits i.e. no data entered. Could anyone give any guidance?

Cheers

 Help with Code Tags 
  html Syntax (Toggle Plain Text) 
<html>
<head>
<title></title>
 
<SCRIPT LANGUAGE="VBScript">
dim validation
 
 
Function MyForm_OnSubmit
validation = False
 
 
	MyForm_OnSubmit = False
	If (Len(Document.MyForm.txtSurName.Value) > 12) Then
		MsgBox "You have entered more than 12 characters"
		validation = False
	End If
	If ((Document.MyForm.txtSurName.Value) = "") Then
		MsgBox "You have forgotten to fill in the input box"
		validation = False
	End If
	If (Len(Document.MyForm.txtSurName.Value) < 13) Then
		validation = True
	End If
	If (validation = True) Then
		MyForm_OnSubmit = True
	Else
		MyForm_OnSubmit = False
	End If
 
End Function
 
 
</SCRIPT>
</head>
<body bgcolor = "lmonchiffon">
	<form name = "MyForm" action = "Validate.asp" method = "post" OnSubmit = "return validate(MyForm_OnSubmit)">
		<p>Enter Name</p>
		<input type = "text" name = "txtSurName" value = "">
		<input type = "submit" value = "Process">
		<input type = "reset" value = "reset">
	</form>
</body>
</html>
<html>
<head>
<title></title>

<SCRIPT LANGUAGE="VBScript">
dim validation


Function MyForm_OnSubmit
validation = False


	MyForm_OnSubmit = False
	If (Len(Document.MyForm.txtSurName.Value) > 12) Then
		MsgBox "You have entered more than 12 characters"
		validation = False
	End If
	If ((Document.MyForm.txtSurName.Value) = "") Then
		MsgBox "You have forgotten to fill in the input box"
		validation = False
	End If
	If (Len(Document.MyForm.txtSurName.Value) < 13) Then
		validation = True
	End If
	If (validation = True) Then
		MyForm_OnSubmit = True
	Else
		MyForm_OnSubmit = False
	End If

End Function


</SCRIPT>
</head>
<body bgcolor = "lmonchiffon">
	<form name = "MyForm" action = "Validate.asp" method = "post" OnSubmit = "return validate(MyForm_OnSubmit)">
		<p>Enter Name</p>
		<input type = "text" name = "txtSurName" value = "">
		<input type = "submit" value = "Process">
		<input type = "reset" value = "reset">
	</form>
</body>
</html>

.........scaricamento.........

•