Autocars voyages du Porzay Bretagne

<% ' Obtention de la catégorie courante pg = TRIM( Request( "pg" ) ) IF pg = "" THEN pg = 1 Set prodRS = Server.CreateObject( "ADODB.Recordset" ) ' chaine de connexion conn="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath(".") & "/roidb.mdb" prodRS.ActiveConnection = Conn prodRS.CursorLocation = 3 prodRS.PageSize = 6 ' Extraction des informations sur le produit sqlString = "SELECT * " &_ "FROM produits WHERE p1='demande'" &_ "order by marque" prodRS.Open sqlString prodRS.AbsolutePage = pg %>

<% WHILE NOT prodRS.EOF AND rowCount < prodRS.PageSize rowCount = rowCount + 1 %>

NOUS ETUDIONS TOUTES LES DEMANDES QUE VOUS POUVEZ NOUS FAIRE.

Précisez vos coordonnées et votre demande

Nom
Prénom
E-mail*
Rue
Code postal
Ville
Pays
Téléphone
Fax
*Informations obligatoires.

Décrivez nous votre demande: destination souhaitée, dates, nombre de personnes...

Conformément à la loi Informatique et Libertés du 6 janvier 1978,
vous disposez d'un droit d'accès et de rectification aux données
personnelles vous concernant.

Seule notre société ou association est destinataire des informations que vous lui communiquez.

<% prodRS.MoveNext WEND %> <% IF prodRS.PageCount > 1 THEN %> Les pages suivantes <% FOR i = 1 to prodRS.PageCount IF i <> cINT( pg ) THEN %> <%=i%> <% ELSE %> <%=i%> <% END IF %> <% NEXT %> <% END IF %> <%Prodrs.close%>