J
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>"
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>"