<% Dim OBJdbConnection, RS, SQL, FlagVuoto FlagVuoto=0 SQL = "SELECT * FROM cucine order By id" Set OBJdbConnection = Server.CreateObject("ADODB.Connection") OBJdbConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dati.mdb") Set RS = Server.CreateObject("ADODB.Recordset") RS.Open SQL, OBJdbConnection if RS.BOF and RS.EOF then FlagVuoto=1 End if %> opportunita
<%If FlagVuoto <> 1 Then Do While Not RS.EOF%> <%RS.MoveNext Loop RS.Close set RS=nothing End If%>
 
<%=RS("descrizione")%>
ADMIN
home page chi siamo settori operativi partners opportunità come trovarci
/tr>