nu har jag med hjälp av er här fixat massa saker,,,
nu är det dags för en till..;)..:D..

är det nån som har nån funktion som kollar
på ifall man har fyllt i "rätt" epost och tillräckligt
med tecken på lösen och anv. namn..

jadå...

<code>
Function validate_email(strInputEntry)
Dim objRegExp
Set objRegExp = New RegExp

validate_email = True

objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.Pattern = "^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$"
validate_email = objRegExp.Test(strInputEntry)

Set objRegExp = Nothing
End Function

Function validate_url(strInputEntry)
Dim objRegExp
Set objRegExp = New RegExp

validate_url = True

objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.Pattern = "http://([\w-]+\.)+[\w-]+(/[\w- ./?%&=]*)?"
validate_url = objRegExp.Test(strInputEntry)

Set objRegExp = Nothing
End Function
</code>

Och sen för att kolla antal tecken så kan du använda Len(), såhär:

<code>
If Len("hej") > 50 Then
'Över 50 tecken
Else
'50 tecken eller under
End If
</code>

Om du vill kolla allting direkt när man tryckt på submit så får du använda javascript, man kan då använda samma pattern som i VBScript men koden ser ju annorlunda ut.

/Micke