<% Function WriteTemplatesSelectList(Template) if Template <> "" then selectTemplate = Template else selectTemplate = Application("JBSX_sSettings_DefaultTemplate") end if Response.Write "" Response.Write "JBS Orginal" Response.Write "JBS Business Blue" Response.Write "JBS Simple Red" Response.Write "JBS Soft Blue" Response.Write "JBS Soft Copper" Response.Write "JBS Soft Red" Response.Write "" End Function Function incFile(TemplateName, FileName) IF FileName = "Header" THEN If TemplateName = "JBS_Orginal" Then %> <% ElseIf TemplateName = "JBS_Business_Blue" Then %> <% ElseIf TemplateName = "JBS_Simple_Red" Then %> <% ElseIf TemplateName = "JBS_SoftBlue" Then %> <% ElseIf TemplateName = "JBS_SoftCopper" Then %> <% ElseIf TemplateName = "JBS_SoftRed" Then %> <% Else %> <% End If %> <% ELSEIF FileName = "Bottom" THEN If TemplateName = "JBS_Orginal" Then %> <% ElseIf TemplateName = "JBS_Business_Blue" Then %> <% ElseIf TemplateName = "JBS_Simple_Red" Then %> <% ElseIf TemplateName = "JBS_SoftBlue" Then %> <% ElseIf TemplateName = "JBS_SoftCopper" Then %> <% ElseIf TemplateName = "JBS_SoftRed" Then %> <% Else %> <% End If %> <% END IF End Function %>