This ia what I have at the top right now but it's not doing the job.
<!-- #INCLUDE FILE="adovbs.inc" -->
<%
' Get Current Category
cat = TRIM( Request( "cat" ) )
IF cat = "" THEN cat = "Home"
' Get Search Phrase
searchFor = TRIM( Request( "searchFor" ) )
' Get Current Category
cat = TRIM( Request( "cat" ) )
IF cat = "" THEN cat = "Home"
' Open Database Connection
Set Con = Server.CreateObject( "ADODB.Connection" )
Con.Open "accessDSN"
' Open Recordset with Static Cursor
Set RS = Server.CreateObject( "ADODB.Recordset" )
RS.CursorType = adOpenStatic
RS.ActiveConnection = Con
RS.Open "Select * FROM Products"
' Display Count of Products
Response.Write "Number of products: "
Response.Write RS.RecordCount
%>
<% session("varFlashPath"

=Request.QueryString("FlashPath"

%>
<% session("varFlashName"

=Request.QueryString("FlashName"

%>
<% session("varCountryID"

=Request.QueryString("CountryID"

%>
<% session("varCountryName"

=Request.QueryString("CountryName"

%>
<% session("varProvinceID"

=Request.QueryString("ProvinceID"

%>
<% session("varProvinceName"

=Request.QueryString("ProvinceName"

%>
<% session("varCityID"

=Request.QueryString("CityID"

%>
<% session("varCityName"

=Request.QueryString("CityName"

%>
<html>
<head>