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>

I Video di HTML.it

AMZ Team e il progetto Medical-box

Il team di ragazzi racconta l’idea che li ha postati sul podio italiano dell’edizione 2013 dell’Imagine Cup (secondi classificati).