ecco il codice
codice:
<%
giorno=request.querystring("giorno")
mese=request.querystring("mese")
anno=request.querystring("anno")
costo=request.querystring("costo")
data=giorno&"/"&mese&"/"&anno
'Dichiarazione della variabile che conterrà ilrecordset
Set objRS = Server.CreateObject("ADODB.RecordSet")
'Creazione della variabile connessione al db
Set objConn = Server.CreateObject("ADODB.Connection")
'apro la connessione conoscendo il driver e il nome del file
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db.mdb")
set objRS = objConn.Execute("SELECT * FROM SERATE WHERE data='"&data&"'")
if objRS.EOF then
set objRS = objConn.Execute("INSERT INTO serate(data,costo) VALUES ('"& data &"', '" & costo & "')")
else
end if
'Chiudo
objconn.close
set objRS = Nothing
%>