<% chaine_requete = "" if request.querystring("dept") <> "" then dept = request.querystring("dept") if chaine_requete <> "" then chaine_requete = chaine_requete & " AND departement = " & dept else chaine_requete = " WHERE departement = " & dept end if else dept = 1 if chaine_requete <> "" then chaine_requete = chaine_requete & " AND departement = " & dept else chaine_requete = " WHERE departement = " & dept end if end if if request.querystring("ville") <> "" then ville = request.querystring("ville") GL_Rs.open "SELECT * FROM villes WHERE nom='" & ville & "'",GL_Conn,2,2 if not GL_Rs.EOF then id_ville = GL_Rs("id") end if GL_Rs.close if id_ville <> "" then if chaine_requete <> "" then chaine_requete = chaine_requete & " AND ville = " & id_ville else chaine_requete = " WHERE ville = " & id_ville end if end if end if %> Terroirs de Picardie
RESTAURANTS
Recherche géographique : <%if dept <> 1 then%> Aisne <%else%> Aisne <%end if%> - <%if dept <> 2 then%> Oise <%else%> Oise <%end if%> - <%if dept <> 3 then%> Somme <%else%> Somme <%end if%>
Recherche par liste : Aisne - Oise - Somme



<%if dept = 1 then%>
<%end if%> <%if dept = 2 then%>
<%end if%> <%if dept = 3 then%>
<%end if%>

<%if dept =1 then%><%end if%> <%if dept = 2 then%><%end if%> <%if dept = 3 then%><%end if%>

<% id =request.querystring("id") if id <> "" then GL_Rs.Open "SELECT * FROM TablesRegionales WHERE id="&id,GL_Conn,2,2 if not GL_Rs.EOF then titre = GL_Rs("titre") adresse = GL_Rs("adresse") email = GL_Rs("email") site = GL_Rs("site") gourmet = GL_Rs("gourmet") end if GL_Rs.close else GL_Rs.Open "SELECT * FROM TablesRegionales " & chaine_requete & " ORDER BY id ASC",GL_Conn,2,2 if not GL_Rs.EOF then id = GL_Rs("id") titre = GL_Rs("titre") adresse = GL_Rs("adresse") email = GL_Rs("email") site = GL_Rs("site") gourmet = GL_Rs("gourmet") end if GL_Rs.Close end if if id <> "" then GL_Rs.Open "SELECT * FROM TablesRegionales " & chaine_requete & " AND id >" & id & " AND departement = "& dept & " ORDER BY id ASC",GL_Conn,2,2 if not GL_Rs.EOF then next_id = GL_Rs("id") end if GL_Rs.close GL_Rs.Open "SELECT * FROM TablesRegionales " & chaine_requete & " AND id <" & id & " AND departement = "& dept & " ORDER BY id DESC",GL_Conn,2,2 if not GL_Rs.EOF then last_id = GL_Rs("id") end if GL_Rs.close end if %> <%if last_id then%>

<%end if%> <%if id <> "" then%>

<%=titre%>
<%=replace(adresse,vbcrlf,"
")%>
<%=email%>
<%if site <> "" then%><%=site%><%end if%>

<%if gourmet ="O" then%>
<%end if%>
<%else%>

Pas de table régionale
pour ce département

<%end if%> <%if next_id then%>
<%end if%>