%@LANGUAGE="VBSCRIPT"%>
<%
'MAIN LEVEL CONNECTION
'conn_STRING1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("_db/gallery.mdb")
conn_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "\access_db\gallery.mdb"
'SECOND LEVEL CONNECTION
'conn_STRING2 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../_db/gallery.mdb")
conn_STRING2 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "\access_db\gallery.mdb;"
'THIRD LEVEL CONNECTION
'conn_STRING3 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../../_db/gallery.mdb")
conn_STRING3 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "\access_db\gallery.mdb"
%>
<%
If request("catID") = "" then
catID = "1"
Else
catID = trim(request("catID"))
End If
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open conn_STRING2
'strSQL = "SELECT * FROM gImages WHERE gID = 1 ORDER BY gOrder "
strSQL = "SELECT gCats.CatName, gCats.CatDesc, gImages.gID, gImages.gName, gImages.gDesc, gImages.gFile, gImages.gOrder " _
& "FROM gCats RIGHT JOIN gImages ON gCats.catID = gImages.catID " _
& "WHERE gImages.catID = "& catID &" ORDER BY gOrder"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, cn, 1, 3
%>
Janice Wilson
| [an error occurred while processing this directive] |
| [an error occurred while processing this directive] |
| Janice
and Friends |
|
<% rs.movefirst %>
| |
Mouse
Over an Image |
 |
|
|
|
|
|
|
| [an error occurred while processing this directive] |
<%
cn.close
%>