<% response.buffer=true Session.LCID = 1030 Server.ScriptTimeout = 300 Session.Timeout = 30 %> <% '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** '*************************** BEGIN: INSERTING USERS OWN JAVASCRIPT ******************************************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** if Siteeffect2 ="0" then %> <%=Siteeffect3%> <% End If '***************************************************************************************************************************************************** '*************************** END COMMENT ********************************************************************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** '*************************** BEGIN: INSERTING MEDIA2 CREDITS AND VERSION IN CODE ****************************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** %> <% '***************************************************************************************************************************************************** '*************************** END COMMENT ********************************************************************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** '*************************** BEGIN: INSERTING JAVASCRIPT (BROWSER AVAILABLE WIDTH AND HEIGHT) ***************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** %> <% '***************************************************************************************************************************************************** '*************************** END COMMENT ********************************************************************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** '*************************** BEGIN: INSERTING JAVASCRIPT (GET SUBSCRIBER DATA FROM DANISH PHONEBOOK) ********************************************* '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** %> <% '***************************************************************************************************************************************************** '*************************** END COMMENT ********************************************************************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** '*************************** BEGIN: INSERTING DHTML (VISUAL ONLOAD BROWSER EFFECTS) ************************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** if Siteeffect1 > 0 then %> <% End If '***************************************************************************************************************************************************** '*************************** END COMMENT ********************************************************************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** '*************************** BEGIN: INSERTING METADATA AND REDIRECT SCRIPT FOR NON EXISTING PAGE ID ********************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** %> <% '***************************************************************************************************************************************************** '*************************** END COMMENT ********************************************************************************************************** '***************************************************************************************************************************************************** %> <% if Headline = "" then %> <%=SideTitel%> <% Elseif Headline_browser <> "" then %> <%=Headline_browser%> <% Else %> <%=Headline%> ... <%=SideTitel%> <% End if %> <% '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** '*************************** BEGIN: STYLESHEET LINK AND FAVICON ********************************************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** Response.Write("") %> <% '***************************************************************************************************************************************************** '*************************** END COMMENT ********************************************************************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** '*************************** BEGIN: JAVASCRIPT (POPUP WINDOW USED ON PRINT AND INFORMATION PAGES) ************************************************ '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** %> <% '***************************************************************************************************************************************************** '*************************** END COMMENT ********************************************************************************************************** '***************************************************************************************************************************************************** %> <% if inStr(Request.ServerVariables("HTTP_USER_AGENT"), "Firefox") then %> <% else %> <% end if %> <% 'response.write(""& now &"") %> <% SQLQuery = "SELECT ID, CMS_Text FROM CMS_Settings" Set List = Conn.Execute(SQLQuery) Do While Not List.EOF Select Case List("ID") Case 23 UserReg = List("CMS_Text") Case 24 Lic = Lic & List("CMS_Text") Case 25 Lic = Lic & List("CMS_Text") Case 26 Lic = Lic & List("CMS_Text") Case 27 Lic = Lic & List("CMS_Text") End Select List.MoveNext Loop List.Close LicStr = Left(Lic,3) & "-" & Mid(Lic,4,3) & "-" & Mid(Lic,7,3) & "-" & Right(Lic,4) For Pos = 1 To 13 VerifiedLic = VerifiedLic & Asc(Mid(UserReg & "sldfjsldkjflscsdflskfmqp" ,Pos,1)) Next VerifiedLic = VerifiedLic/2 VerifiedLic = replace(Left(VerifiedLic,14),",","") If VerifiedLic = Lic Then highligt_color_tabel = FALSE Else highligt_color_tabel = TRUE End If '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** '*************************** BEGIN: INSERTING JAVASCRIPT/DHTML (NAVIGATION MENU) ***************************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** %> <% '***************************************************************************************************************************************************** '*************************** END COMMENT ********************************************************************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** '*************************** BEGIN: INSERTING TOP IMAGE OR FLASH ANIMATION *********************************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** %>
<% '***************************************************************************************************************************************************** '*************************** END COMMENT ********************************************************************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** '*************************** BEGIN: MENUDOCUMENT NAVIGATION, SEARCH FORM AND NAVIGATION MENU CELL (TEMPLATE 1) *********************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** If activetemplate="1" Then%> <% End If If vmenu="DISABLED" Then %> <% End If %>
<% If vsearch="disabled" Then %> <%End If%>
<% if session("users_websiteIDX") <> "" then if CSStext(88) = "show" then %>     " class="mainmenu" onMouseOver=" window.status='<%=replace(CSStext(89),"'","\'")%>'; return true" onMouseOut="window.status=' '; return true"><%=CSStext(89)%> <% End If if CSStext(141) = "show" then %>     '; return true" onMouseOut="window.status=' '; return true"><%=CSStext(108)%> <% End If else if CSStext(88) = "show" then %>     " class="mainmenu" onMouseOver=" window.status='<%=replace(CSStext(87),"'","\'")%>'; return true" onMouseOut="window.status=' '; return true"><%=CSStext(87)%> <% End If if CSStext(141) = "show" then %>     '; return true" onMouseOut="window.status=' '; return true"><%=CSStext(107)%> <% End If End If If vnews="ja" and CSStext(148)="show" Then%>     '; return true" onMouseOut="window.status=' '; return true"><%=CSStext(8)%> <% End If SQLQuery = "SELECT ID, Headline, Fed FROM Menu where hiddenmenu=0 ORDER BY Sort" Set List = Conn.Execute(SQLQuery) Do While Not List.EOF CMS_Text = List("Headline") %>     " class="mainmenu" onMouseOver=" window.status='<%=replace(CMS_Text,"'","\'")%>'; return true" onMouseOut="window.status=' '; return true"><%=CMS_Text%> <% List.MoveNext Loop List.Close %>
  <% if inStr(Request.ServerVariables("HTTP_USER_AGENT"), "Mac") then %> <%else%><%End If%>
