Undersøge om felt i form kun indeholder tal

if isnumeric(request.form.item("antal")) then
  response.write("tal")
else
  response.write("ikke tal")
end if

isNumeric godkender også komma tal og vist nok også en tom streng.

Hvordan sikre jeg så at det kun er tal og ikke noget andet?

Det skal bla bruges hvor man skal angive et helt antal dage samt et telefon nummer ...

if vartype(request.form.item("antal")) = 2 then
  response.write("tal")
else
  response.write("ikke tal")
end if

?måske

Du kan bruge Regular Expression som denne funktion:


Function isHeltal(str)
    Dim regex As New RegExp
    regex.Pattern = "^[0-9]+$"
    isHeltal = regex.Test(str)
End Function


if isHeltal("38747f") then
  'OK
else
  'Fejl ikke et hel tal
end if

Eagleeye ... har prøvet dette:

Function isHeltal(str)
    Dim regex As New RegExp
    regex.Pattern = "^[0-9]+$"
    isHeltal = regex.Test(str)
End Function

If Not isHeltal("" & Request.Form("Antal") & "") then
Response.write "Du har angivet en forkert værdi i antals feltet.<br><br>"
Response.write "<a href=""java script:history.go(-1)"">Tilbage</a>"
Response.End

Det giver denne fejl:
Expected end of statement

Dim regex As New RegExp

Socle ... med din accepter den intet ... heller ikke rene tal:

If Not vartype(request.form.item("antal")) = 2 Then
Response.write "Du har angivet en forkert værdi i antals feltet.<br><br>"
Response.write "<a href=""java script:history.go(-1)"">Tilbage</a>"
Response.End
End If

Så ændre:

Dim regex As New RegExp


Til:

Dim regex = New RegExp

Du behøver ikke "" & og & "" i denne linje:

If Not isHeltal(Request.Form("Antal")) then

Det giver det samme:

Expected end of statement
Dim regex = New RegExp

Køre du Chili!ASP?

Function isHeltal(str)
    Dim regex
    Set regex = New RegExp
    regex.Pattern = "^[0-9]+$"
    isHeltal = regex.Test(str)
End Function

Det hjalp ... smid et svar!

Thx for hjælpen!

Nope eagleeye ... jeg køre ikke Chili!ASP

det var eagleeys function jeg rettede i. Det er hans point.

Vi kan da dele point cesil ;)
Jeg havde husket det som Dim bla = bla var Ok

Det kan vi da godt. :-)