CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

xazer Nybegynder

05. september 2003 - 16:34 Der er 17 kommentarer og
1 løsning

Udkriv i rækker

Hvordan trækker man data ud i MySQL så der står 3 på øverste linje og tre på næste. Altså:

1 2 3
4 5 6

Kan det lade sig gøre ?

Synes godt om

taketwo Nybegynder

05. september 2003 - 16:36 #1

Emmm ja, men er det med php eller hvad?

Synes godt om

xazer Nybegynder

05. september 2003 - 16:46 #2

Tjaa, jeg har skrevet det i kategorien ASP =)

Synes godt om

swamboo Seniormester

05. september 2003 - 17:00 #3

fori = i + 1
if i = 3 then
i=0
response.write </tr><tr>
else

OSV - jeg mener det er sådan jeg gjorde tidligere...

Synes godt om

xazer Nybegynder

05. september 2003 - 17:03 #4

Måske er det bare mig, men jeg kan ikke rigtig få det til at fungere, kan du prøve at skrive hele koden ?

Synes godt om

swamboo Seniormester

05. september 2003 - 17:06 #5

Jeg leder lige nu.... BRB

Synes godt om

xazer Nybegynder

05. september 2003 - 17:08 #6

Ok, mange tak :D

Synes godt om

swamboo Seniormester

05. september 2003 - 17:11 #7

Jeg har gjordt sådan:

response.write "<TABLE BORDER=""1""><TR>"

SQL = "SELECT TOP 10 Dato, count(*) AS Antal FROM tabel1 GROUP BY Dato ORDER BY Dato DESC"
set rsTemp = ConnTemp.Execute(SQL)

do while not rsTemp.eof

i = i + 1
if i = 4 then response.write "</TR><TR>"

response.write "<TD><A HREF='admin.asp?mode=dato&id=" & rstemp("dato") & "'>" & rstemp("dato") & "</A></TD>"

rsTemp.MoveNext
loop
rsTemp.Close
%>
</TR>
</TABLE>

Synes godt om

swamboo Seniormester

05. september 2003 - 17:14 #8

HOV - lille fejl - i skal lige 0'stilles:

i = i + 1
if i = 4 then
response.write "</TR><TR>"
i = 0

Synes godt om

swamboo Seniormester

05. september 2003 - 17:15 #9

SORRY:

i = i + 1
if i = 4 then
response.write "</TR><TR>"
i = 0

end if

Det går ikke så godt med min kopiering i dag - jeg glemmer det halve - if sætningen skal afsluttes med end if...

Synes godt om

swamboo Seniormester

05. september 2003 - 17:31 #10

Det her virker 100% - har lige lavet det...

<%
dim i(100)

for p = 1 to 100
i(p) = p
next

response.write"<TABLE BORDER=""1""><TR>"

for p = 1 to 100

k = k + 1
if k = 4 then
k = 1
response.write "</TR><TR>"
end if
response.write "<TD>" & i(p) & "</TD>"

next

response.write"</TR></TABLE>"
%>

OG det er der det hele... ;-)

Synes godt om

swamboo Seniormester

05. september 2003 - 18:05 #11

Du blev så tavs - håber det virker - det var i hvertfald det bedste svar jeg havde på lager...

Go' weekend

Synes godt om

hossein Nybegynder

05. september 2003 - 18:16 #12

Her er koden:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("minDB.mdb")
Conn.Open DSN

SQL = "Select * from Nyheder order by id DESC"
Set rs = Conn.Execute(SQL)%>
<html>
<head>
<title>main</title>
</head>
<body>
<%
Response.Write"<table border=0 cellspacing=35 cellpading=20>"
LinkCount = 0
Do Until rs.EOF
'skift tallet 3 til den ønskede antal kolonner
If LinkCount Mod 3 = 0 Then
If LinkCount <> 0 Then Response.Write"</tr>"
Response.Write "<tr><td>" & RS("initialer") & "<BR>"& RS("Dato") & "<BR>"& RS("nyhed") & "</td>"
'Response.Write "<tr><td>"& RS("firstname") & "</td>"

Else
Response.Write "<td>" & RS("initialer") & "<BR>"& RS("Dato") & "<BR>"& RS("nyhed") & "</td>"
'Response.Write "<td>"& RS("firstname") & "</td>"
End If
LinkCount = LinkCount + 1
rs.MoveNext
Loop
Response.Write"</tr></table>"
rs.Close
Set rs = Nothing
%>
</body>
</html>

Synes godt om

xazer Nybegynder

07. september 2003 - 15:24 #13

swamboo:

Der opstod en Microsoft VBScript-kørselsfejl (0x800A000D)
Typer stemmer ikke overens

Synes godt om

swamboo Seniormester

07. september 2003 - 19:42 #14

Ok - det er jeg ked af at høre :-)
jeg går ud fra at det er i det script du er ved at lave, du får denne fejl. Prøv at vis mig koden omkring din udskrift, så vil jeg kikke på den!

Synes godt om

xazer Nybegynder

08. september 2003 - 16:09 #15

Da jeg først prøvede hosseins kode virkede den ikke, men da jeg prøvede igen virkede den, så hvis Hossein læser dette og opretter et svar går pointene til ham =]

Synes godt om

swamboo Seniormester

08. september 2003 - 18:28 #16

Nå ja, men det er da godt at høre at det virker for dig nu...

Synes godt om

hossein Nybegynder

08. september 2003 - 21:08 #17

OK! Tak.

Synes godt om

xazer Nybegynder

09. september 2003 - 19:33 #18

Ja, undskyld swamboo, men det var hosseins der virkede... :/

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

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
Lost focus Af bsn i ASP	0	07/11/202415:34	-
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
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS