Les       Pyrénées sans Frontières

 

Les prochains départs :

<% Dim objConn Dim objRS Dim strDSN Dim strSQL Dim intTotalColumns Dim intCounter Const adOpenStatic = 3 Const adLockReadOnly = 1 Set objConn = Server.CreateObject("ADODB.Connection") Set objRS = Server.CreateObject("ADODB.Recordset") strDSN = "DSN=equipyr" objConn.Open strDSN dim vide vide="" 'strSQL = "SELECT * FROM bdbget01 WHERE JDEP like '"& pseuds &"'" 'strSQL = "SELECT * FROM bdbget01 WHERE DEPART >= {fn CURDATE()}" 'strSQL = "SELECT * FROM bdbget01 WHERE MDEP >= right(left({fn CURDATE() },5),2)" 'strSQL = "SELECT * FROM bdbget01 WHERE MDEP >= left({fn CURDATE() },2) AND JDEP >= right(left({fn CURDATE() },5),2)" 'strSQL = "SELECT * FROM bdbget01 WHERE Depart >= {fn CURDATE() }" strSQL = "SELECT * FROM bdbget01 WHERE Depart >= left(now,10)" 'strSQL = "SELECT * FROM bdbget01" objRS.Open strSQL, objConn, adOpenStatic,adLockReadOnly ' get the total number of columns intTotalColumns = objRS.Fields.Count - 1 %> <% ' first display the column names For intCounter = 0 To 0'intTotalColumns %> <% Next Response.write "" ' now loop through the recordset and display the data dim drap dim total dim vch vch="/" dim dch dch ="" Do Until objRS.EOF = True total=total+1 if total>9 then exit Do drap=0 Response.Write "" For intCounter = 0 To 11'intTotalColumns drap=drap+1 if drap>2 then dch="" if drap<=2 then dch="" if drap=5 then dch=" - " vch=" " if drap=2 then vch ="/" if drap=5 then vch ="/" if drap=7 then vch =" jours " if drap=7 then dch =" : " if drap=8 then vch =" " if drap<>4 then if drap >1 and drap<12 then Response.Write "" if drap<>7 then if drap<9 then Response.write dch & objRS(intCounter).Value & vch end if if drap=11 then dim lien lien= "go!" lien=objRS("LIEN").Value dim lnom lnom="" & objRS("NOM").Value & "" Response.write lnom end if Response.Write "" End if end if Next Response.Write "" objRS.Movenext Loop %>

 

 

 

 

 

Les Pyrénées vues par Magritte

Le site equipyrene.com comporte plus de 500 pages,
il est facile de s'y perdre ! Utilisez notre nouveau Moteur de Recherche Interne