<%
'on error resume next
CatID=0
ThemeID=0
'SQL = "SELECT Distinct group_master.GroupID, Group_Master.Sku, Group_Master.GroupName, group_master.groupdescription, Group_Master.GroupRank, Group_Master.OurPrice, SequenceNo FROM Group_Master "
'if not (cstr(catid)="" or cstr(catid)="0") then
SQL="select * from Group_Master where active=1 and GroupId in (select GroupId from item_master where special =1) order by SequenceNo"
' GetSubCat(CatID)
' SQLWhere=" WHERE groupid in (select GroupNo from Cat_Group_Relation where CategoryID in(" & SubCatList & ")) and active='1'"
'elseif not (cstr(ThemeID)="" or cstr(ThemeID)="0") then
' GetSubTheme(ThemeID)
' SQLWhere = " WHERE groupid in (select GroupNo from Theme_Group_Relation where ThemeID in(" & SubThemeList & ")) and active='1'"
' SQL="select * from theme_master where active=1 and parentthemeid=" & ThemeID & " order by SequenceNo"
'else
' Response.Redirect(".")
'end if
set rs=server.createobject("adodb.recordset")
RS.CursorLocation = adUseClient
set rs1=server.createobject("adodb.recordset")
RS1.CursorLocation = adUseClient
Rs.Open SQL,Dataconn ,3,2
PaginationQS= "sid=" & CatID & "&tid=" & ThemeID
session("CatID")=CatID
session("ThemeID")=ThemeID
MetaTitle="Fold-a-Goal Soccer Stuff on Special Today"
MetaKeyword="Fold-a-Goal Soccer Stuff on Special Today"
MetaDescription="Fold-a-Goal Soccer Stuff on Special Today"
HeaderName="Fold-a-Goal Soccer Stuff on Special Today"
PageDescription=""
PageTopLink="