<% 	
	Response.Buffer = True 
	Response.Expires=0 
%>

<!--#include file="../db/Adovbs.Inc"-->

<% 	
	'Get Templates Referens 
	Function GetTemplateReferens(ArtID, FolderID)
		Dim sqlTemplate, strTop
		sqlTemplate = "SELECT Templates.Referens "
		if len(ArtID)>0 then
			sqlTemplate = sqlTemplate & " FROM Templates INNER JOIN FolderArticle ON Templates.TemplateID =FolderArticle.TemplateID "
			sqlTemplate = sqlTemplate & " WHERE FolderArticle.FolderArticleID = " & ArtID & " "
		else 
			sqlTemplate = sqlTemplate & " FROM Templates INNER JOIN Folders ON Templates.TemplateID = Folders.TemplateID "			
			sqlTemplate = sqlTemplate & " WHERE Folders.FolderID = " & FolderID & " "
		end if
		set rsTemplate = conn.Execute (sqlTemplate)
		if Not rsTemplate.BOF And Not rsTemplate.EOF then
			GetTemplateReferens = rsTemplate.GetRows
		end if
		set rsTemplate = nothing
	End Function

	Dim tempRefArray, tempReferens
	tempReferens = Replace(request("tempReferens"),"'","''")
	
	'On Error resume next 
	if Len(tempReferens)>0 then
		server.execute "../templates/" & tempReferens & ".asp"
	else
		if Len(request("artID"))>0 and IsNumeric(request("artID")) then
	        if conn.state = adStateOpen then
		        conn.Close
	        end if
			conn.Open Application("ConnString")
				tempRefArray = GetTemplateReferens(request("artID"), "")
			conn.Close
			if isArray(tempRefArray) then
				server.execute "../templates/" & tempRefArray(0,0) & ".asp"
			else 
				server.execute "default.asp"
			end if
		else
			server.execute "default.asp"
		end if
	end if
%>