Ce ne sono diversi per la rimozione delle otp dai file di testo ric e ris, ma credo sia meglio che te ne fai uno per il "pescaggio" da database. E' decisamente meglio e non devi perdere tempo a pensare a come "imboscare" i files.
La cosa più "complessa" se così la si può definire, è l'immissione delle otp nel db...il resto (pescaggio e cancellazione) sono 2 righe di sql.
codice:
<%
Dim Strings(5000)
con.execute "TRUNCATE TABLE ric"
con.execute "TRUNCATE TABLE ris"
const ricname="D:\siti\ciccio\httpdocs\sellaotp\otp.ric"
const risname="D:\siti\ciccio\httpdocs\sellaotp\otp.ris"
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile(RicName, 1, false)
i = 0
Do While Not a.AtEndOfStream
Strings(i) = a.ReadLine
con.execute "INSERT INTO ric (codice) VALUES ('"&strings(i)&"')"
i = i+1
Loop
a.Close
Set a = fs.OpenTextFile(RisName, 1, false)
i = 0
Do While Not a.AtEndOfStream
Strings(i) = a.ReadLine
con.execute "INSERT INTO ris (codice) VALUES ('"&strings(i)&"')"
i = i+1
Loop
a.Close
Set fs = Nothing
con.close
%>