% trovato = true email = request("email") if email = "" then trovato = false if trovato then set OBJdbConnection = Server.CreateObject("ADODB.Connection") OBJdbConnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:\Y_Databases\ristorantearcimboldo.it\iscritti.txt" set rs=server.createobject("ADODB.Recordset") rs.open "ingressi",OBJdbConnection,3,3 rs.addnew rs("email") = email id = year(date) & month(date) & day(date) & hour(time) & minute(time) & second(time) rs("id") = id rs.update end if %>
|
|
|||||||||
|
..
.
|
|
||||||||
|
|