<%If Session("logged_in") = 2 then%> <% Function s(txt) s = Replace(Request(txt),"'","''") If len(request(txt)) = 0 then 's = "" End if End Function Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(strDbPath) SQL = "SELECT * FROM anmalning order by bil_klass ASC, forare_namn ASC" Set RecSet = objConn.Execute(SQL) If Not RecSet.Eof then MyArray = RecSet.Getrows() RecSet.Close Set RecSet = nothing %> Anmälan <%IF isarray(Myarray) then For i = 0 to ubound(myarray,2) %>

Anmälan till Rallytävling.  <%=strTavling%>
                                                                        <%=MyArray(4,i)%>
                                                                        Startnummer:

"> *Personnummer förare: * Förarklass:
   (skrivs som xxxxxx-xxxx)
* Namn förare:
* Adress:
* Postnummer:  * Postort:
* Telefon:  Mobil:
* Klubb:
Personnummer kartläsare:  Licens:
Namn kartläsare:
Adress:
Postnummer:  Postort:
Telefon:  Mobil:
Klubb:
* Tävlingsbil:  * Regnr:
* Bilklass:

Ev anmälare:  Licensnr Anm:
Adress Anmälare:

Ev NOTER: Siffernoter > | Beskrivande Noter >
* Giltig e-postadress:
Ansvar: Den som deltar i tävlingen gör detta under eget ansvar och på egen risk. FIA, Svenska Bilsportförbundet (SBF) Specialidrottsförbund (SDF) arrangör eller funktionär kan således inte utan vållande göras ansvariga för person- eller sakskador som under tävling drabbar deltagaren. Tävlingsdeltagare och funktionärer har genom sin anmälan att delta i tävlingen samtyckt till att vedrebörandes personuppgifter registreras i tävlingsarrangörens dataregister samt att arrangören, inom ramen för sin verksamhet, oavsett mediaform offentliggör namnuppgifterna.
Föraren intygar härmed också att tävlingsbilen är i trafik hos Transportstyrelsen, samt skattad och försäkrad.

 

_________________________________________________________  |  _________________________________________________________
Underskrift förare                                                                       Underskrift kartläsare/codriver
<%Next End if%>

Tillbaka

<% objConn.Close Set objConn = nothing END IF %>