Toon posts:

[ASP] Tekst verdelen over meerdere tabellen *

Pagina: 1
Acties:

Verwijderd

Topicstarter
Hoi,

Ik heb in een access database omschrijvingen van artikelen staan. Nu wil ik i.v.m. met het uiterlijk van de pagina dit het liefst verdelen over meerdere tabellen op de pagina.

Is dit te realiseren in ASP?

Ik heb me ondertussen scheel gezocht, maar kan er niets over terug vinden.

Miquel ;(

  • Victorio
  • Registratie: Januari 2001
  • Laatst online: 01-02-2024
Tekst uit aparte cellen?

  • gorgi_19
  • Registratie: Mei 2002
  • Laatst online: 13:24

gorgi_19

Kruimeltjes zijn weer op :9

In plaats dat je doet:
pseudocode
code:
1
2
3
4
5
6
7
8
9
10
Response.Write "<table>"
While not objRs.EOF
     Response.Write "<TR>"
     Response.Write "<TD>"
     Response.Write objRS("veldnaam")
     Response.Write "</TD>"
     Response.Write "</TR>"
     objRS.MoveNext
Next
Response.Write "</table>"

doe je
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Response.Write "<table>"
While not objRs.EOF
     If we aan een nieuwe rij toe, dan
         Response.Write "<TR>"
     End if
     Response.Write "<TD>"
     Response.Write objRS("veldnaam")
     Response.Write "</TD>"
     If we aan het einde van een rij zijn, dan
         Response.Write "</TR>"
     End if
     objRS.MoveNext
Next
Response.Write "</table>"

Digitaal onderwijsmateriaal, leermateriaal voor hbo


Verwijderd

Topicstarter
De tekst staat in één cel

Verwijderd

Ik heb geen flauw idee wat je bedoelt.
1) Wat staat er precies in de database?
2) Hoe wil je dat precies weergegeven hebben? en waarom?
3) Is het antwoord van gorgi_19 van toepassing? of helpt dat niets?
4) Wat heb je zelf al geprobeerd? Heb je al code?

  • gorgi_19
  • Registratie: Mei 2002
  • Laatst online: 13:24

gorgi_19

Kruimeltjes zijn weer op :9

Voordat we gaan raden wat je nu precies bedoelt, zie ook MrX:
Kan je je post aanvullen totdat deze conform de eisen is, zoals beschreven in Welkom in P&W -> Quickstart (update 2/10/2002)

Het is dan voor iedereen een stuk duidelijker. Maak desnoods even snel twee HTML pagina's als voorbeeld; eentje voor en eentje na. Laat ook eens zien wat je geprobeerd hebt, wat niet lukt, wat de resultaten zijn. Ook wil het wel helpen om te latne zien waar je hebt gezocht en wat er niet goed was aan deze code.

Digitaal onderwijsmateriaal, leermateriaal voor hbo


  • .oisyn
  • Registratie: September 2000
  • Laatst online: 16:18

.oisyn

Moderator Devschuur®

Demotivational Speaker

* titelfix
en vul idd eens aan met meer info :)

Give a man a game and he'll have fun for a day. Teach a man to make games and he'll never have fun again.


Verwijderd

er zijn een paar opties:
1. zorg dat je je DB aanpast zodat de gegevens in verschillende velden staan.
2. zorg dat er een schijdingsteken in het veld staat van het artikel (bv een @) en split die regel dan uit elkaar met de Split functie een schijf de gesplitte gegevens dan weg in een array. Die array kan je dan weer stukje voor stukje uit lezen en tonen op het scherm.

  • zeekoe
  • Registratie: Januari 2002
  • Laatst online: 07:24
ik zie dat hij tabs ook niet snapt... naja... boeie :)
Response.Write "<table>"
While not objRs.EOF
Response.Write "<TR>"
Response.Write "<TD>"
Response.Write objRS("veldnaam")
Response.Write "</TD>"
Response.Write "</TR>"
objRS.MoveNext
Next
Response.Write "</table>"
ik wou nog ff een compactere optie voorstellen:
Response.Write "<table>"

While not objRs.EOF
%><TR><TD><%=objRS("veldnaam")%></TD></TR>
<%
objRS.MoveNext
Next
Response.Write "</table>"
enz.

ik gebruik trouwens nooit databases, alleen maar tekstbestanden met tab-gescheiden velden, soort van databases toch wel, en daar ben ik heel bedreven in geworden :+
zoiets:
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FileExists(root + fname) = True Then
Set a = fs.OpenTextFile(root + fname)
Do While a.AtEndOfStream = False
aReadLine = a.ReadLine
aantaltabs = 0
xd1 = ""
xd2 = ""
For x = 1 to Len(aReadLine)
teken = Mid(aReadLine,x,1)
If teken = chr(9) Then
aantaltabs = aantaltabs + 1
Else
Select Case aantaltabs
Case 0
xd1 = xd1 + teken
Case 1
xd2 = xd2 + teken
End Select
End If
Next
If xd1 = "" Then xd1 = " "
If xd2 = "" Then xd2 = " "
(ophetschermzetroutine)
Loop
a.Close
End If

Nieuw huis, nieuwe (verduurzamings)kansen...


  • dusty
  • Registratie: Mei 2000
  • Laatst online: 21-02 00:06

dusty

Celebrate Life!

Je haalt een string uit de database, nu wil je de string onderverdelen in verschillende tabel-cellen?

Zou dat toevallig een string functie kunnen zijn die een string uit elkaar kan halen of denk ik nu toch weer te logisch?

Back In Black!
"Je moet haar alleen aan de ketting leggen" - MueR

Pagina: 1