<% m = GetParameter("m","int") 'menu id p = GetParameter("p","int") 'page id f = GetParameter("f","int") 'firstpage 1/0 = true/false rcid = GetParameter("rcid","int") 'race id yid = GetParameter("yid","int") 'yacht id action = GetParameter("action","string") 'the requested action MATRIKEL_ORDER_SQL = GetParameter("mob","string") 'the order clause for the matrikel puff = GetParameter("puff","string") If puff="ERROR" Then puff = "root" End If If m = "ERROR" Then m = 0 ElseIf m = 1 Then puff = "klubben" ElseIf m = 2 Then puff = "nyheter" ElseIf m = 3 Then puff = "artiklar" ElseIf m = 6 Then puff = "kappseglingar" ElseIf m = 5 OR m = 20 Then puff = "jakterna" ElseIf m = 4 Then puff = "annonser" End If If m=0 Then puff = "root" End If If puff = "root" Then Set rs_puffar = Conn.Execute("SELECT "&TABLE_PAGES&".id FROM "&TABLE_MENUS&","&TABLE_PAGES&" WHERE "&TABLE_PAGES&".menu_id = "&TABLE_MENUS&".id AND type=3 AND lang_code='swe' ORDER BY "&TABLE_MENUS&".sortorder DESC LIMIT 4") puff_counter=0 If Not rs_puffar.EOF Then Do puff_counter=puff_counter+1 rs_puffar.MoveNext Loop Until rs_puffar.EOF rs_puffar.MoveFirst End If End If %> <% If puff = "root" Then %>
<% If puff_counter >0 Then p=rs_puffar("id") %> <% rs_puffar.MoveNext End If %>


NYHETER
<% 'get latest news Set rs_newnews = Conn.Execute("SELECT id,name,menu_id FROM "&TABLE_PAGES&" WHERE menu_id=2 AND online=1 ORDER BY sortorder DESC LIMIT 5") If Not rs_newnews.EOF Then Do %> " alt="<%=rs_newnews("name")%>" title="<%=rs_newnews("name")%>"><%=TrimText(rs_newnews("name"),25)%>
<% rs_newnews.MoveNext Loop Until rs_newnews.EOF End If rs_newnews.Close Set rs_newnews = Nothing %>
ARTIKLAR
<% 'get latest articles Set rs_newarticles = Conn.Execute("SELECT id,name,menu_id FROM "&TABLE_PAGES&" WHERE menu_id=3 AND online=1 ORDER BY sortorder DESC LIMIT 5") If Not rs_newarticles.EOF Then Do %> " alt="<%=rs_newarticles("name")%>" title="<%=rs_newarticles("name")%>"><%=TrimText(rs_newarticles("name"),25)%>
<% rs_newarticles.MoveNext Loop Until rs_newarticles.EOF End If rs_newarticles.Close Set rs_newarticles = Nothing %>



<% p=359 %>



<% p=7 %>

<% If puff_counter >1 Then p=rs_puffar("id") %> <% rs_puffar.MoveNext End If %>

<% If puff_counter >2 Then p=rs_puffar("id") %> <% rs_puffar.MoveNext End If %>




<% p=8 %>

<% If puff_counter >3 Then p=rs_puffar("id") %> <% rs_puffar.MoveNext End If %>
<% ElseIf puff="klubben" Then %>




<% MENU_ROOT = m MENU_HREF = "index.asp" MENU_IMAGE_CLOSED = "images/node_plus.gif" MENU_IMAGE_EXPANDED = "images/node_minus.gif" MENU_IMAGE_WIDTH = 9 MENU_CURRENT_DEPTH = 0 MENU_EXTRA_SQL = "" MENU_NOT_ALLOWED_PARAMS = "p" %>

<% If p<>"ERROR" Then %> <% End If %>
<% ElseIf puff="nyheter" Then %>



Alla är välkommna att skicka in nyheter!
webmaster@sk22.nu

<% MENU_ROOT = m MENU_HREF = "index.asp" MENU_IMAGE_CLOSED = "images/node_plus.gif" MENU_IMAGE_EXPANDED = "images/node_minus.gif" MENU_IMAGE_WIDTH = 9 MENU_CURRENT_DEPTH = 0 MENU_EXTRA_SQL = "" MENU_NOT_ALLOWED_PARAMS = "p" %>

