 |
 |
<%
dim sqlif1, rsif1
Set MyConnSC = Server.CreateObject("ADODB.Connection")
MyConnSC.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & connn & ";"
sqlif1="Select * from tbl_in_focus order by sequence"
Set rsif1=MyConnSC.Execute(sqlif1)
If rsif1.eof = false then
while not rsif1.eof
response.Write "![](/uploads/"& rsif1("image_file") &")
"
rsif1.movenext
wend
end if
%>
"
rsif1.movenext
wend
end if
%>