Tekstbox (Der SKAL !)

If Request.Form(\"text\") <> \"\" Then
Siden kan ikke vises
ElseIf Request.Form(\"text2\") <> \"\" Then
Siden kan ikke vises
End If

<input blablabla><% If Request.Form(\"navn\") <> \"\" Then
Response.Write \"du mangler...\"

End If%>

Du kan vel kører de 2 sætniger sammen

Øverst i filen skriver du:

<%
  IF Session(\"Fejl\") = \"\" THEN Session(\"Fejl\") = \"0000000\" \' Hvert nul er lig med en tekstboks
  fejltegn = \"<font color=\'#FF0000\'>*</font>\"
%>


Så laver du dine tekstbokse på følgende måde...

<input type=\"text\" name=\"Var-navn\" size=\"40\" value=\"<%=Session(\"Var-navn\")%>\">
        <% IF mid(Session(\"Fejl\"), 1, 1) = \"1\" THEN Response.Write fejltegn \' mid(Session(\"Fejl\"), tekstboksnummer, 1) %>

Over i check-filen skriver du:

Øverst opppe:

SUB subUdskiftTegn(strTegn, intUskiftTegnnr)
  Session(\"Fejl\") = mid(Session(\"Fejl\"), 1, intUskiftTegnnr - 1) & strTegn & mid(Session(\"Fejl\"), intUskiftTegnnr + 1)
END SUB


Undersøge checkboksen, laves for hver boks:

IF Request(\"Var-navn\") <> \"\" THEN
  Session(\"Var-navn\") = request(\"Var-navn\")
  subUdskiftTegn \"0\", 2
ELSE
  subUdskiftTegn \"1\", 2 
END IF

Tilsidst:
IF Session(\"Fejl\") = \"000000\" THEN
  Response.redirect \"rigtig side\"
ELSE
  Response.redirect \"første side\"
END IF

Håber det kan bruges...

Damn, det var sgu også en måde at gøre det på...

hmm nogetfx....dit kan ikke bruges til mange tekst boxe på samme side

:D

Okay...

hvad med mit har du fået det til at virke?

Nope :(

Mail mig din formular-side så laver jeg det for dig... mrbarnes@webgenie.dk

Ellers tak...det virker nu :)