<%@ language=VBScript %> <% ' /////////////////////////////////////////////////////// ' // CMS - xS ' // Copyright 2004 Dimac Development/Duplo AB, Sweden ' // www.Dimac.net ' // ' // NOTE: ' // You are not allowed to remove this ' // Copyright information without written ' // permission from Dimac Development. ' /////////////////////////////////////////////////////// ' ----------------------------------------------------- Function GetTemplate(DID) Dim Conn, Rs, SQL, tmpVar Set Conn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") Conn.Open GetConStr ("SiteResources\Data\") SQL = "SELECT TemplateURL FROM Documents WHERE DocumentID=" + DID Rs.Open SQL, Conn tmpVar = Trim(Rs("TemplateURL").Value) Set Conn = Nothing Set Rs = Nothing GetTemplate = tmpVar End Function ' ----------------------------------------------------- ' ----------------------------------------------------- ' ----------------------------------------------------- Dim docId Dim Template Dim xURL docId = Request.QueryString("DocID").Item If IsNumeric(docId) Then Session("DocID") = docId If docId > 0 Then Template = GetTemplate(docId) IF Trim(Template) <> "" then xURL = "SiteResources/Data/Templates/" + Template + "?DocID=" +docId Response.Redirect( xURL ) Else Response.Redirect("GlobalResources/NoTemplate.ASP") End IF Else Response.Redirect("GlobalResources/RootPage.ASP") End If Else Response.Redirect("GlobalResources/NoTemplate.ASP") End If %>