Validering af tekstbokse

du kunne måske bare tjekke om et eller flere er tomme på samme tid - fx

if varetekst = \"\" then
response.redirect(\"indtastningsside.asp\")
end if

if varenummer = \"\" then
response.redirect(\"indtastningsside.asp\")
end if

Kunne man forestille sig at du laver:

vnr1, vtekst1, vantal1
vnr2, vtekst2, vantal2
osv.

FOR i=1 TO 20
  IF LEN(request(\"vtekst\" & i))>0 AND LEN(request(\"vnr\" & i))=0 THEN
  \'
  END IF
NEXT

Ja, men jeg glemte vist at gøre opmærksom på at der godt må være et varenummer uden en varetekst???

if varetekst = \"\" and varenummer = \"\" then
response.redirect(\"indtastningsside.asp\")
end if

if varenummer = \"\" then
response.redirect(\"indtastningsside.asp\")
end if

Jeg bruger denne til at validere om folk har indtastet alle feldter i en form. Du skal bare modificere den lidt så den tjekker dine feldter i data basen.

<%

Dim SponsorId, YourId, FirstName, LastName, StreetName, StreetNumber, _
City, PostalCode, Country, State, Email, RetypeEmail, Gender, Age, BirthYear, Fejl, Fejl1
SponsorId = Request.Querystring(\"SponsorId\")
YourId = Request.Querystring(\"YourId\")
FirstName = Request.Querystring(\"FirstName\")
LastName = Request.QueryString(\"Lastname\")
StreetName = Request.Querystring(\"StreetName\")
StreetNumber = Request.Querystring(\"StreetNumber\")
City = Request.Querystring(\"City\")
PostalCode = Request.Querystring(\"PostalCode\")
Country = Request.Querystring(\"Country\")
State = Request.Querystring(\"State\")
Email = Request.Querystring(\"Email\")
RetypeEmail = Request.Querystring(\"RetypeEmail\")
Gender = Request.Querystring(\"Gender\")
Age = Request.Querystring(\"Age\")
BirthYear = Request.Querystring(\"BirthYear\")
Fejl = (\"0\")
Fejl1= (\"0\")
%>

<%
\'Her tjekkes om YourId er udfyldt
If YourId = (\"\") Then
  FejlYourId = \"T\"
  Fejl = Fejl + 1
End If

\'Her tjekkes om YourId allerede findes i databasen
Set Conn = Server.CreateObject(\"ADODB.Connection\")
  Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=D:\\home\\formordk\\db\\member.mdb\"
  Set RS = conn.Execute (\"SELECT MedlemsIdNr From MedlemsInfo WHERE MedlemsIdNr =\'\" & YourId & \"\'\")
 
    if not rs.eof Then
      FejlYourIdInDb = \"T\"
      Fejl1 = Fejl1 + 1
    End If   

\'Her tjekkes FirstName
If FirstName = (\"\") Then
  FejlFirstname =\"T\"
  Fejl = Fejl  + 1
End If

\'Her tjekkes LastName
If LastName= (\"\") Then
  FejlLastName =\"T\"
  Fejl = Fejl + 1
End If

\'Her tjekkes StreetName
If StreetName= (\"\") Then
  FejlStreetName =\"T\"
  Fejl = Fejl + 1
End If

\'Her tjekkes StreetNumber
If StreetNumber= (\"\") Then
  FejlStreetNumber =\"T\"
  Fejl = Fejl + 1
End If

\'Her tjekkes City
If City= (\"\") Then
  FejlCity =\"T\"
  Fejl = Fejl + 1
End If

\'Her tjekkes PostalCode
If PostalCode= (\"\") Then
  FejlPostalCode =\"T\"
  Fejl = Fejl + 1
End If

\'Her tjekkes Country
If Country= (\"\") Then
  FejlCountry =\"T\"
  Fejl = Fejl + 1
End If

\'Her tjekkes Email
If Email= (\"\") Then
  FejlEmail =\"T\"
  Fejl = Fejl + 1
End If

\'Her tjekkes RetypeEmail
If RetypeEmail= (\"\") Then
  FejlRetypeEmail =\"T\"
  Fejl = Fejl + 1
End If

\'Her tjekkes om Email og RetypeEmail er ens
If Email <> RetypeEmail Then
  FejlEmailIkkeIdentisk =\"T\"
  Fejl = Fejl + 1
End If

\'Vi er nu færdige med at tjekke formen, og tjekker nu om Fejl er lig med 0
If Fejl > 0 Or Fejl1 >0 then
  \'Hvis fejl er større end 0 så sender vi dem tilbage til formen
  Response.Redirect \"new_member_sign_up.asp?Fejl=\" & Fejl & _
  \"&FejlYourId=\" & FejlYourId & _
  \"&Fejl1=\" & Fejl1 & _
  \"&FejlYourIdInDb=\" & FejlYourIdInDb & _
  \"&FejlFirstName=\"& FejlFirstName & _
  \"&FejlLastName=\" & FejlLastName & _
  \"&FejlStreetName=\" & FejlStreetName & _
  \"&FejlStreetNumber=\" & FejlStreetNumber & _
  \"&FejlCity=\" & FejlCity & _
  \"&FejlPostalCode=\" & FejlPostalCode & _
  \"&FejlCountry=\" & FejlCountry & _
  \"&FejlEmail=\" & FejlEmail & _
  \"&FejlRetypeEmail=\" & FejlRetypeEmail & _
  \"&FejlEmailIkkeIdentisk=\" & FejlEmailIkkeIdentisk & _
  \"&SponsorId=\" & SponsorId & _
  \"&YourId=\" & YourId & _
  \"&FirstName=\" & FirstName & _
  \"&LastName=\" & LastName & _
  \"&StreetName=\" & StreetName & _
  \"&StreetNumber=\" & StreetNumber & _
  \"&City=\" & City & _
  \"&PostalCode=\" & PostalCode & _
  \"&Country=\" & Country & _
  \"&State=\" & State & _
  \"&Email=\" & Email & _
  \"&RetypeEmail=\" & RetypeEmail & _
  \"&Gender=\" & Gender & _
  \"&Age=\" & Age & _
  \"&Birthyear=\" & Birthyear

else

  \'Hvis den kommer hertil så er der ingen fejl i formen, og vi sender videre til Database siden
  response.redirect \"confirm_your_info.asp?SponsorId=\" & SponsorId & _
  \"&YourId=\" & YourId & _
  \"&FirstName=\" & FirstName & _
  \"&LastName=\" & LastName & _
  \"&StreetName=\" & StreetName & _
  \"&StreetNumber=\" & StreetNumber & _
  \"&City=\" & City & _
  \"&PostalCode=\" & PostalCode & _
  \"&Country=\" & Country & _
  \"&State=\" & State & _
  \"&Email=\" & Email & _
  \"&RetypeEmail=\" & RetypeEmail & _
  \"&Gender=\" & Gender & _
  \"&Age=\" & Age & _
  \"&Birthyear=\" & Birthyear
end if
%>

?

ja ???

sorry bo