Recherche Détaillée

Votre compagnon

Liens utils

L'actualité en direct Météo en direct Recherchez un itinéraire

Téléchargements

01net JDN - Téléchargement Yacapa Caloga ZDNET

Annuaire inversé
TEL.:

Contactez nous

Jeux

Jeux.com Jeux.fr Todoojeux Meilleurs jeux Yahoo Jeux

<% if request.querystring() = "enr0" then response.write "Votre requête ne renvoie aucun résultat!!!
" response.write "Veuillez effectuer une nouvelle recherche." end if %> <%if request.QueryString()="error" then%>

<%end if%> <%if request.QueryString("type")<>1 then%>

SOCIETE
Société :
LOCALISATION
Ville :
Code postal :
ACTIVITE
Rubrique :	Sélectionner une Rubrique... <% do while not rs2.eof response.write ""&rs2("lib_rubrique")&"" rs2.movenext loop %>
COORDONNEES
Téléphone :
Fax :
Site :
Mail :

<%end if%> <%if request.querystring("type")=1 then if request.form("panneau")="" and request.form("ville")=""_ and request.form("cp")=""_ and request.form("tel")="" and request.form("fax")=""_ and request.form("site")="" and request.form("mail")="" then response.redirect "rech_detail.php?error" end if if request.form("panneau")<>"" then panneau = " and suivi.panneau like "& ucase(sqlstr(request.form("panneau")&".GIF")) end if if request.form("tel")<>"" then tel = " and suivi.tel = "& sqlstr(request.form("tel")) end if if request.form("mail")<>"" then mail = " and suivi.mail like "& sqlstr(request.form("mail")) end if if request.form("fax")<>"" then fax = " and suivi.fax ="& sqlnum(request.form("fax")) end if if request.form("site")<>"" then site = " and suivi.site like "& sqlstr(request.form("site")) end if if request.form("cp")<>"" then departement = " and suivi.departement = "& sqlnum(request.form("cp")) end if if request.form("ville")<>"" then ville = " and suivi.ville like "& sqlstr("%"&request.form("ville")&"%") end if if request.form("rubrique")<>"" then rub = " and suivi.num_rubrique = "& sqlstr(request.form("rubrique")) end if val = panneau & tel & mail & fax & com & site & departement & ville & rub 'response.write val sql = "select suivi.ville, suivi.panneau, suivi.departement, suivi.num_rubrique, suivi.panneau2, " sql = sql & " suivi.tel, suivi.fax, suivi.adresse, suivi.description, suivi.site, suivi.mail, " sql = sql & " rubrique.lib_rubrique, longueur, largeur, suivi.type_image" sql = sql & " from suivi, rubrique, taille" sql = sql & " where suivi.num_taille =taille.num_taille " sql = sql & " and suivi.num_rubrique = rubrique.num_rubrique" sql = sql & val set rs = conn.execute (sql) Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open sql, Conn, 3, 3 nb = rs.recordcount 'response.write sql rep="./upload" if rs.bof and rs.eof then response.redirect "rech_detail.php?enr0" else Do while not rs.eof%>

<% MyString = Replace(rs("panneau"), ".GIF", "") response.Write ucase(mystring)%>

<%response.write ucase(""&rs("adresse")&"")%> <%response.write ""&rs("departement")&" "%> <%response.write ""&rs("ville")&""%> <%if rs("tel")<>"" then%> Tél. : <%response.write ""&rs("tel")&""%> <%end if%> <%if rs("fax")<>"" then%> Fax : <%response.write ""&rs("fax")&""%> <%end if%> <%if rs("mail")<>"" then%> E-mail : "><%response.write ""&rs("mail")&""%> <%end if%> <%if rs("site")<>"" then%> Site : target="_blank"><%response.write ""&rs("site")&""%> <%end if%> &img=<%response.Write ""&rs("type_image")&""%>&longueur=<%response.Write ""&rs("longueur")&""%>&largeur=<%response.Write ""&rs("largeur")&""%>','popupchoix',<%response.write""&rs("longueur")&""%>,<%response.write""&rs("largeur")&""%>,'no',menubar='yes',status='yes')"> " width="160" height="120" border="0"> <%response.write ""&rs("description")&""%>

<%rs.movenext loop end if end if %>