God forslag "abpdk", her bruger jeg GetRows methoden. Du skal i din SQL sætning skrive de felter som vil udskrive fra din tabel, den accepterer ikke * (alt) og data udskrives på den måde som du vil:
1 3
2 4
men du skal tilpasse designet på den måde som du ville, her er koden:
<%@ Language=VBScript %>
<%Option Explicit
response.buffer=true%>
<html>
<head>
<title>xxxxxxx</title>
</head>
<h1 ALIGN="CENTER">xxxxxxx</h1>
<%
dim DSN, oRs, oConn, strSQL, minFelt, colcounter, NumRecords, NumRows, DisplayName, RowCounter
Const NumColumns = 2
Set oConn = Server.CreateObject("ADODB.Connection")
DSN = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("fpdb/Komponentbors.mdb")
oConn.Open DSN
strSQL = "Select ID, (Skriv de felter som du vil) from Komponentborsen where Komponentborsen.[ID]=" & ID
Set oRs = oConn.Execute(strSQL)
minFelt = oRs.GetRows
oRs.close
set oRs = nothing
oConn.close
set oConn=nothing%>
<p ALIGN="CENTER">xxxx</p>
<table ALIGN="CENTER" BORDER="1" CELLPADDING="1"CELLSPACING="1">
<THEAD>
<tr>
<%For colcounter = 1 to NumColumns%>
<th>xxxxx</th>
<th>yyyyy</th>
<%next%>
</tr>
</THEAD>
<%
NumRecords = ubound(minFelt,2) + 1
if NumRecords mod NumColumns = 0 then
NumRows = NumRecords\NumColumns
Else
NumRows = NumRecords\NumColumns+1
End if
For RowCounter = 1 to NumRows
For ColCounter = 0 to NumColumns-1
if RowCounter + ColCounter * NumRows <= NumRecords then
DisplayName = minFelt(1, RowCounter + ColCounter * NumRows-1) & " " & minFelt(2, RowCounter + ColCounter * NumRows-1)
response.write "<td>" & Displayname & "</td><td>" & minFelt(3,RowCounter + ColCounter * NumRows-1) & "</td>"
Else
Response.write "<td> </td><td> </td>"
End if
Next
response.write "</tr>"
Next%>
</table>
</html>
vh hossein
