Grazie al seguente script facilmente personalizzabile, è possibile immettere in modo rapido informazioni in un database di tipo Microsoft Access.
<%
if(request("id")="1") then
'Dichiarazione variabili
dim qtRecord
qtRecord = 4 'campi da memorizzare
dim ctInd
ctInd = 0 ' contatore
'Apertura database - recordset
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("test.mdb")
Conn.Open (strConn)
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "tabella", conn,3,3
'Memorizzazione dati
rs.addnew
for ctInd= 0 to (qtRecord - 1)
rs(ctInd)=request.form("campo"&ctInd+1)
next
rs.update
'Chiusura database - recordset
rs.close
set rs=nothing
conn.close
set conn=nothing
'Avviso a video
response.write "Memorizzazione riuscita"
end if
%>
<FORM METHOD=POST ACTION="index.asp?id=1">
<INPUT TYPE="text" NAME="campo1"><br>
<INPUT TYPE="text" NAME="campo2"><br>
<INPUT TYPE="text" NAME="campo3"><br>
<INPUT TYPE="text" NAME="campo4"><br>
<INPUT TYPE="submit" value="memorizza">
</FORM>