<% dim Conn dim rsLingue dim strSQL dim strLink const dbname = "db_T.mdb" const dbpath = Server.MapPath(".") & "\" %> <% 'msgbox "Mi connetto" set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=" & dbpath & dbname & ";Driver={Microsoft Access Driver (*.mdb)};" set rsLingue = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM qry_MenuLingua" rsLingue.Open strSQL, Conn, 1, 1 if rsLingue.RecordCount > 0 then %> <% Do While Not rsLingue.EOF strLink = rsLingue("Link") + "?Lingua_ID=" + rsLingue("Lingua") %> <% rsLingue.MoveNext Loop %>

" width=30 Height=20> <%=rsLingue("Testo")%>

<% Else Response.Write "Nessuna lingua!" End if rsLingue.Close %>