Memorizzazione veloce

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>

Grazie al seguente script facilmente personalizzabile, è possibile immettere in modo rapido informazioni in un database di tipo Microsoft Access.

Pubblicato il 7 mar 2002

Link copiato negli appunti

Grazie al seguente script facilmente personalizzabile, è possibile immettere in modo rapido informazioni in un database di tipo Microsoft Access.

'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>