codice:
<%
' Connessione database
strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("\asp\mdb-database\valori.mdb")
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn
Set objRs = Server.CreateObject("ADODB.RecordSet")
%>
<%
strSql = "SELECT * FROM TABELLA"
objRs.Open strSql, objConn, 3, 3
%>
<%
' Aggiornamento dati (voglio riempire il campo VALORE)
Do while NOT objRs.EOF
strAnno = objRs("ANNO")
strMese = objRs("MESE")
If Len(strMese) = 1 Then strMese = "0" & strMese
strGiorno = objRs("GIORNO")
If Len(strGiorno) = 1 Then strGiorno = "0" & strGiorno
strData = strAnno & strMese & strGiorno
objRs("VALORE") = strData
objRs.Movenext
Loop
objRs.Update
objRs.Close
%>
<%
' Disconnessione database
Set objRs = Nothing
objConn.Close
Set objConn = Nothing
%>