PDA

View Full Version : viewing pictures from access database


wmaged
11-04-2005, 04:57 PM
hi all ..
am trying to view a pictures from access database using asp, when i select only one record it works fine but when i loop over a bunch of record the picture don't open in explorer it open a closed box.. the asp code is

<%@ LANGUAGE="VBSCRIPT" %>
<%Dim cat
cat=request("cat")%>

<%
Dim objConn
set objConn = server.CreateObject("ADODB.Connection")
objConn.Connectionstring="DRIVER={Microsoft Access Driver (*.mdb)};" &_
"DBQ=C:\inetpub\wwwroot\databases\house.mdb"
objConn.Open
Dim strsql
strsql = "SELECT id, Cat_name FROM Categ WHERE id = "&cat&""
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strsql, objConn
%>

<%
Dim objConn1
set objConn1 = server.Createobject("ADODB.Connection")
objConn1.Connectionstring="DRIVER={Microsoft Access Driver (*.mdb)};" &_
"DBQ=C:\inetpub\wwwroot\databases\house.mdb"
objConn1.Open
Dim strsql1
strsql1 = "SELECT cat_id, item_id, subcat_id, category, model_no, picture_sm, subcat_name FROM energy_star,energy_subcat WHERE energy_star.subcat_id=energy_subcat.category and cat_id = "&cat&""
Dim objRS1
Set objRS1 = Server.Createobject("ADODB.Recordset")
objRS1.Open strsql1, objConn1
%>

<%objRS1.movefirst%>
<tr>
<%var=0%>
<%do while not objRS1.eof%>
<%var=var+1
if var<=4 then%>
<td align="center"><font size="1" face="Arial">
<%=objRS1("subcat_name")%><br>
<a href="product_name.asp?item_id=<%=objRS1("item_id")%>">
<img src="<%=objRS1("picture_sm")%>" width="125" height="125">
</a>
</font>
<br><font size="1" face="Arial">Model # <%=objRS1("model_no").value%></font>
</td>
<%objRS1.movenext%>
<%else%>
<%var=0%>
</tr>
<%END IF%>
<%loop%>
<%objRS1.Close
set objRS1 = nothing
objConn1.Close
Set objConn1 = nothing%>