<% session.abandon %> <% if request.querystring("sprak")="" then %>
Vänligen välj språk / Please choose your language

  <% else %>

 
<% if request.querystring("sprak")="swe" then %> <% else %> <% end if %>
1. TÄVLING
2. DELTAGARE
3. BEKRÄFTA
4. SKRIV UT
1. COMPETITION
2. COMPETITITORS
3. CONFIRM
4. PRINT

<% if request.querystring("sprak")="swe" then response.write "Tävlingar" %><% if request.querystring("sprak")="eng" then response.write "Competitions" %>

<% response.write Date & " " & Time %>

<% Set db = Server.CreateObject("ADODB.Connection") db.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../db/data.mdb") SQL = "SELECT DISTINCT LEFT(Datum,4) as strDatum FROM Tävlingar" Set rsDatum = db.Execute(SQL) intAktuelltAr = 0 if not rsDatum.EOF then do response.write "" & rsDatum("strDatum") & "" & " " if rsDatum("strDatum") = LEFT(Date,4) then intAktuelltAr = 1 end if rsDatum.movenext loop until rsDatum.eof if intAktuelltAr = 0 then response.write "" & LEFT(Date,4) & "" end if response.write "

" end if %> <% if request.querystring("sprak")="swe" then response.write "Klicka på tävlingens namn för att få upp inbjudan, PM med mera." %><% if request.querystring("sprak")="eng" then response.write "Click on the competition to list invitation, PM etc." %>

<% if request.querystring("ar")="" then SQL = "SELECT * FROM Tävlingar WHERE LEFT(Datum,4)=" & LEFT(Date,4) & " ORDER BY Datum" else SQL = "SELECT * FROM Tävlingar WHERE LEFT(Datum,4)=" & request.querystring("ar") & " ORDER BY Datum" end if Set rsTavlingar = db.Execute(SQL) if not rsTavlingar.EOF then do %> <% rsTavlingar.movenext if not rsTavlingar.eof then %> <% end if loop until rsTavlingar.eof else %> <% end if rsTavlingar.close %>
<% if request.querystring("sprak")="swe" then response.write "Datum" %><% if request.querystring("sprak")="eng" then response.write "Date" %> <% if request.querystring("sprak")="swe" then response.write "Namn" %><% if request.querystring("sprak")="eng" then response.write "Name" %> <% if request.querystring("sprak")="swe" then response.write "Klubb" %><% if request.querystring("sprak")="eng" then response.write "Club" %> <% if request.querystring("sprak")="swe" then response.write "Administratör" %><% if request.querystring("sprak")="eng" then response.write "Administrator" %> <% if request.querystring("sprak")="swe" then response.write "Listor" %><% if request.querystring("sprak")="eng" then response.write "Lists" %>
<% if request.querystring("sprak")="swe" then response.write "Sista anmäl.dag" %><% if request.querystring("sprak")="eng" then response.write "Due date to reg." %> <% if request.querystring("sprak")="swe" then response.write "Serie" %><% if request.querystring("sprak")="eng" then response.write "Series" %> <% if request.querystring("sprak")="swe" then response.write "Ort" %><% if request.querystring("sprak")="eng" then response.write "City" %> <% if request.querystring("sprak")="swe" then response.write "Banor" %><% if request.querystring("sprak")="eng" then response.write "Tracks" %> <% if request.querystring("sprak")="swe" then response.write "Anmälan" %><% if request.querystring("sprak")="eng" then response.write "Registration" %>
<% =rsTavlingar("Datum") %> &tavlingsID=<% =rsTavlingar("ID") %>"><% =rsTavlingar("Namn") %> <% =rsTavlingar("Klubb") %> <% SQL = "SELECT * FROM Användare WHERE ID=" & rsTavlingar("AnvID") Set rsAnv = db.Execute(SQL) response.write rsAnv("Namn") rsAnv.close %>
<% if rsTavlingar("Resultat")="on" then %> <% if request.querystring("sprak")="eng" then response.write "Result" %>" onclick="document.location='filer.asp?sprak=<% =request.querystring("sprak") %>&tavlingsID=<% =rsTavlingar("ID") %>'"> <% elseif Date > cdate(rsTavlingar("Datum")) then %> <% if request.querystring("sprak")="swe" then response.write "Resultat inom kort" %><% if request.querystring("sprak")="eng" then response.write "Result coming soon" %> <% elseif rsTavlingar("Startlista_publicerad") then %> <% if request.querystring("sprak")="eng" then response.write "Start list" %>" onclick="document.location='startlista.asp?sprak=<% =request.querystring("sprak") %>&tavlingsID=<% =rsTavlingar("ID") %>'"> <% else %> <% if not rsTavlingar("Anmälan_hänvisning") then %> <% if CDate(rsTavlingar("förfaller_datum")) > CDate(rsTavlingar("datum")) then %>   <% else %> <% if request.querystring("sprak")="eng" then response.write "Registrations" %>" onclick="document.location='anmalningslista.asp?sprak=<% =request.querystring("sprak") %>&tavlingsID=<% =rsTavlingar("ID") %>'"> <% end if %> <% else %>   <% end if %> <% end if %>
<% if rsTavlingar("Resultat")="on" then %>   <% elseif CDate(rsTavlingar("förfaller_datum")) > CDate(rsTavlingar("datum")) then %>   <% elseif CDate(Date & " " & Time) >= CDate(rsTavlingar("förfaller_datum") & " " & rsTavlingar("förfaller_tid")) then %>   <% else %> <% if rsTavlingar("Anmälan_hänvisning") then %>   <% else %> (<% =rsTavlingar("Förfaller_datum") %>) <% end if %> <% end if %> <% =rsTavlingar("Serie") %> <% =rsTavlingar("Ort") %> <% SQL = "Select * From Banor Where TävlingsID = " & rsTavlingar("ID") & " ORDER BY Bana" Set rsQuery = db.Execute(SQL) do until rsQuery.eof response.write rsQuery("Bana") rsQuery.movenext if not rsQuery.eof then response.write ", " end if loop rsQuery.close %>
<% if rsTavlingar("Resultat")="on" then %>   <% elseif CDate(rsTavlingar("förfaller_datum")) > CDate(rsTavlingar("datum")) then %> <% if request.querystring("sprak")="swe" then response.write "Anmälan ej öppnad" %><% if request.querystring("sprak")="eng" then response.write "Registration not opened" %> <% elseif CDate(Date & " " & Time) >= CDate(rsTavlingar("förfaller_datum") & " " & rsTavlingar("förfaller_tid")) then %> <% if request.querystring("sprak")="swe" then response.write "Anmälan stängd" %><% if request.querystring("sprak")="eng" then response.write "Registration closed" %> <% else %> <% if rsTavlingar("Anmälan_hänvisning") then %> &tavlingsID=<% =rsTavlingar("ID") %>"><% if request.querystring("sprak")="swe" then response.write "Se inbjudan" %><% if request.querystring("sprak")="eng" then response.write "See invitation" %> <% else %> <% if request.querystring("sprak")="eng" then response.write "Register" %>" onclick="document.location='deltagare.asp?sprak=<% =request.querystring("sprak") %>&tavlingsID=<% =rsTavlingar("ID") %>'"> <% end if %> <% end if %>

<% if request.querystring("sprak")="swe" then response.write "Det finns inga tävlingar registrerade." %><% if request.querystring("sprak")="eng" then response.write "There are no registered competitions." %>

<% if request.querystring("sprak")="swe" then response.write "Maila site-admin" %><% if request.querystring("sprak")="eng" then response.write "Mail to site admin" %>  
<% end if %>