insert into database (mange formfelter)

Hmm....

strSQL = "SELECT * FROM Database"
objRs.Open strSQL, objConn, 1, 4

For Each Item In Request.Form
  objRs(Item) = Request.Form(Item)
Next

Sådan?

//>Rune

Hov, der skulle stå 3 i stedet for 4...

strSQL = "SELECT * FROM Database"
objRs.Open strSQL, objConn, 1, 3

For Each Item In Request.Form
  objRs(Item) = Request.Form(Item)
Next

//>Rune

Pørv med dette, det vil kun virker for tekst/notat (hvis du bruger Access) felter da der er ' omkring valuesne

kolList = ""
valList = ""
for each variable_name in request.form
  variable_value=request.form(variable_name)
  kolList = kolList & "," & variable_name
  valList = valList & ",'" & variable_value & "'"
next
kolList = Mid(kolList,2) 'Fjerner føste komma
valList ) Mid(valList,2) 'Fjerner føste komma

SQL = "INSERT INTO tabel (" & kolList & ") VALUES (" & valList & ")"


Du kan prøve at udskrive SQL sætningen og se om den er rigtig.:
Response.write SQL