Dda97enlaMedlem sedan dec. 2001343 inlägg Hej
Hur kan jag loopa en tabell med tre kolumner?
Det jag lyckats göra att att loopa fram själva cellerna såhär:
SQL= "SELECT link FROM [images]"
Set rs = Conn.Execute(SQL)
iLoop = 0
response.write "Dina bilder"
response.write "<table width=""500"" border=""1"" cellspacing=""0"" cellpadding=""0"">" & vbCRLF
response.write "<tr>" & vbCRLF
do until rs.eof
response.write "<td width=""200""><img src=""" & rs("link") & """ height='100' width='100'></td>"
iLoop = iLoop + 1
rs.movenext
loop
response.write "</tr>" & vbCRLF
response.write "</table>" & vbCRLF
Hur göra jag för att efter hand som det blir fler bilder ska dessa fyllas på efter hand i tabellen på nya rader?
mvh
enla
PalleMedlem sedan apr. 20003 174 inläggEn variant..
[red]SQL= "SELECT link FROM [images]"
Set rs = Conn.Execute(SQL)
iLoop = 0
response.write ""&_
"Dina bilder"& vbcrlf &_
"<table width=""500"" border=""1"" cellspacing=""0"" cellpadding=""0"">" & vbCRLF
If NOT rs.EOF Then
Do until rs.eof
response.write "<tr><td width=""200""><img src=""" & rs("link") & """ height='100' width='100'></td></tr>"
iLoop = iLoop + 1
rs.movenext
loop
Else
Response.Write "<tr><td>Det fanns inga bilder..</td></tr>
End If
rs.Close : Set rs = Nothing
response.write "</table>" & vbCRLF[/red]
Dda97enlaMedlem sedan dec. 2001343 inlägg Tack, men då får jag inte med några kolumner eller hur? Jag hade velat ha en tabell med tre kolumner som loopas, men jag ska testa.
/enla
PalleMedlem sedan apr. 20003 174 inlägg Aha, ok.. nu förstår jag vad du menar. :)
Testa följande:
[red]SQL= "SELECT link FROM [images]"
Set rs = Conn.Execute(SQL)
iLoop = 0
response.write ""&_
"Dina bilder"& vbcrlf &_
"<table width=""500"" border=""1"" cellspacing=""0"" cellpadding=""0"">" & vbCRLF &_
"<tr>"& vbcrlf
If NOT rs.EOF Then
Do until rs.eof
response.write "<td width=""200""><img src=""" & rs("link") & """ height='100' width='100'></td>"
iLoop = iLoop + 1
If iLoop Mod 3 = 0 Then Response.Write "</tr><tr>"
rs.movenext
loop
Else
Response.Write "<tr><td>Det fanns inga bilder..</td></tr>
End If
rs.Close : Set rs = Nothing
response.write ""&_
"</tr>"& vbcrlf &_
"</table>" & vbCRLF[/red]
Dda97enlaMedlem sedan dec. 2001343 inlägg Tack nu blir det jättefint :L
ENla
