Søg
Avatar billede sorenmt84 Juniormester
29. november 2001 - 18:51 Der er 2 kommentarer og
1 løsning

Udtræk hvor posterne kommer med flere i en række

Jeg skal bruge et ASP script til at lave et udtræk fra en access database, hvor den f.eks. sætter 3 ind i hver række altså sådan her:
<tr><td>Post1</td><td>post2</td><td>post3</td></tr>
<tr><td>Post4</td><td>post5</td><td>post6</td></tr>
osv. osv

Avatar billede bjarke-b Nybegynder
29. november 2001 - 18:53 #1
<%
set rs = bla bla
Count = int(0)
Response.Write \"<table><tr>\"
Do until rs.eof or rs.bof
if count = int(3) then
  Response.Write \"</tr><tr>\"
  count = int(0)
end if

Response.Write \"<td>\" & rs(\"felt\") & \"</td>\"
count = count+1
rs.movenext
loop
Response:Write \"</tr></table>\"
%>
Avatar billede sorenmt84 Juniormester
29. november 2001 - 19:05 #2
Jeg har lige prøvet med dette:
  <%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"db/downtown.mdb\")
strSQL = \"select * from personale order by id asc \"
set rs = Conn.execute(strSQL)
if rs.EOF then
Response.write \"Ingen kategorier i databasen\"
else
Do Until rs.EOF
Count = int(0)
Response.Write \"<table><tr>\"
Do until rs.eof or rs.bof
if count = int(3) then
  Response.Write \"</tr><tr>\"
  count = int(0)
end if

Response.Write \"<td><img src=images/personale/\" & rs(\"billede\") & \"></td>\"
count = count+1
rs.movenext
loop
Response:Write \"</tr></table>\"
%> 

Men får denne:
Microsoft VBScript compilation error \'800a03fb\'

Expected \'Loop\'

test.asp, line 29


Line 29:
Response:Write \"</tr></table>\"
Avatar billede bjarke-b Nybegynder
29. november 2001 - 19:10 #3
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"db/downtown.mdb\")
strSQL = \"select * from personale order by id asc \"
set rs = Conn.execute(strSQL)
if rs.EOF then
Response.write \"Ingen kategorier i databasen\"
else
Count = int(0)
Response.Write \"<table><tr>\"
Do until rs.eof or rs.bof
if count = int(3) then
  Response.Write \"</tr><tr>\"
  count = int(0)
end if

Response.Write \"<td><img src=images/personale/\" & rs(\"billede\") & \"></td>\"
count = count+1
rs.movenext
loop
Response:Write \"</tr></table>\"
%> 
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
ASP classic kopiere database fil på server Af bsn i ASP 7 31/10/202610:20 01/11/202620:28
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
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
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
06/1119:03 iMac 2026 M6 10-core GPU (standart ell opdatering) Af LLG i Mac
06/1109:43 Vista Af susej14 i Andet software
05/1111:47 Printernavn i Enhedshåndtering er et andet end i Printere og Scannere Af Uvanga i Printere
04/1115:18 Hvordan er det - At man sætter et billed af en ting her på ? Af Ikke-ekspert i Diverse
03/1113:58 Status på UPS Af dcedata1977 i Andet hardware
White papers
Flere white papers »