<%@Language="VBScript" %>
<%

For Each appVar In Application.Contents
	If appVar <> "ConStr" Then
		Application(appVar) =""
		Response.Write appVar & "->" & Application(appVar)
	End If	

Next

dim SQL, conn, oRs, Products, count
	Set conn = Server.CreateObject("ADODB.Connection")
	set oRs = Server.CreateObject("ADODB.Recordset")

	//Greek Categs
	SQL = "SELECT ProdCategID, ProdCategDescr FROM ProdCateg order by OrderID"
	conn.Open Application("ConStr")
	set oRs = conn.Execute(SQL)
	if not oRs.EOF then
		count = oRs.RecordCount 
		Application("ProdCategsGR") = oRs.Getrows()
	end if
	oRs.Close

	//English Categs
	SQL = "SELECT ProdCategID, ProdCategDescrEN FROM ProdCateg order by OrderID"
	set oRs = conn.Execute(SQL)
	if not oRs.EOF then
		count = oRs.RecordCount 
		Application("ProdCategsEN") = oRs.Getrows()
	end if
	oRs.Close
	
	//Greek SubCategs
	SQL = "SELECT ProdSubCategID, ProdSubCategDescr, ProdCategID FROM ProdSubCateg order by ProdSubCategDescr"
	set oRs = conn.Execute(SQL)
	if not oRs.EOF then
		count = oRs.RecordCount 
		Application("ProdSubCategsGR") = oRs.Getrows()
	end if
	oRs.Close
	
	//English SubCategs
	SQL = "SELECT ProdSubCategID, ProdSubCategDescrEN, ProdCategID FROM ProdSubCateg order by ProdSubCategDescrEN"
	set oRs = conn.Execute(SQL)
	if not oRs.EOF then
		count = oRs.RecordCount 
		Application("ProdSubCategsEN") = oRs.Getrows()
	end if
	oRs.Close

	//Greek RecipeCategs
	SQL = "SELECT RecCategID, RecCategName FROM RecCateg order by RecCategName"
	set oRs = conn.Execute(SQL)
	if not oRs.EOF then
		count = oRs.RecordCount 
		Application("RecCategsGR") = oRs.Getrows()
	end if
	oRs.Close


	//English RecipeCategs
	SQL = "SELECT RecCategID, RecCategNameEN FROM RecCateg order by RecCategNameEN"
	set oRs = conn.Execute(SQL)
	if not oRs.EOF then
		count = oRs.RecordCount 
		Application("RecCategsEN") = oRs.Getrows()
	end if
	oRs.Close
	
	set oRs=Nothing
	conn.close
	set conn=nothing
%>