array loop !!

den skriver match ved dem alle lige nu ??

prøv evt.:

<%
if not (rs2.eof or rs2.bof) then
if not arrId1(strID) <> '' then
// Kode hvis ikke array'et er et af id'erne
end if
end if
%>

Ved ikke om det virker bare et hurtigt gæt....

//Mr.Meincke

*if not arrId1(strID) <> "" then

argh er vidst lidt træt... HUSK LOOP! ;)

oki ... lidt noget lort det eksempel jeg har lavet... Prøv det her:

<%
if not (rs2.eof or rs2.bof) then
  do while not (rs2.eof or rs2.bof)
      if not arrId1(strID) = strID then
      // Kode hvis ikke array'et er et af id'erne
      end if
  rs.MoveNext
  loop
end if
%>

hmm, jeg fik en fejl. Og 7610 er et tal fra arrayet:
Der opstod en Microsoft VBScript-kørselsfejl fejl '800a0009'

Indekset er uden for området: '7610'

/mySQL/search/search.asp, linje 106


linje 106 er:
if not arrId1(strID) <> "" then

hmmm... giv mig 2 min så får du et færdigt eksempel...

Hvilken fejlmeddelse får du ved dit eget script?

Der kommer ingen fejl, den skriver bare match ved alle loops ?
altså som om alle var i arrayet

wierd... 2 sek - er pisse træt så tænker ikke så "hurtigt" ;)

med denne kode her skriver den alle ud igne :-(

if not (rs2.eof or rs2.bof) then
  do while not (rs2.eof or rs2.bof)
      if not arrId1(strID) = strID then
   

            Response.Write "<table border=""0"" cellspacing=""0"" width=""760"" cellpadding=""3"" >"
            Response.Write "<tr><td width=99% ><FONT FACE=""Verdana, Times New Roman"" SIZE=""2"" >" & "<a href="& rs2("www")&" TARGET=_blank>"& rs2("titel") &"</A> - " & rs2("description")&"<BR></FONT><FONT FACE=""Verdana, Times New Roman"" SIZE=""1"" ></FONT><hr>"
            Response.Write "</td></tr></table>"
   
   
      end if
  rs2.MoveNext
  loop
end if

lol hvis det her er fejlen slår jeg fandme mig selv.. Prøv:

<%
If Not (rs2.BOF Or rs2.EOF) Then

                       
            Do While Not rs2.EOF or rs2.BOF
           
            strID = rs2("id")
               
For t = 0 to Ubound(arrID1)
    if arrId1(t)+0 = strID+0 then
    Match = true
    End if
Next
if Match = true then
    Response.Write "match"
end if

            Response.Write "<table border=""0"" cellspacing=""0"" width=""760"" cellpadding=""3"" >"
            Response.Write "<tr><td width=99% ><FONT FACE=""Verdana, Times New Roman"" SIZE=""2"" >" & "<a href="& rs2("www")&" TARGET=_blank>"& rs2("titel") &"</A> - " & rs2("description")&"<BR></FONT><FONT FACE=""Verdana, Times New Roman"" SIZE=""1"" ></FONT><hr>"
            Response.Write "</td></tr></table>"
            Response.Write "<br>"
           
              rs2.movenext
              loop   
           
           
Else
                Response.Write ""
End If
%>

der var du heldig :-)
Det var ikke fejlen
Der opstod en Microsoft VBScript-kørselsfejl fejl '800a000d'

Typer stemmer ikke overens: '[string: ""]'


og linje 106 er:
  if arrId1(t)+0 = strID+0 then

/mySQL/search/search.asp, linje 106

ahhh så udskift:
if arrId1(t)+0 = strID+0 then

med:
  Cstr(arrId1(t))&"" = Cstr(strID)&""

Nå, jeg smutter i seng... Tjekker spørgsmålet i morgen! Godnat! =)

prøv at tjekke hvordan den første kode jeg lagde her ser ud ;-)

hmm, den sætter jo match til true hvis den finder den første ID i databasen IK ?

prøv hurtigt at skifte det ud med

If Not (rs2.BOF Or rs2.EOF) Then

                       
            Do While Not rs2.EOF or rs2.BOF
           
            strID = rs2("id")
               
For t = 0 to Ubound(arrID1)
    if Cstr(arrId1(t)) = Cstr(strID) then
    Match = "Yes"
    End if
Next
if Match = "Yes" then
    Response.Write "match"
end if

            Response.Write "<table border=""0"" cellspacing=""0"" width=""760"" cellpadding=""3"" >"
            Response.Write "<tr><td width=99% ><FONT FACE=""Verdana, Times New Roman"" SIZE=""2"" >" & "<a href="& rs2("www")&" TARGET=_blank>"& rs2("titel") &"</A> - " & rs2("description")&"<BR></FONT><FONT FACE=""Verdana, Times New Roman"" SIZE=""1"" ></FONT><hr>"
            Response.Write "</td></tr></table>"
            Response.Write "<br>"
           
              rs2.movenext
              Match = Nothing   
              loop   
           
           
Else
                Response.Write ""
End If
       
            Set rs2 = Nothing

-grunken

I dit oprindelige script, skal du sætte

  match=false

ind lige før

  For t = 0 to Ubound(arrID1)

Doh! Fandme flovt jeg ikke havde set det... Det er rigtigt hvad erikjacobsen siger... Sæt Match = False ind nedenunder "Do While Not rs2.EOF or rs2.BOF"

ja, det var vist det hele ;-)
Tak for hjælpen