<% 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 paysE FROM TDealers " & _ "WHERE paysE NOT LIKE 'USA' AND paysE NOT LIKE 'Canada' " & _ "ORDER BY paysE" SQLH="SELECT * FROM TDealers WHERE " SQLF=" ORDER BY paysE, provEtatE, villeE" %> NovaJack

To get more information or to order, simply contact the following dealers :

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

" if len(rec("nom")) > 0 then det=det & rec("nom") if len(rec("adresseE")) > 0 then det=det & "
" & rec("adresseE") if len(rec("villeE")) > 0 then det=det & "
" & rec("villeE") if len(rec("provEtatE")) > 0 then det=det & ", " & rec("provEtatE") if len(rec("codepostalZip")) > 0 then det=det & "   " & rec("codepostalZip") if len(rec("téléphone")) > 0 then det=det & "
Phone: " & rec("téléphone") if len(rec("fax")) > 0 then det=det & "
Fax: " & 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 & "paysE='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("adresseE")) > 0 then det=det & "
" & rec("adresseE") if len(rec("villeE")) > 0 then det=det & "
" & rec("villeE") if len(rec("provEtatE")) > 0 then det=det & ", " & rec("provEtatE") if len(rec("codepostalZip")) > 0 then det=det & "   " & rec("codepostalZip") if len(rec("téléphone")) > 0 then det=det & "
Phone: " & rec("téléphone") if len(rec("fax")) > 0 then det=det & "
Fax: " & 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 & "paysE ='" & recP("paysE") & "'" & SQLF, db if not(rec.bof=true and rec.eof=true) then %>

<%=recP("paysE")%> : <% det="
" do while not rec.eof if len(rec("nom")) > 0 then det=det & rec("nom") if len(rec("adresseE")) > 0 then det=det & "
" & rec("adresseE") if len(rec("villeE")) > 0 then det=det & "
" & rec("villeE") if len(rec("provEtatE")) > 0 then det=det & ", " & rec("provEtatE") if len(rec("codepostalZip")) > 0 then det=det & "   " & rec("codepostalZip") if len(rec("téléphone")) > 0 then det=det & "
Phone: " & rec("téléphone") if len(rec("fax")) > 0 then det=det & "
Fax: " & 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 %>