Søg
Avatar billede musti776 Nybegynder
10. september 2004 - 21:48 Der er 14 kommentarer og
1 løsning

Udtrække data i et bestemt orden

Hej alle.

Jeg udtrækker nogle data fra db.
der er ca 30 poster i alt.

Jeg vil gerne have at de blive udskrevet på denne måde i en tabel;

post          post              post
post          post              post
post          post              post
post          post              post
post          post              post
post          post              post
post          post              post
post          post              post
post          post              post
post          post              post

Altså 10 post i hver række
Håber i forstår hvad jeg mener

Musti
Avatar billede eagleeye Praktikant
10. september 2004 - 21:52 #1
Ja det kan gøre sådan her:

<%
noPrRow = 0
maxPrRow = 3
response.write "<table>"
do while not rs.EOF
  if noPrRow = 0 then response.write "<tr>"
  response.write "<td>"

  'Udskriv data her
  Response.write rs("kolonnenavn")

  response.write "</td>"
  noPrRow = noPrRow + 1
  if noPrRow = maxPrRow then
    response.write "</tr>"
    noPrRow = 0
  end if
  rs.Movenext
loop
if noPrRow > 0 then response.write "</tr>"
response.write "</table>"
%>


den udksriver det som

1  2  3
4  5  6
7  8  9
..
..
28 29 30
Avatar billede musti776 Nybegynder
10. september 2004 - 22:26 #2
Melder fejl på linje 36 ; Et objekt er obligatorisk: ''

<!--#include file="Connections/Conn3.asp" -->
<%
Dim dost_site
Dim dost_site_numRows
Dim noPrRow
Dim maxPrRow
Dim vefat

Set dost_site = Server.CreateObject("ADODB.Recordset")
dost_site.ActiveConnection = MM_Conn_STRING
dost_site.Source = "SELECT * FROM dost_siteler"
dost_site.CursorType = 0
dost_site.CursorLocation = 2
dost_site.LockType = 1
dost_site.Open()

dost_site_numRows = 0
%>

<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>

<%
noPrRow = 0
maxPrRow = 3
response.write "<table>"
do while not dost_site.EOF
  if noPrRow = 0 then response.write "<tr>"
  response.write "<td>"

  'Udskriv data her
  Response.write vefat.Fields.Item("isim").Value        <--------- Her
  response.write "</td>"
  noPrRow = noPrRow + 1
  if noPrRow = maxPrRow then
    response.write "</tr>"
    noPrRow = 0
  end if
  rs.Movenext
loop
if noPrRow > 0 then response.write "</tr>"
response.write "</table>"
%>
</body>

<%
dost_site.Close()
Set dost_site = Nothing
%>
Avatar billede Slettet bruger
10. september 2004 - 22:27 #3
vefat skal vel erstattes med dost_site da det er dit resordset.
Avatar billede musti776 Nybegynder
10. september 2004 - 22:28 #4
den har jeg lige rettet, det var ikke det :)
Avatar billede eagleeye Praktikant
10. september 2004 - 22:30 #5
så det vel en anden fejl?
Avatar billede musti776 Nybegynder
10. september 2004 - 22:34 #6
ja ! men kan ikke finde den
Avatar billede eagleeye Praktikant
10. september 2004 - 22:35 #7
Hvilken fejl får du?
Avatar billede musti776 Nybegynder
10. september 2004 - 22:35 #8
Et objekt er obligatorisk: ''
Avatar billede Slettet bruger
10. september 2004 - 22:38 #9
På samme linie?
Avatar billede eagleeye Praktikant
10. september 2004 - 22:41 #10
Der er en rs mere i denne linje:    rs.Movenext  lige før loop
Det skal være:
dost_site.movenext
Avatar billede musti776 Nybegynder
10. september 2004 - 22:43 #11
det var på en anden linje :/ , har rettet den...

men jeg havde tænkt på at det jeg udskriver skulle fungere som et link

altså :
Response.write <a href="dost_site.Fields.Item("url")">dost_site.Fields.Item("isim").Value</a>

kunne i måske rette den til så det vil fungere :)
Avatar billede eagleeye Praktikant
10. september 2004 - 22:45 #12
Sådan her:

Response.write "<a href=""" & dost_site.Fields.Item("url") & """>" & dost_site.Fields.Item("isim").Value & "</a>"
Avatar billede musti776 Nybegynder
10. september 2004 - 22:52 #13
takker igen eagleeye, virker bedre end jeg havde forventet.

inden jeg lukker, kan man ikke angive width i response.write "<td>"  så de ikke står så tæt på hinanden?
Avatar billede musti776 Nybegynder
10. september 2004 - 22:53 #14
fandt ud af det selv, så jeg takker og lukker :)
Avatar billede eagleeye Praktikant
10. september 2004 - 22:53 #15
ok :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 17:10 Windows 10 Home 22H2 produktnøgle Af Uvanga i Windows
I går 17:10 Windows 10 Home 22H2 produktnøgle Af Uvanga i Windows
05/0810:19 Kan jeg beholde Publisher på min maskine efter at MS stopper med support Af KurtG i Office & Kontorpakker
02/0814:53 TV4ever 3.0 Af valby i Diverse
01/0816:21 Installere Ubuntu på Virtuel Maskine Af Uvanga i Andet software
White papers
Flere white papers »