Then I have the code below being pulled into that page above using an include.
Code:
<%
' Get current category
cat = TRIM(Request( "cat" ))
IF cat = "" THEN cat ="Home"
%>
<%
'initialise objects and variables
'dim evuser, strsql
'set conn=server.createobject("ADODB.Connection")
set evuser=server.createobject("ADODB.Recordset")
'strMDBpath = Server.MapPath(".\db_import\EventStyle.mdb")
'direct connection
'conn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & strMDBPath
strsql = "SELECT cat_ID, art_Title, art_Category, art_BDescription, art_ThumbFull, art_ThumbFace, art_Display, art_Status, art_Price " &_
"FROM eventDisplay WHERE art_Category='" & cat & "' " & "AND art_Display=1 " &_
"ORDER BY art_Title DESC"
response.Write(cat_ID)
evuser.open strsql, conn
%>
<%
WHILE NOT evuser.EOF
%>
<a href="#" onclick="return popitup('popupex.asp?catList=<%=Server.URLEncode( evuser( "art_Title" ) )%>&catTitle=<%=Server.URLEncode( evuser( "art_Category" ) )%>')" title="Antique <%= cat %> - <%=evuser( "art_Title" )%>"><img src="./Images/uploaded/<%=evuser( "art_ThumbFull" )%>"height="400" border="0" style="border:#999999 solid 1px; margin-right:auto; margin-left:auto; margin-top:5px;" title="Antique <%= cat %> - <%=evuser( "art_Title" )%>"/></a>
<%
evuser.MoveNext
Wend
%>
<%
'close resources used
evuser.close
'conn.close
'clean up
set evuser=nothing
'set conn=nothing
%>
Bookmarks