<%
varPhotoID = request.querystring("photoID")
IF varPhotoID <> "" THEN
strImgSQL = "SELECT photoID, photoCat, photoFileLG, photoFileHighRes " _
& "FROM tblCat INNER JOIN tblPhotos ON tblCat.catID = tblPhotos.photoCat "_
& "WHERE photoID = " & varPhotoID & ""
SET objImgRS = Server.createObject("ADODB.recordset")
objImgRS.open strImgSQL , "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/access_db/cRodriguez.mdb") & ";"
%>
<%
IF objImgRS("photoFileHighRes") <> "" THEN
strPhotoLink = "![Click here to view a high-res version of this image](fullsize/" & objImgRS("photoFileLG") & ")
"
ELSE
strPhotoLink = ""
END IF
%>
<%
objImgRS.Close
SET objImgRS = Nothing
END IF
%>