<%
Dim iHorisontal, x, i

' == Lista HTML-entities. =====================================>
iHorisontal = 10 ' <== Antal kolumner.
Response.Write("

")
x = 0

For i = 1 To 255
If x = iHorisontal Then
Response.Write("")
x = 0
End If
Response.Write("

" & i & " : &#" & i & ";

") x = x + 1 Next Response.Write("

")
' =============================================================|


' == Lista data ur en databas. ================================>

' == Du behöver först skapa ett Recordset, detta beskriver
' == jag inte då det finns ett flertal sätt att göra det på
' == och ett flertal beskrivningar här på PS hur man gör.

iHorisontal = 10 ' <== Antal kolumner.
Response.Write("")
x = 0

Do Until RecSet.EOF
If x = iHorisontal Then
Response.Write("")
x = 0
End If
Response.Write("")
x = x + 1
RecSet.MoveNext
Loop
Response.Write("

" & =RecSet("name") & "

")

RecSet.Close
Set RecSet = Nothing
' =============================================================|
%>