Home

Profile

Solutions

Products

Macchine

Assistenza

Contatta

 

       
   
   

 

<% Set dbconn = Server.CreateObject("ADODB.Connection") dbPath = Server.MapPath("../_db/bini.mdb") connStr = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath & ";User ID=Admin;Password=;") dbconn.open connStr Set rs = Server.CreateObject("ADODB.Recordset") SQL = "Select * From assistenza order by [Paese]" rs.Open SQL, dbconn, 2, 3, 1 do while not rs.EOF %>

<%=rs.Fields("Paese")%>

<% rs.MoveNext loop ' chiudiamo tutto rs.Close Set rs = Nothing dbconn.Close Set dbconn = Nothing %>
 
 
[Home] [Profile][Solutions][Products] [Machines] [Service] [Dealer] [Contacts]
 
 
Copyright (c) 2004 BINI&C s.r.l.-Via Veneto, 1 - Ozzano dell'Emilia (BO)
Tel. +39 (0) 51 79.05.15 - Fax +39 (0) 51 79.04.85
 
E-mail info@biniec.com