Hi everyone!
I'm filling up a list page in custom code. I'm using a loop to get fields values because i want a little different layout.
All fields work fine but not the image field. In it I get only string contents.
I thank you very much for any help.
I'm using mysql. The table name is "reportagens" and its fields are : "category" as varchar; "subcategory" as varchar; "picture" as blob
my code is in reportagens_list at on_load Event :
page = "<TABLE border=3>"
page=page & " <TBODY>"
page=page & " <TR>"
page=page & " <TD valign=top>"
stSQL = "select count(RepID) as numbers, Category from reportagens group by Category"
Set data = server.CreateObject("ADODB.Recordset")
Set data2 = server.CreateObject("ADODB.Recordset")
data.open stSQL, dbConnection
while not data.eof
category = data("Category")
page =page & "<a href=""reportagens_list.asp?a=" & category &""">" & data("Category") & " (" & data("numbers") & ")</a>
"
stSQL2 = "select count(RepID) as numbers2, Subcategory from reportagens where Category='" & data("Category") & "' group by Subcategory"
data2.open stSQL2,dbConnection
while not data2.eof
subcategory = data2("Subcategory")
page =page & " <a href=""reportagens_list.asp?a=" & category & "&value=" & subcategory &""">" & data2("Subcategory") & " (" & data2("numbers2") & ")</a>
"
data2.MoveNext
wend
data2.close
data.MoveNext
wend
data.close
page=page & "</TD><td>"
response.write page
stSQL = "select * from reportagens"
Set data3 = server.CreateObject("ADODB.Recordset")
data3.open stSQL, dbConnection
do while not data3.eof
value=data3("picture").GetChunk(20000000)
response.binarywrite value
response.write "
"
data3.movenext
loop
data3.close
page="</TD></TR></tbody></table>"
response.write page