<% '***************************************************************************************************************************************************** '*************************** END COMMENT ********************************************************************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** '*************************** BEGIN: SITE HEADLINE, SUBNAVIGATION AND DATE ************************************************************************ '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** %>
  <% if inStr(Request.ServerVariables("QUERY_STRING"), "Action=List") or inStr(Request.ServerVariables("QUERY_STRING"), "Action=Details") then dim Category_path Category_path = "" set_Category_path Request.QueryString("CategoryID"), Request.QueryString("Item") Response.Write(Category_path) else Response.Write(ForsideOverskrift) End If %>

  <% if inStr(Request.ServerVariables("HTTP_USER_AGENT"), "Mac") then %> <%else%><%End If%>
 
<% '***************************************************************************************************************************************************** '*************************** END COMMENT ********************************************************************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** '*************************** BEGIN: MENUDOCUMENT NAVIGATION AND SEARCH FORM (TEMPLATE 2) ********************************************************* '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** If activetemplate="2" Then %> <% End If '***************************************************************************************************************************************************** '*************************** END COMMENT ********************************************************************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** '*************************** BEGIN: INSERTING USER CONTENT *************************************************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** 'response.flush %>
<% If vbanner="ja" Then%>
<%=Banner2%>
<%End If%> <% Dato=Year(Now) If Month(Now) < 10 Then Dato=Dato & "0" & Month(Now) Else Dato=Dato & Month(Now) End If If Day(Now) < 10 Then Dato= Dato & "0" & Day(Now) Else Dato=Dato & Day(Now) End If SQLQuery = "SELECT ID, Headline, Start FROM Item WHERE CMS_Info_Box1 >" & date2sql(now()) & " AND Start<=" & date2sql(now()) & " AND Slut>=" & date2sql(now()) & " ORDER BY " & Teaser1Sort Set List = Conn.Execute(SQLQuery) If NOT List.EOF Then %>
<%=Teaser0%>
<% Do While Not List.EOF Item = List("ID") %> <% If Teaser1Sort = "Start DESC, Item.ID DESC" then %><%=List("Start")%>
<%end if%>" onMouseOver=" window.status='<%=replace(Left(List("Headline"),180) & " ","'","\'")%><%'=replace(Headline,"'","\'")%>'; return true" onMouseOut="window.status=' '; return true" class="teaserlink1"><%=List("Headline")%>

