<% 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) IF intValidera=0 then SQL = "SELECT id, bil_klass, forare_namn, forare_klubb, kartl_namn, bil, anmalare_namn, forare_klass, kartl_klubb FROM anmalning ORDER BY bil_klass ASC, forare_namn ASC" Else SQL = "SELECT id, bil_klass, forare_namn, forare_klubb, kartl_namn, bil, anmalare_namn, forare_klass, kartl_klubb FROM anmalning WHERE godk=1 ORDER BY bil_klass ASC, forare_namn ASC" END IF Set RecSet = objConn.Execute(SQL) If Not RecSet.Eof then MyArray = RecSet.Getrows() RecSet.Close Set RecSet = nothing antal = objConn.Execute("SELECT COUNT(*) FROM anmalning").Fields(0) %>
ANMÄLDA TAXINGE MK, TrendAB-Rallyt 2014-06-07

Antal anmälda: <%=Antal%> <%If Isarray(MyArray) then%> <%For i = 0 to Ubound(MyArray,2)%> <%Next Else%> <%End if%>
Bilklass Klass Namn förare Klubb förare Bil
    Namn kartläsare Klubb kartläsare Ev. anmälare

<%=Replace(Myarray(1,i)," "," ")%> <%=Myarray(7,i)%> <%=Myarray(2,i)%> <%=Myarray(3,i)%> <%=Myarray(5,i)%>
    <%=Myarray(4,i)%> <%=Myarray(8,i)%> <%=Myarray(6,i)%>

Inga anmälda ännu.

Anmäl DIG Här! | Administrera | Tävlingsadministration: Newbeach Konsult/RaceNet.nu

<% objConn.Close Set objConn = nothing %>