codice:<% Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("../mdb-database/db.mdb") %> <% Dim Visa Set RecSet = Server.CreateObject("ADODB.Recordset") Visa = "select Month(Data_inserimento) as mese from comunica group by Month(Data_inserimento) order by Month(Data_inserimento)" RecSet.Open Visa, objConn, adOpenDynamic, adLockOptimistic %> <% Do Until RecSet.EOF %> "><%=MonthName(RecSet("mese"))%> <% RecSet.MoveNext Loop RecSet.Close %>
ho provato questo codice in locale da me,e funziona,se da te continua a darti errori...ripeto...controlla che non ci siano campi Data_inserimento vuoti o non corretti...

Rispondi quotando