<%
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"))
%>