he preparado otra cosita, así tienes para elegir. Igual hay algun error, porque lo he hecho a toda pastilla....
Código:
<%
sqlinsert1="Insert Into tabla("
sqlinsert2=") VALUES ("
For Each elemento in Request.form
if Request.form(elemento)<>"" then
sqlinsert1=sqlinsert1&cstr(elemento)&","
if isnumeric(Request.form(elemento)) then
sqlinsert2=sqlinsert2&Request.form(elemento)&","
else
sqlinsert2=sqlinsert2&"'"&Request.form(elemento)&"',"
end if
end if
Next
sqlinsert1=left(sqlinsert1,len(sqlinsert1)-1)'para quitar la coma del final
sqlinsert2=left(sqlinsert2,len(sqlinsert2)-1)&")"
sql=sqlinsert1&sqlinsert2
response.Write(sql)%>