2 svar · 385 visningar · startad av paddan
Hej!
använder denna koden för att ta ut id:et för kategorier och spara dem i en array, Men det jag vill är att om det bara finns fem kategorier så vill jag att den ska lägga till samma igen, så här, om du har id:et på kategorierna:
19,20,21,22,23,19,20,21 så att det alltid blir 8:a stycken värden i arrayen...
och om det finns 10 kategorier så ska dne bara ta ut 8:a än då.
Koden idag(tar ut samtliga kategorier.)
Function openData(ByVal strSQL)
Dim rstData
SET rstData = connect.Execute(strSQL)
If not rstData.EOF then openData = rstData.getRows()
rstData.Close
SET rstData = Nothing
End Function
arrData = openData("SELECT * FROM smy_kat")
If isArray(arrData) Then
intRows = uBound(arrData,2)
For i = 0 to intRows
Response.write ""&arrData(0,i)&"<br />"
count=count+1
Next
End If
hur ska man göra?
Mvh martin
Så här kan man göra! :)
If isArray(arrData) Then
intRows = uBound(arrData,2)
reachedLimit = false
counter = 0
Do Until reachedLimit = true
For i = 0 to intRows
Response.write ""&arrData(0,i)&"<br />"
counter = counter+1
If counter = 8 Then reachedLimit = true : Exit For
Next
Loop
End If
Tack för all hjälp..grymt bra..!