formulär validering?

jag har följande..

'*********### Tar in alla värden i variabler 
Sub Collectform
	strFraga = Trim(Request.Form("fraga"))
	If Request.Form("intSvar2") = "" Then
		intAlt = Cint(Request.Form("intSvar1"))
	Else 
		intAlt = Cint(Request.Form("intSvar2"))
	End If
	Egna_svar = Trim(Request.Form("Egna_svar"))
	Kommentar = Trim(Request.Form("Kommentar"))
End Sub

'*********### Kollar om det är några fel i formuläret

function strError(intAlt, strFraga)
	StrError = 0

		'***###Kollar om det har skrivits nån fråga ###***
		If strFraga = "" Then
			strError = 3
			Exit Function
		End If		
				
		'***### Kollar om antalet svarsalt. är minst 2 och max 20 ###***
		If intAlt < 2 Then
			strError = 1
			Exit Function
		ElseIf intAlt > 20 Then
			strError = 2
			Exit Function
		End If
End Function			

'*********### Kollar vilket fel det är i formuläret

Function Felmess(intError)

	Select Case intError
		Case 1
		Felmess = "Du måste ha minst 2 svars alternativ"
		Exit Function
		Case 2
		Felmess = "Du får ha högst 20 svars alternativ"
		Exit Function
		Case 3
		Felmess = "Du har ju inte skrivit nån fråga"
		Exit Function
	End Select
	
End Function

men hur jag än försöker får jag felmedelande 3 "Du har ju inte skrivit nån fråga"

nån som ser nått självklart fel eller hur jag kan lösa det??