<% If p<>"ERROR" Then %> <% End If %>
<% ElseIf puff="artiklar" Then %>



Alla är välkommna att skicka in bidrag!
webmaster@sk22.nu

<% MENU_ROOT = m MENU_HREF = "index.asp" MENU_IMAGE_CLOSED = "images/node_plus.gif" MENU_IMAGE_EXPANDED = "images/node_minus.gif" MENU_IMAGE_WIDTH = 9 MENU_CURRENT_DEPTH = 0 MENU_EXTRA_SQL = "" MENU_NOT_ALLOWED_PARAMS = "p" %>

<% If p<>"ERROR" Then %> <% End If %>
<% ElseIf puff="kappseglingar" Then %>




<% MENU_ROOT = m MENU_HREF = "index.asp" MENU_IMAGE_CLOSED = "images/node_plus.gif" MENU_IMAGE_EXPANDED = "images/node_minus.gif" MENU_IMAGE_WIDTH = 9 MENU_CURRENT_DEPTH = 0 MENU_EXTRA_SQL = "" MENU_NOT_ALLOWED_PARAMS = "p,rcid" %>

<% If rcid<>"ERROR" Then %> <% Set racedata = Conn.Execute("SELECT * FROM "&TABLE_RACE&" WHERE rcid="&rcid) Set resultdata = Conn.Execute("SELECT * FROM "&TABLE_RESULTS&" WHERE race_id="&rcid&" ORDER BY final") %>
<%=racedata("name")%>  <%=racedata("year")%>


<% If racedata("boat_count")>0 Then %> <% For r=1 To cint(racedata("race_count")) %> <% Next %> <% For i=1 To racedata("boat_count") If i Mod 2 = 0 Then bgcolor="ffffff" Else bgcolor="eeeeee" End If %> <% For r=1 To cint(racedata("race_count")) %> <% Next %> <% resultdata.MoveNext Next %>
Jakt Besättning<%=r%>Placering
<%=GetYachtLink(resultdata("yacht_id"))%><%=resultdata("yacht_id")%> <%=GetYachtLink(resultdata("yacht_id"))%><%=GetYachtName(resultdata("yacht_id"))%>
<%=resultdata("skipper")%>
<% If resultdata("club")<>"" Then %>(<%=resultdata("club")%>)<% End If%>
<%=resultdata("crew1")%>
<%=resultdata("crew2")%>
<%=resultdata("race"&r)%> <%=i%>
<% End If %> <% Else %> <% If p<>"ERROR" Then %> <% End If %> <% End If %>
<% ElseIf puff="annonser" Then %>



Alla är välkommna att skicka in annonser!
webmaster@sk22.nu

<% MENU_ROOT = m MENU_HREF = "index.asp" MENU_IMAGE_CLOSED = "images/node_plus.gif" MENU_IMAGE_EXPANDED = "images/node_minus.gif" MENU_IMAGE_WIDTH = 9 MENU_CURRENT_DEPTH = 0 MENU_EXTRA_SQL = "" MENU_NOT_ALLOWED_PARAMS = "p" %>

<% If p<>"ERROR" Then %> <% End If %>
<% ElseIf puff="jakterna" Then %>




<% MENU_ROOT = m MENU_HREF = "index.asp" MENU_IMAGE_CLOSED = "images/node_plus.gif" MENU_IMAGE_EXPANDED = "images/node_minus.gif" MENU_IMAGE_WIDTH = 9 MENU_CURRENT_DEPTH = 0 MENU_EXTRA_SQL = "" MENU_NOT_ALLOWED_PARAMS = "p,yid,action" %>

<% If yid<>"ERROR" Then %> <% Set yachtdata = Conn.Execute("SELECT * FROM "&TABLE_YACHTS&" WHERE yid="&yid) %> S-<%=yachtdata("yid")%> <%=yachtdata("name")%>

