468,133 Members | 1,368 Online
Bytes | Developer Community
New Post

Home Posts Topics Members FAQ

Post your question to a community of 468,133 developers. It's quick & easy.

GetRows Random <td></td> Output

Jim
Hey all,

I am trying to generate a random image output that will appear like this -
http://wd-santabarbara.com/atex/ .

I am not sure of where to start on this or even if I am using the right
search terms for google. All I could find was info for Random Records.

Any hints, help, or advice will be sincerely appreciated.

Thanks,
Jim

I use this to display image table data :

s = "<table>" & vbcrlf & vbcrlf

' loop through the rows
For iRowLoop = iStart to iStop
ImageID=aResults(0,iRowLoop)
thmbpath=aResults(1,iRowLoop)
Filename=aResults(2,iRowLoop)
strThumb = "Yada"

' test for start of new row
If c > 0 And c Mod numColumns = 0 Then
s = s & "</tr>" & vbCrLf & "<tr>"
End If

' output current column
s = s & "YADA" & vbCrLf
' increment column counter
c = c + 1
Next

' add any missing columns to the last row
Do While c Mod numColumns <> 0
s = s & "<img src=""graphics/trans.gif"" width=""125""
height=""1""></td>"
c = c + 1
Loop

s = s & "</tr></table>"
Jul 19 '05 #1
1 2017
ask the microsoft.public.sqlserver.programming about returning a recordset
in random order

"Jim" <So*******@nospam.TotalSantaBarbara.com> wrote in message
news:phuvb.4431$m24.2412@fed1read02...
Hey all,

I am trying to generate a random image output that will appear like this -
http://wd-santabarbara.com/atex/ .

I am not sure of where to start on this or even if I am using the right
search terms for google. All I could find was info for Random Records.

Any hints, help, or advice will be sincerely appreciated.

Thanks,
Jim

I use this to display image table data :

s = "<table>" & vbcrlf & vbcrlf

' loop through the rows
For iRowLoop = iStart to iStop
ImageID=aResults(0,iRowLoop)
thmbpath=aResults(1,iRowLoop)
Filename=aResults(2,iRowLoop)
strThumb = "Yada"

' test for start of new row
If c > 0 And c Mod numColumns = 0 Then
s = s & "</tr>" & vbCrLf & "<tr>"
End If

' output current column
s = s & "YADA" & vbCrLf
' increment column counter
c = c + 1
Next

' add any missing columns to the last row
Do While c Mod numColumns <> 0
s = s & "<img src=""graphics/trans.gif"" width=""125""
height=""1""></td>"
c = c + 1
Loop

s = s & "</tr></table>"

Jul 19 '05 #2

This discussion thread is closed

Replies have been disabled for this discussion.

Similar topics

3 posts views Thread by aa | last post: by
2 posts views Thread by bissatch | last post: by
1 post views Thread by gcdp | last post: by
By using this site, you agree to our Privacy Policy and Terms of Use.