:: FILOWEB.it: 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" ))

%>