Nr Namn Längd Bredd Byggår Konstruktör Ägare
<%=yachtdata("yid")%> <%=GetYachtName(yachtdata("yid"))%> <% If CStr(yachtdata("length"))<>"0" Then %> <%=FormatNumber(yachtdata("length"),2)%> <% Else %> - <% End If %> <% If CStr(yachtdata("width"))<>"0" Then %> <%=FormatNumber(yachtdata("width"),2)%> <% Else %> - <% End If %> <% If CStr(yachtdata("year"))<>"0" AND CStr(yachtdata("year"))<>"2000" Then %> <%=yachtdata("year")%> <% Else %> - <% End If %> <% If CStr(yachtdata("designer"))<>"0" Then %> <%=yachtdata("designer")%> <% Else %> - <% End If %> <% If CStr(yachtdata("owner"))<>"0" Then %> <%=yachtdata("owner")%> <% Else %> - <% End If %>

">Tillbaka till matrikeln
<% If action="show_race_result" Then %> ">Visa detaljer om jakten
<% Else %> ">Visa kappseglingsresultat
<% End If %>

<% If action<>"ERROR" Then %> <% If action="show_race_result" Then '* get all raceresults for this yacht Set all_results = Conn.Execute("SELECT "&TABLE_RESULTS&".*, "&TABLE_RACE&".* FROM "&TABLE_RESULTS&","&TABLE_RACE&" WHERE "&TABLE_RESULTS&".race_id = "&TABLE_RACE&".rcid AND "&TABLE_RESULTS&".yacht_id="&yachtdata("yid")&" ORDER BY "&TABLE_RACE&".year DESC, "&TABLE_RESULTS&".final") If Not all_results.EOF Then %> Resultat
<% i=0 Do If i Mod 2 = 0 Then bgcolor="ffffff" Else bgcolor="eeeeee" End If %> <% all_results.MoveNext i=i+1 Loop Until all_results.EOF all_results.Close Set all_results = Nothing %>
År Kappsegling Placering
<%=all_results("year")%> "><%=all_results("name")%> <%=all_results("final")%>/<%=all_results("boat_count")%>
<% Else %> S-<%=yachtdata("yid")%> <%=GetYachtName(yachtdata("yid"))%> har inte deltagit i några kappseglingar i vårt arkiv. <% End If %> <% End If %> <% Else %> <% p=yachtdata("page_id") %> <% End If %>

Hjälp oss att göra den här sidan bättre!
Skicka in bilder och text om Jakten till webmaster@sk22.nu
<% Else %> <% If p=23 Then %> <% If MATRIKEL_ORDER_SQL = "ERROR" Then M_SQL = "yid" Else M_SQL = MATRIKEL_ORDER_SQL End If Set yacht = Conn.Execute("SELECT * FROM "&TABLE_YACHTS&" ORDER BY "&M_SQL&",year") i=0 If Not yacht.EOF Then %> Matrikel
Sortera matrikeln med hjälp av rubrikerna

<% Do If i Mod 2 = 0 Then bgcolor="ffffff" Else bgcolor="eeeeee" End If %> <% yacht.MoveNext i=i+1 Loop Until yacht.EOF %>
Nr Namn Längd Bredd Byggår Konstruktör Ägare
"> <%=GetYachtLink(yacht("yid"))%><%=yacht("yid")%> <%=GetYachtLink(yacht("yid"))%><%=GetYachtName(yacht("yid"))%> <% If CStr(yacht("length"))<>"0" Then %> <%=FormatNumber(yacht("length"),2)%> <% Else %> - <% End If %> <% If CStr(yacht("width"))<>"0" Then %> <%=FormatNumber(yacht("width"),2)%> <% Else %> - <% End If %> <% If CStr(yacht("year"))<>"0" AND CStr(yacht("year"))<>"2000" Then %> <%=yacht("year")%> <% Else %> - <% End If %> <% If CStr(yacht("designer"))<>"0" Then %> <%=yacht("designer")%> <% Else %> - <% End If %> <% If CStr(yacht("owner"))<>"0" Then %> <%=yacht("owner")%> <% Else %> - <% End If %>
<% End If yacht.Close Set yacht = Nothing %> <% ElseIf p<>"ERROR" Then %> <% End If %> <% End If %>
<%End If %>