Liste des clubs de voltige - ordre par départements

<% Dim objConn Dim ConnStr Dim objRS 'Ouverture d"une connexion vers la bdd sans DSN' Set objConn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.MapPath("/") & "/Clubs_afva.mdb" objConn.Open 'Creation d"une instance RecordSet' Set objRS = Server.CreateObject("ADODB.RecordSet") 'Pour qu le trie fonctionne l"emplacement du curseur doit ๊tre sur adUseClient' objRS.CursorLocation = adUseClient 'Ouvre le RecordSet avec le curseur adOpenStatic' objRS.Open "Table_club", objConn,adOpenStatic,,adCmdTable 'Tri par ordre croissant' objRS.Sort = "Departement" Do While Not objRS.EOF If ((objRS("Cotisation")=2006) Or (objRS("Cotisation")=2005)) Then Response.Write "" Else Response.Write "" End if Response.Write objRS("Nom") & " (" & objRS("Abreviation") & ")" Response.Write "" If objRS("Cotisation")<>"" Then Response.Write " - Cotis. " & objRS("Cotisation") & "" Response.Write "
" Response.Write objRS("Aerodrome") & " (" & objRS("CodeOACI") & ")
" If ((objRS("Cotisation")=2006) Or (objRS("Cotisation")=2005)) Then Response.Write objRS("Adresse") & " (" & objRS("Departement") & ")
" Response.Write "Tel: " & objRS("Telephone") & " - Fax: " & objRS("Fax") & " - Mail: " & objRS("Mail") & "
" Response.Write "Site Internet: " & objRS("Internet") & "
" Response.Write "
" Response.Write "Axe: " If objRS("Axe") Then Response.Write "Oui" Else Response.Write "Non" End If Response.Write " - Stages: " If objRS("Stage") Then Response.Write "Oui" Else Response.Write "Non" End If Response.Write "
" Response.Write "Avions et tarifs (solo/double)
" Response.Write objRS("Avion1") & " - (" & objRS("Prix1S") & "€/" & objRS("Prix1D") & "€)" If objRS("Avion2")<>"" then Response.Write "
" Response.Write objRS("Avion2") & " - (" & objRS("Prix2S") & "€/" & objRS("Prix2D") & "€)" End If If objRS("Avion3")<>"" then Response.Write "
" Response.Write objRS("Avion3") & " - (" & objRS("Prix3S") & "€/" & objRS("Prix3D") & "€)" End If If objRS("Avion4")<>"" then Response.Write "
" Response.Write objRS("Avion4") & " - (" & objRS("Prix4S") & "€/" & objRS("Prix4D") & "€)" End If If objRS("Avion5")<>"" then Response.Write "
" Response.Write objRS("Avion5") & " - (" & objRS("Prix5S") & "€/" & objRS("Prix5D") & "€)" End If If objRS("Avion6")<>"" then Response.Write "
" Response.Write objRS("Avion6") & " - (" & objRS("Prix6S") & "€/" & objRS("Prix6D") & "€)" End If If objRS("MAJ")<>"" Then Response.Write "
Derni่re mise เ jour : " & objRS("MAJ") & "" End If Response.Write "" Response.Write "