|
<% sd
Sub ArrayToTable(sArray,nCols)
dim nTot
dim nCur
dim nRecCnt
dim sH
nTot = Ubound(sArray,2)
nRecCnt = 0
For nCur = 1 To nTot
if nRecCnt = 0 then sH = sH & " | "
nRecCnt = nRecCnt + 1
sH = sH & "" & sArray(1,nCur) & " . " & sArray(2,nCur) & " | "
if nRecCnt = nCols then
sH = sH & " "
nRecCnt = 0
end if
Next
if nRecCnt > 0 then sH = sH & "? | "
if Right(Trim(sH), 4) <> "" Then sH = sH & ""
sH = sH & " "
Response.Write ""
End Sub
Function CreateTestArray(nTot)
dim sArray()
dim nCur
Redim sArray(2,nTot)
For nCur = 1 To nTot
sArray(1,nCur) = nCur
sArray(2,nCur) = "Description"
Next
CreateTestArray = sArray
end function
Call ArrayToTable(CreateTestArray(52),5)
%>
Met ATI of Nvidia chipsets van diverse merken.
Indien nog niet in onze shop mail ons voor aanvraag offerte?
|