<%
Set Con = Server.CreateObject("ADODB.Connection")
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("db/beta.mdb")
Con.Open data_source
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "select * from photo",Con,1,3
%>
<%
j=0
while not rs.eof
x=rs("image")
if j=0 then
response.write("