<% List.MoveNext Loop %>
<% End If List.Close SQLQuery = "SELECT ID, Headline, Start FROM Item WHERE CMS_Info_Box3 >" & date2sql(now()) & " AND Start<=" & date2sql(now()) & " AND Slut>=" & date2sql(now()) & " ORDER BY " & Teaser2Sort Set List = Conn.Execute(SQLQuery) If NOT List.EOF Then %>
<%=Teaser1%>
<% Do While Not List.EOF Item = List("ID") %> <% If Teaser2Sort = "Start DESC, Item.ID DESC" then %><%=List("Start")%>
<%end if%>" onMouseOver=" window.status='<%=replace(Left(List("Headline"),180) & " ","'","\'")%><%'=replace(Headline,"'","\'")%>'; return true" onMouseOut="window.status=' '; return true" class="teaserlink2"><%=List("Headline")%>

<% List.MoveNext Loop %>
<% End If List.Close If OrdreModul="Ja" Then SQLQuery = "SELECT ID, Item, Headline, CMS_Item_Price, cost_price FROM Item WHERE CMS_Info_Box2 >" & date2sql(now()) & " AND CMS_Item_Price <> '' AND Start<=" & date2sql(now()) & " AND Slut>=" & date2sql(now()) & " ORDER BY " & Teaser3Sort Set List = Conn.Execute(SQLQuery) If NOT List.EOF Then %>

<%=Teaser2%>

<% Do While Not List.EOF Item = List("ID") %> " onMouseOver=" window.status='<%=replace(Left(List("Headline"),180) & " ","'","\'")%>'; return true" onMouseOut="window.status=' '; return true" class="teaserlink3"><%=Left(List("Headline"),180) & " "%>" class="teaserlink3">
...<%=" " & Format_Currency(get_price(List("CMS_Item_Price"), List("cost_price")))%>

<% List.MoveNext Loop %>
 

