Filoweb.it

CREARE UNA TEBALLE PER INSERIRE I DATI


FB TW whatsapp RSS FEED News letter
ASP
CREARE UNA TEBALLE PER INSERIRE I DATI


<%

Sub CreaInserimento(tabella)



SQLConn = " " ' stringa di conn



set conn = server.createobject(" ADODB.Connection" )

conn.open sqlconn



if request(" inserimento" ) = " 1" then

' inserisco



' ciclo su tutti i campi inviati tramite metodo POST

for each item in Request.Form

' se i primi 4 char contengono SQL_

if Mid(item, 1, 4) = " SQL_" then

SQL1 = SQL1 & Mid(item, 5) & " , "

SQL2 = SQL2 & " ' " & Replace(Request.Form(item), " ' " , " ' ' " ) & " ' , "

end if

next



' costruzione query ed inserimento

SQL = " INSERT INTO " & tabella & " (" & Left(SQL1, Len(SQL1)-2)

SQL = SQL & " ) VALUES (" & Left(SQL2, Len(SQL2)-2) & " )"

conn.Execute SQL, aff



' informazione di debug: volendo si può rimuovere

Response.write (" Query Eseguita:" & SQL & " <br>" )



if aff = 1 then

Response.Write(" Record inserito con sucesso" )

else

Response.Write(" Record non inserito" )

end if



else

' ricavo struttura e form



strSQL = " SELECT * FROM " & tabella



Set rs = conn.Execute(strSQL)



' ricavo il nome dei campi

For i = 0 to RS.Fields.Count - 1

intestazione = intestazione & " <tr><td>" & RS(i).Name

intestazione = intestazione & " </td><td><input type=" " text" " name=" " SQL_" & RS(i).Name & " " " ></td></tr>"

Next



set rs = Nothing



Response.Write (" <form method=post>" )

Response.Write (" <input type=" " hidden" " name=" " tabella" " value=" " " & tabella & " " " >" )

Response.Write (" <input type=" " hidden" " name=" " inserimento" " value=" " 1" " >" )

Response.Write (" <table border=1>" )

Response.Write (intestazione)

Response.Write (" <tr><td><input type=" " submit" " value=" " Inserisci" " ></td></tr>" )

Response.Write (" </table>" )



end if



conn.Close

set Conn = Nothing





End Sub



call CreaInserimento(Request(" tabella" ))

%>
FB TW whatsapp RSS FEED News letter

filoweb.it è il sito personale di Filippo Brunelli
(c) 2017 Filippo Brunelli
Le immagini ed i testi contenuti nel sito filoweb.it sono di proprietà di Filippo Brunelli salvo diversamente indicato.
L'uso delle immagini e del testo è gratuito per uso personale ed è subbordinato alla citazione della fonte.
Brunelli Filippo declina ogni responsabilità per l'uso che viene fatto delle informazioni presenti nel sito filoweb.it.
FILOWEB.it Piccolo quaderno degli appunti. Argomento: ASP, Titolo:CREARE UNA TEBALLE PER INSERIRE I DATI. Altri script riguardano: CSS, Jscript, .net, Classic Asp, HTML, Jquery, varie, url rewrite, pagina protetta da password, ecc. Altro su https://www.filoweb.it