Alla ska skrivas ut

5 svar · 187 visningar · startad av ampy 1 jan. 2002

ampyMedlem sedan feb. 20011 498 inlägg

Trådstart1 jan. 2002 20:40#1

När jag skriver denna kod:

SQL = "Select * from LinkCounter Where sort = 'privat' "
		RecSet.Open SQL, Connect, adOpenDynamic, adLockOptimistic
		
		Response.Write " &nbsp;&nbsp;" & RecSet("Namn") & ""

Så skrivs bara den översta posten ut, men jag vill att alla poster ska skriva
ut. Varför skriver inte denna kod ut alla poster?

jorgenMedlem sedan feb. 20012 412 inlägg

1 jan. 2002 20:42#2

Du får loopa ut posterna om de är flera.

mvh Jörgen

ampyMedlem sedan feb. 20011 498 inlägg

1 jan. 2002 20:44#3

Hur gör man det?
Har aldrig lärt mig det.

jorgenMedlem sedan feb. 20012 412 inlägg

1 jan. 2002 20:47#4

SQL = "Select * from LinkCounter Where sort = 'privat' "
RecSet.Open SQL, Connect, adOpenDynamic, adLockOptimistic

If RecSet.EOF Then

response.write "<p>Inget fanns</p>"

else

Do while not RecSet.EOF

Response.Write "   " & RecSet("Namn") & "" 

RecSet.Movenext
loop
End If

juventus1Medlem sedan dec. 2000399 inlägg

1 jan. 2002 20:48#5

Hej!

SQL = "Select * from LinkCounter Where sort = 'privat' "
RecSet.Open SQL, Connect, adOpenDynamic, adLockOptimistic

do until RecSet.EOF
Response.Write "   " & RecSet("Namn")
RecSet.movenext
loop
'stäng db-connection etc...

ampyMedlem sedan feb. 20011 498 inlägg

1 jan. 2002 20:50#6

Tack så mycket jorgen, det funkade