<% End If List.Close End If '*************************** END COMMENT ********************************************************************************************************** %> <% If vbanner="ja" Then%>
<%=Banner3%>
<% end if %>
<% If Session("CMS_Article_Qty_Ordered") = "" Or Session("CMS_Article_Qty_Ordered") = 0 Then %> <%Else%> <% End If %> <% If Session("CMS_Article_Qty_Ordered")="" Then Session("CMS_Article_Qty_Ordered") = 0 CMS_Article_Qty_Ordered = 0 Else CMS_Article_Qty_Ordered = Session("CMS_Article_Qty_Ordered") End If If Session("CMS_Total_Price")="" Then Session("CMS_Total_Price") = 0 CMS_Total_Price = 0 Else CMS_Total_Price = Session("CMS_Total_Price") End If %> <%=CSStext(15)%> <%=CMS_Article_Qty_Ordered%> |  <%=CSStext(16)%> <%=Format_Currency(CMS_Total_Price)%> |  " onMouseOver=" window.status='<%=replace(CSStext(12),"'","\'")%>'; return true" onMouseOut="window.status=' '; return true"><%=CSStext(12)%> |  '; return true" onMouseOut="window.status=' '; return true"><%=CSStext(13)%> |  '; return true" onMouseOut="window.status=' '; return true"><%=CSStext(14)%>  
<% If vbanner="ja" Then%>
<%=Banner4%>
<% End If %>
<% '****************************************************************************************************************************** '************** FRONTPAGE CONTENT ***************************************************************************************** '****************************************************************************************************************************** If UCASE(Request.QueryString("Action"))="" Then %> <% End If '************** END COMMENT *********************************************************************************************** '****************************************************************************************************************************** '************** MENU DOCUMENT CONTENT ************************************************************************************* '****************************************************************************************************************************** If UCASE(Request.QueryString("Action"))="MENU" Then %> <% End If '************** END COMMENT *********************************************************************************************** '****************************************************************************************************************************** '************** LIST DOCUMENTS CONTENT ************************************************************************************ '****************************************************************************************************************************** If UCASE(Request.QueryString("Action"))="LIST" Then %> <% End If '************** END COMMENT *********************************************************************************************** '****************************************************************************************************************************** '************** LOGIN CONTENT ********************************************************************************************* '****************************************************************************************************************************** If UCASE(Request.QueryString("Action"))="LOGIN" Then %> <% End If '************** END COMMENT *********************************************************************************************** '****************************************************************************************************************************** '************** NEWSLETTER SIGNUP AND ARCHIVE CONTENT ********************************************************************* '****************************************************************************************************************************** If UCASE(Request.QueryString("Action"))="NEWSLETTERS" Then %> <% End If '************** END COMMENT *********************************************************************************************** '****************************************************************************************************************************** '************** NEWSLETTER DOCUMENT CONTENT ******************************************************************************* '****************************************************************************************************************************** If UCASE(Request.QueryString("Action"))="NEWS" Then %> <% End If '************** END COMMENT *********************************************************************************************** '****************************************************************************************************************************** '************** SEARCH RESULT CONTENT ************************************************************************************* '****************************************************************************************************************************** If UCASE(Request.QueryString("Action"))="FINDITEMS" Then %> <% End If '************** END COMMENT *********************************************************************************************** '****************************************************************************************************************************** '************** DOCUMENT CONTENT ****************************************************************************************** '****************************************************************************************************************************** If UCASE(Request.QueryString("Action"))="DETAILS" Then %> <% End If '************** END COMMENT *********************************************************************************************** '****************************************************************************************************************************** '************** SHOPPINGBASKET CONTENT ************************************************************************************ '****************************************************************************************************************************** If UCASE(Request.QueryString("Action"))="SHOWBASKET" Then %> <% End If '************** END COMMENT *********************************************************************************************** '****************************************************************************************************************************** '************** ORDER FORM CONTENT **************************************************************************************** '****************************************************************************************************************************** If UCASE(Request.QueryString("Action"))="CREATEORDER" Then CMS_Order_No = Session("CMS_Order_No") If Request.Form("Status") = "step3" Then End If %> <% End If '************** END COMMENT *********************************************************************************************** if lcase(Request.QueryString("Action")) = "members_signup" then %> <% End If if lcase(Request.QueryString("Action")) = "members_signup_done" then %> <% End If if lcase(Request.QueryString("Action")) = "members_edit" then %> <% End If if lcase(Request.QueryString("Action")) = "members_edit_done" then %> <% End If if lcase(Request.QueryString("Action")) = "members_delivery_show" then %> <% End If if lcase(Request.QueryString("Action")) = "members_delivery_new" then %> <% End If if lcase(Request.QueryString("Action")) = "members_delivery_edit" then %> <% End If if lcase(Request.QueryString("Action")) = "members_orders_show" then %> <% End If if lcase(Request.QueryString("Action")) = "members_orders_id" then %> <% End If %>
<% If vbanner="ja" Then%>
<%=Banner5%>
<% End If %>
<% If vinfo="ja" Then%>
<% End If '***************************************************************************************************************************************************** '*************************** END COMMENT ********************************************************************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** '*************************** BEGIN: INSERTING FRAME RIGHT (SHOPPING CART AND INFO BOXES) ******************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** If vinfo="_" Then%> <% '***************************************************************************************************************************************************** '*************************** END COMMENT ********************************************************************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** '*************************** BEGIN: BUILDING BOTTOM CONTENT ************************************************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** %>
<% If CSStext(152)="show" Then%>  '; return true" onMouseOut="window.status=' '; return true"><%=CSStext(67)%> <% end if %> <% If CSStext(153)="show" Then%>  '; return true" onMouseOut="window.status=' '; return true"><%=CSStext(58)%> <% end if %> <% If CSStext(154)="show" Then%> <% If OrdreModul="Ja" Then%>  '; return true" onMouseOut="window.status=' '; return true"><%=CSStext(57)%> <% End If End If %> <% if session("users_websiteIDX") <> "" then if CSStext(88) = "show" then %>  " class="mainmenu" onMouseOver=" window.status='<%=replace(CSStext(89),"'","\'")%>'; return true" onMouseOut="window.status=' '; return true"><%=CSStext(89)%> <% End If if CSStext(141) = "show" then %>  '; return true" onMouseOut="window.status=' '; return true"><%=CSStext(108)%> <% End If else if CSStext(88) = "show" then %>  " class="mainmenu" onMouseOver=" window.status='<%=replace(CSStext(87),"'","\'")%>'; return true" onMouseOut="window.status=' '; return true"><%=CSStext(87)%> <% End If if CSStext(141) = "show" then %>  '; return true" onMouseOut="window.status=' '; return true"><%=CSStext(107)%> <% End If End If If vnews="ja" and CSStext(148)="show" Then%>  '; return true" onMouseOut="window.status=' '; return true"><%=CSStext(8)%> <% End If SQLQuery = "SELECT ID, Headline, Fed FROM Menu where hiddenmenu=0 ORDER BY Sort" Set List = Conn.Execute(SQLQuery) Do While Not List.EOF CMS_Text = List("Headline") %>  " class="mainmenu" onMouseOver=" window.status='<%=replace(CMS_Text,"'","\'")%>'; return true" onMouseOut="window.status=' '; return true"><%=CMS_Text%> <% List.MoveNext Loop List.Close %>
    

