Bini&C - Partners

<% 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.Fields("Azienda")%>
<%=rs.Fields("Indirizzo")%>
<%=rs.Fields("Citta")%>
Tel. <%=rs.Fields("Tel")%>
Fax. <%=rs.Fields("Fax")%>
E-mail:"><%=rs.Fields("email")%>
Web:"><%=rs.Fields("web")%>

<% 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