Insert loop?

Såg en loop som hämtar formulärsnamn och dess värde, vilket funkade bra.
Men hur får man värderna i databasen i respektive kolumn med en Insert into tabell....

Så här såg loopen ut:

For Each objField In Request.Form
	response.write objField & "<br>"
	If Len(Request.form(objField)) > 0 Then
		response.write Request.form(objField) & "<br>"
	End If
Next

Re: Insert loop?

Typ såhär?

For Each objField In Request.Form
	If Len(Request.form(objField)) > 0 Then
		strFields = strFields & objField & ", "
		strValues = strValues & request.form( objField ) & ", "
	End If
Next

if len( strFields ) > 0 then
  strFields = left( strFields, len( strFields ) -2 )
end if

if len( strValues ) > 0 then
  strFields = left( strValues, len( strValues ) -2 )
end if

strSQL = "insert into table( " & strFields & " ) values( " & strValues & " )"