Database udtræk.... (Access)

Det kan du da sagtens:

select kolonne1, kolonne2 from tabelnavn

littleboy >> bare en liten kommentar. Dette har ingenting med ASP å gjøre. Databaseuttrekk utføres i SQL, og ASP benytter bare dette for å hente data fra en database. Hvis du har problemer med å hente data fra en database, så skal du lese litt om SQL...

Vil su have et resultat på skærmen noget i retning af

  record1  record2
  record3  record4
  record5  record6
  ...

Det er en adresseliste med ca. 180 indførsler og en relativ stor udskiftning.

Jeg vil gerne have at listen fremstår på skærmen som to kolonner, med lige mange indførsler i hver.

Hver indførsel består af \"Initialer, Navn, Tlf, Lokale\".

Jeg forestiller mig noget som nedenstående, hvor første halvdel er genereret i den første af de insatte tabeller og andel i den anden.


<table border=\"1\" width=\"100%\">
  <tr>
    <td width=\"50%\">
      <table border=\"1\" width=\"100%\">
        <tr>
          <td width=\"25%\">&nbsp;</td>
          <td width=\"25%\">&nbsp;</td>
          <td width=\"25%\">&nbsp;</td>
          <td width=\"25%\">&nbsp;</td>
        </tr>
      </table>
    </td>
    <td width=\"50%\">
      <table border=\"1\" width=\"100%\">
        <tr>
          <td width=\"25%\">&nbsp;</td>
          <td width=\"25%\">&nbsp;</td>
          <td width=\"25%\">&nbsp;</td>
          <td width=\"25%\">&nbsp;</td>
        </tr>
      </table>
    </td>
  </tr>
</table>

Så du vil have

  record1  record4
  record2  record5
  record3  record6
  ...
?

erikjacobsen -> Yes

<%
    strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"db.mdb\")
    Set myConn = Server.CreateObject(\"ADODB.Connection\")
    myConn.Open strDSN
%>
                              <%
if mode = \"\" then
    strSQL = \"SELECT * From kategori order by kategori\"
    Set rs = myConn.Execute(strSQL)   
        %>
                              <%
X = 0
Do wHile Not rs.EOF
  If X = 0 Then 
    Response.Write \"<tr>\"
  End If
  Response.Write \"<td\" & rs(\"kategori\") & \"</td>\"
  X = X + 1
  If X = 2 Then
    Response.Write \"</tr>\"
    X = 0
  End If
  rs.MoveNext
Loop
%>

her er den script du søger efter du skal bare skifte de ting til din info :o) held og lykke !

Den giver ikke den ønskede rækkefølge

erik < tja...men han får noget alligevel som han kan bruge ;o)

istedet for ingenting ;o)

Du kunne prøve noget som det her...

<%
    strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"db.mdb\")
    Set myConn = Server.CreateObject(\"ADODB.Connection\")
    myConn.Open strDSN
%>
                              <%
    strSQL = \"SELECT Initialer, Navn, Tlf, Lokale From data order by navn\"
    Set rs = myConn.Execute(strSQL)   
        %>
                              <%
rsArr = rs.getRows
\'rsArr(0,n) er rs(\"Initialer\")
\'rsArr(1,n) er rs(\"Navn\")
\'rsArr(2,n) er rs(\"Tlf\")
\'rsArr(3,n) er rs(\"Lokale\")
halvdelen = Int(UBound(rsArr,2) / 2)
X=0
for i=0 to halvdelen
  Response.Write \"<tr>\"
  Response.Write \"<td\" & rsArr(0,i)\"</td>\"
  Response.Write \"<td\" & rsArr(0,i+halvdelen)\"</td>\"
  Response.Write \"</tr>\"
next
%>

hvis rsArr er ulige, så skal du lige sørge for at få den sidste med:

if (Ubound(rsArr,2) mod 2) = 1 then
  Response.write \"<tr>\"
  Response.write \"<td>\" & rsArr(0,Ubound(rsArr,2)) & </td>
  Response.write \"</tr>\"
end if

Hov, der kom jeg vist til at give dodger point, inden jeg nåede at prøve forslaget af. Pokkers.
Kan jeg smide flere point ind på dette spg?

det hedder SPM og ikke SPG!!!!!
se her:
http://www.eksperten.dk/spm/91397

Der er 50 hurtige(tror jeg) points her:
http://www.eksperten.dk/spm/91457
Der er en fortsættelse af dette spørgsmål.