|
<% 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)
%>
Van de merken Icemat en Steelpad Hyperglide enz. in onze shop.
Met zeer scherpe prijzen en acties.
Hyperglides vor 7,40 euro
Steelpad en Icemat pads voor 3,50 euro
Steelpad 4D Bundel met Logitech MX510. voor 51 Euro.
|