<% If OrdreModul="_Ja" Then %> <% End If %>
<% If Session("CMS_Article_Qty_Ordered") = "" Or Session("CMS_Article_Qty_Ordered") = 0 Then %> <%Else%> <% End If %> <% If Session("CMS_Article_Qty_Ordered")="" Then Session("CMS_Article_Qty_Ordered") = 0 CMS_Article_Qty_Ordered = 0 Else CMS_Article_Qty_Ordered = Session("CMS_Article_Qty_Ordered") End If If Session("CMS_Total_Price")="" Then Session("CMS_Total_Price") = 0 CMS_Total_Price = 0 Else CMS_Total_Price = Session("CMS_Total_Price") End If %> <%=CSStext(15)%> <%=CMS_Article_Qty_Ordered%> |  <%=CSStext(16)%> <%=Format_Currency(CMS_Total_Price)%> |  " onMouseOver=" window.status='<%=replace(CSStext(12),"'","\'")%>'; return true" onMouseOut="window.status=' '; return true"><%=CSStext(12)%> |  '; return true" onMouseOut="window.status=' '; return true"><%=CSStext(13)%> |  '; return true" onMouseOut="window.status=' '; return true"><%=CSStext(14)%>  
<%=ForsideAdresse%>
<% '***************************************************************************************************************************************************** '*************************** END COMMENT ********************************************************************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** '*************************** BEGIN: INSERTING POWERED BY TEXT/LINK AND W3C VALIDATION BUTTONS **************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** %>



Copyright © <%=UserReg%> - All Rights Reserved.

CMS - Content Management System by Media2.


<% '***************************************************************************************************************************************************** '*************************** END COMMENT ********************************************************************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** '*************************** BEGIN: INSERTING JAVASCRIPT (WEBSITE STATISTICS) ******************************************************************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** If vstat="ja" Then%> <% End If '***************************************************************************************************************************************************** '*************************** END COMMENT ********************************************************************************************************** '***************************************************************************************************************************************************** %> <% '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** '*************************** BEGIN: INSERTING FUNCTIONS (AUTO UPDATE NAVIGATION MENU, CURRENCY FORMATS AND SUB NAVIGATION) *********************** '***************************************************************************************************************************************************** '***************************************************************************************************************************************************** %> <% '***************************************************************************************************************************************************** '*************************** END COMMENT ********************************************************************************************************** '***************************************************************************************************************************************************** %>