Envio De Formulário

[baladaclick]

Galera, seguinte, existe alguma outra forma de montar um formulario com envio p banco sem ter que ficar colocando

email = request.form("email")
nome = request.form("nome")
cidade = request.form("cidade")

Insert INTO clientes (email, nome, cidade) values ('"& email &"', ' " & nome & " ', ' " & cidade & " ')

???

porque c eu tiver um formulário com 30 campos vou ter que fazer isso com todos os campos? parece que tem uma forma for each c não me engano. gostaria de um exemplo

valeu moçada

[.Andreia.]

Eu ainda não tive essa situação, fiz um exemplo:

<%
For Each campo in Request.Form
    campos = campos & campo & ","
    valores = valores & "'" & request.form(campo) & "'" & ","
next

function TiraVirgula(var)
if right(var,1) = "," then
    var = mid(var, 1, len(var)-1)
end if
TiraVirgula = var
end function

sql = "insert into tabela ("& TiraVirgula(campos) &") values ("& TiraVirgula(valores) &")"
response.write sql
response.end
%>

POREM vai surgir outro problema: campos numericos/data

Porque ai eu estou inserindo em todos a aspas simples, que é usado para textos. A unica ideia que surgiu é usar IFs...

bom, se alguém tiver alguma coisa melhor posta aí ;)