<% option explicit Dim strConnect Dim online online = true %> <% Dim db, rec, recP, SQL, SQLH, SQLF, det Set db=Server.CreateObject("ADODB.Connection") Set rec=Server.CreateObject("ADODB.Recordset") Set recP=Server.CreateObject("ADODB.Recordset") db.Open strConnect SQL = "SELECT DISTINCT paysF FROM TDealers " & _ "WHERE paysF NOT LIKE 'USA' AND paysF NOT LIKE 'Canada' " & _ "ORDER BY paysF" SQLH="SELECT * FROM TDealers WHERE " SQLF=" ORDER BY paysF, provEtatF, villeF, nom" %> NovaJack

Pour plus d'information ou pour commander, contactez un des détaillants suivants :

Canada :
NovaJack - (800) 567-7318 <% rec.open SQLH & "paysF='Canada'" & SQLF, db do while not rec.eof det="

" if len(rec("nom")) > 0 then det=det & rec("nom") if len(rec("adresseF")) > 0 then det=det & "
" & rec("adresseF") if len(rec("villeF")) > 0 then det=det & "
" & rec("villeF") if len(rec("provEtatF")) > 0 then det=det & ", " & rec("provEtatF") if len(rec("codepostalZip")) > 0 then det=det & "   " & rec("codepostalZip") if len(rec("téléphone")) > 0 then det=det & "
Tél.: " & rec("téléphone") if len(rec("fax")) > 0 then det=det & "
Téléc.: " & rec("fax") if len(rec("courriel")) > 0 then det=det & "
" & rec("courriel") & "" if len(rec("http")) > 0 then det=det & "
" & rec("http") & "" response.write det rec.movenext loop rec.close %>

<% rec.open SQLH & "paysF='USA'" & SQLF, db if not(rec.bof=true and rec.eof=true) then %>

USA : <% det="
" do while not rec.eof if len(rec("nom")) > 0 then det=det & rec("nom") if len(rec("adresseF")) > 0 then det=det & "
" & rec("adresseF") if len(rec("villeF")) > 0 then det=det & "
" & rec("villeF") if len(rec("provEtatF")) > 0 then det=det & ", " & rec("provEtatF") if len(rec("codepostalZip")) > 0 then det=det & "   " & rec("codepostalZip") if len(rec("téléphone")) > 0 then det=det & "
Tél.: " & rec("téléphone") if len(rec("fax")) > 0 then det=det & "
Téléc.: " & rec("fax") if len(rec("courriel")) > 0 then det=det & "
" & rec("courriel") & "" if len(rec("http")) > 0 then det=det & "
" & rec("http") & "" response.write det det="

" rec.movenext loop %>

<% end if rec.close recP.open SQL, db do while not recP.eof rec.open SQLH & "paysF ='" & recP("paysF") & "'" & SQLF, db if not(rec.bof=true and rec.eof=true) then %>

<%=recP("paysF")%> : <% det="
" do while not rec.eof if len(rec("nom")) > 0 then det=det & rec("nom") if len(rec("adresseF")) > 0 then det=det & "
" & rec("adresseF") if len(rec("villeF")) > 0 then det=det & "
" & rec("villeF") if len(rec("provEtatF")) > 0 then det=det & ", " & rec("provEtatF") if len(rec("codepostalZip")) > 0 then det=det & "   " & rec("codepostalZip") if len(rec("téléphone")) > 0 then det=det & "
Tél.: " & rec("téléphone") if len(rec("fax")) > 0 then det=det & "
Téléc.: " & rec("fax") if len(rec("courriel")) > 0 then det=det & "
" & rec("courriel") & "" if len(rec("http")) > 0 then det=det & "
" & rec("http") & "" response.write det det="

" rec.movenext loop %>

<% end if rec.close recP.movenext loop recP.close %>

 

 

<% db.close set db = nothing set rec = nothing set recP = nothing %>