for each validering

hvad med

if str1 = "" then
strFejl = strFejl & "Text<br></font>"
end if

if str2 = "" then
strFejl = strFejl & "Text<br></font>"
end if

Fx. sådan her
strErr = ""

If str1 = "" Then
  strErr = strErr & "Streng1 var tom!" & ","
ElseIf str2 = ""
  strErr = strErr & "Streng2 var tom!" & ","
End If

arrErr = Split(strErr,",")
For i = 0 To UBound(arrErr)
  Response.Write("<li>" & arrErr(i) & "</li>"
Next

//>Rune

har lige lavet den til en rutine

' Opbyg array med fejlkoder, print dem ud i listorder
sub printFejl(strFejl)
    arrFejl = split(strFejl,",")
    for i = 0 to ubound(arrFejl)
        response.write("<li>" & arrFejl(i) & "</li>")
    next
end sub

Men hmm, den udskriver ikke alle fejlene..

Se engang

    strFejl = ""
    if strBruger = "" or Len(strBruger) < 3 Then
          strFejl = strFejl & "Du skal angive et brugernavn p&aring; minimum 3 og maksimalt 12 bogstaver." & ","
    elseif IsEmail(strEmail) = false then
          strFejl = strFejl & "Den indtastede emailadresse ser ud til at v&aelig;re ugyldig." & ","
    elseif strKodeord = "" or Len(strKodeord) < 3 then
          strFejl = strFejl & "Dit kodeord skal v&aelig;re p&aring; mindst 4 bogstaver." & ","
    elseif request.form("regler") = "" then
          strFejl = strFejl & "Du skal acceptere regler og betingelser for brug af webstedet." & ","
    end if

og et kald - call printFejl(strFejl) giver kun

<li>Du skal angive et brugernavn p&aring; minimum 3 og maksimalt 12 bogstaver.</li><li></li>

strFejl = ""
    if strBruger = "" or Len(strBruger) < 3 Then
          strFejl = strFejl & "Du skal angive et brugernavn p&aring; minimum 3 og maksimalt 12 bogstaver." & ","
    elseif CBool(IsEmail(strEmail)) = false then
          strFejl = strFejl & "Den indtastede emailadresse ser ud til at v&aelig;re ugyldig." & ","
    elseif strKodeord = "" or Len(strKodeord) < 3 then
          strFejl = strFejl & "Dit kodeord skal v&aelig;re p&aring; mindst 4 bogstaver." & ","
    elseif request.form("regler") = "" then
          strFejl = strFejl & "Du skal acceptere regler og betingelser for brug af webstedet." & ","
    end if

//>Rune

rune > Der er da ingen forskel - du tilføjer bare CBool, hvilket er unødvendigt da IsEmail() returnerer boolsk.

ah, har fixet det nu - det var if strukturen den var galt med

    strFejl = ""
    if strBruger = "" or Len(strBruger) < 3 Then
          strFejl = strFejl & "Du skal angive et brugernavn p&aring; minimum 3 og maksimalt 12 bogstaver." & ","
        if IsEmail(strEmail) = false then
              strFejl = strFejl & "Den indtastede emailadresse ser ud til at v&aelig;re ugyldig." & ","
            if strKodeord = "" or Len(strKodeord) < 3 then
                  strFejl = strFejl & "Dit kodeord skal v&aelig;re p&aring; mindst 4 bogstaver." & ","
                if request.form("regler") = "" then
                      strFejl = strFejl & "Du skal acceptere regler og betingelser for brug af webstedet." & ","
                end if
            end if
        end if
    end if

Hovsa, faktisk sådan her

    if strBruger = "" or Len(strBruger) < 3 Then
          strFejl = strFejl & "Du skal angive et brugernavn p&aring; minimum 3 og maksimalt 12 bogstaver." & ","
    end if
    if IsEmail(strEmail) = false then
          strFejl = strFejl & "Den indtastede emailadresse ser ud til at v&aelig;re ugyldig." & ","
    end if
    if strKodeord = "" or Len(strKodeord) < 3 then
          strFejl = strFejl & "Dit kodeord skal v&aelig;re p&aring; mindst 4 bogstaver." & ","
    end if
    if request.form("regler") = "" then
        strFejl = strFejl & "Du skal acceptere regler og betingelser for brug af webstedet."
    end if

hmm..  jeg er ikke så glad for streng-trunkeringer, sådan ville jeg gøre:

dic = createObject("Scripting.dictionary")

'hver fejl noteres således
dic.add dic.count, "Der er fremkommet en fejl"

'skriv liste af fejl ud
response.write "<ul><li>" & join(dic.Items,"</li><li>") & "</li></ul>"

runesoft > Er der noget performancemæssigt at hente ved din metode?

ezolu>> der er faktisk rimelig meget at hente... er ikke 100% sikker med vbscript, men normalt er en variabel af typen string atomar, dvs. at man kan ikke ændre på den efter den er oprettet. Det betyder i praksis, at når du sammensætter to strenge får du faktisk en ny tredie streng ud af det. Så kan du jo selv regne på hvor mange variabler der egentlig bliver oprettet ved dit lille stunt.

Er løbet ind i et andet problem..

Valideringen tager ikke højde for at felterne kan være forkert udfyldte i anden rækkefølge end den der er angivet i if strukturen.

F.eks. så kommer der en <li> for meget for gang hvis request.form("regler") <> "" men de andre er tomme. Hvordan ordner jeg det?