<%
Option Explicit
Dim TheFields
Dim TheValues
Dim TheFormField
Dim TheQuery
For Each TheFormField in Request.Form
  If TheFormField <> "TableName" and  TheFormField <> "CompleteMessage" _
       and TheFormField <> "SubmitButton" Then
     TheFields = TheFields & TheFormField & ", "
     TheValues = TheValues & "'" & Request.Form(TheFormField) & "', "
  end if
Next
TheFields = left(TheFields, Len(TheFields) - 2)
TheValues = left(TheValues, Len(TheValues) - 2)
Dim conn
set conn = server.createobject ("adodb.connection")
conn.open "ASPBook", "sa", "twoje_haslo"
conn.execute "insert into " & Request.Form("TableName") _
  & " (" & TheFields & ") values (" & TheValues & ")"
%>
