[asp] uitvoer in tabel

[Jan_V]

ik wil de uitvoer van mijn recordset in een tabel zetten en de verschillende waarden in een verschillende rij/kolom zetten

Vandaag heb ik al heel lang zitten denken over dit programma (en andere delen ervan) en aangezien ik nog geen internet op die comp heb, dacht ik: ik spaar alle vragen maar ff op

De data in de recordset ziet er als volgt uit:

klantnr, reg.nr, adres, etc.......

maar hoe krijg ik die verschillende waarden nou elk in een andere kolom?

[ACM]

Euh, je weet hoe de html voor een tabel werkt?
Zoja, maak de tabel in html en zie dan hoe je dat met asp zou kunnen bakken.
Zonee, leer dat eerst maar es...

[Gert]

code:

strSql = "SELECT de, zooi, uit, de, database FROM tabel ORDER BY iets ASC;"
Set objRS = objConn.Execute( strSql )
If Not objRS.EoF Then
  arrRS = objRS.GetRows()
End If
objRS.Close
Set objRS = Nothing

If IsArray( arrRS ) Then
  strText = "<table>"
  For i = 0 To UBound( arrRS, 2 )
      strText = strText & "<tr><td>" & arrRS( 0, i ) & "</td><td>" & arrRS( 1, i ) & "</td><td>........</td></tr>"
  Next
  strText = strText & "</table>"
  Response.Write strText
End If

[Verwijderd]

http://www.w3schools.com/...p?source=demo_db_list.asp

[4of9]

En nu de makkelijke manier:

code:

<%

HIER JE QUERY ZOOI

Do while NOT rs.EOF
%>
<tabel>
  <tr>
    <td><%=rs.fields("waarde1")%></td><td><%=rs.fields("waarde2")%></td><td><%=rs.fields("waarde3")%></td>
  </tr>
</tabel>
<%
rs.Movenext
Loop
%>

maar als je dit niet kunt zou ik eerst maar eens een boek over asp lezen...

[Gert]

Jij vindt het makkelijk alles in een nieuwe tabel te stoppen in plaats van een nieuwe regel?

[ Voor 0% gewijzigd door Gert op 29-08-2002 00:07 . Reden: Kan niet tiepen ]

[gorgi_19]

code:

<%
..
response.write "<table>"
Do While not rs.EOF
response.write "<tr>"
For I = 0 to rs.Fields.count - 1
    Response.write "<td>" & rs(I) & "</td>"
Next
response.write "</tr>"
rs.Movenext
Loop
response.write "</table>"
%>

Zo iets wordt het dan (ook niet meer afhankelijkv an het aantal kolommen, weet niet of de code precies klopt..

[zneek]

Misschien toch eerst maar eff een HTML reference doorkijken? Of eff Dreamweaver installen. Daar wat in prutsen, en dan de gegenereerde HTML bekijken. Leer je ook wel veel van.

[4of9]

ehh foutje idd

[_Thanatos_]

Geen reden om deze persoon of te katten om zijn onkunde. Hij mag idd zelf ook wel eens wat ondernemen... Maarja, ik heb toevallig een poosje geleden een generieke sub geschreven die dit probleem aankan.

code:

Sub OutputRecordsetAsTable(RS)
   If RS.Fields.Count > 0 Then
      Response.Write "<table><thead><tr>"
      For Each Field In RS.Fields
         Response.Write "<td>" & Field.Name & "</td>"
      Next
      Response.Write "</tr></thead>"
      While Not RS.EOF
         Response.Write "<tr>"
         For Each Field In RS.Fields
            If IsNull(RS(Field.Name).Value) Then
               Response.Write "<td><i>NULL</i></td>"
            Else
               Response.Write "<td>" & _
                  Server.HTMLEncode(RS(Field.Name).Value) & "</td>"
            End If
         Next
         Response.Write "</tr>"
         RS.MoveNext
      Wend           
      Response.Write "</table>"
   End If
End Sub

[zneek]

_Thanatos_ schreef op 29 augustus 2002 @ 11:51:
Geen reden om deze persoon of te katten om zijn onkunde. Hij mag idd zelf ook wel eens wat ondernemen... [/code]

Ow, ik kat um niet af ofzo. Dreamweaver is een goeie tool om dit soort dingen onder de knie te krijgen. Is een goedbedoelde tip

[Jan_V]

4of9 schreef op 28 augustus 2002 @ 22:05:
En nu de makkelijke manier:

code:

<%

HIER JE QUERY ZOOI

Do while NOT rs.EOF
%>
<tabel>
  <tr>
    <td><%=rs.fields("waarde1")%></td><td>
<%=rs.fields("waarde2")%></td><td>
<%=rs.fields("waarde3")%></td>
  </tr>
</tabel>
<%
rs.Movenext
Loop
%>

maar als je dit niet kunt zou ik eerst maar eens een boek over asp lezen...

Het klopt idd dat ik nogal een n00b ben met VB en ASP
Kheb voor m'n stage ook al een redelijk goed boek gekocht waar alles wel in staat
Zoals jij het beschrijft leek mij ook wel logisch, dus dat had ik ook al geprobeerd, maar dat werkte niet echt naar behoren
Misschien heb ik wel iets verkeerd gedaan. Ik zal het binnenkort weer proberen. Kzit nu ff op de Helpdesk van het bedrijfje (wat veel cooler is dan dat stomme programmeren )

[zneek]

__00__ schreef op 29 augustus 2002 @ 19:48:
[...]


Het klopt idd dat ik nogal een n00b ben met VB en ASP
Kheb voor m'n stage ook al een redelijk goed boek gekocht waar alles wel in staat
Zoals jij het beschrijft leek mij ook wel logisch, dus dat had ik ook al geprobeerd, maar dat werkte niet echt naar behoren
Misschien heb ik wel iets verkeerd gedaan. Ik zal het binnenkort weer proberen. Kzit nu ff op de Helpdesk van het bedrijfje (wat veel cooler is dan dat stomme programmeren )

Stomme programmeren?!?!?!?

Nee, serieus, programmeren, stom? Niet vloeken hiero.

[Jan_V]

Sorry, was niet zo bedoeld