Ayuda con Funcion mas eficiente

[kayserpc]

Estimados

hice una funcion que toma los campos de un form de una pagina en asp y los imprime por pantalla, por un lado los campos separados por campos y por otro lado los valores de esos campos., el tema es que al ponerle coma a cada campo el ultimo queda con una coma al final y no lo puedo insertar en la tabla. Es por este que con otra funcion le quito el ultimo caracter. La funcion es esta:

<%
'Almaceno los campos de la encuesta en strCampos y las respuestas en strValores
Dim strCampos, strValores
strValores = ""
strCampos = ""
for x=1 to (request.Form.count - 2)
if (request.form.key(x)) = "p26" OR (request.form.key(x)) = "p32" then
strCampos = strCampos & request.form.key(x) & ", "
strValores = strValores & "'" & replace(mid(request.form.item(x),1,4), "'", "''") & "'" & ", "
else
strCampos = strCampos & request.form.key(x) & ", "
strValores = strValores & request.form.item(x) & ", "
end if

next
strValores = Replace(strValores, chr(34), chr(34) & chr(34))
%>
<%
strCampos = mid(strCampos,1,(len(strCampos)-2))
strValores = mid(strValores,1,(len(strValores)-2))
%>

despues de esto con un response.write veo los valores bien por pantalla., el tema es que me comentaron que con split y join lo puedo hacer mas facil pero no logro hacerlo.

Por otro p26 y p32 son campos de texto, es por esto que aparecen en el if asi. pero por otro lado me gustaria que directamente el script evalue si viene un campo de texto, en vez de ponerlo manual.

espero haberme explicado mas o menos bien

GRACIASSSSSSSSSSSS

[u_goldman]

Hola kayserpc, bienvenido a FDW,

No entendi que pretendes hacer ni cual es el problema en realidad, si pudieras elaborar un poco mas te lo agradeceriamos.

Saludos

[Shiryu_Libra]

anexale este if al final

else
if x = (request.Form.count - 2) then
strCampos = strCampos & request.form.key(x)
strValores = strValores & request.form.item(x)
else
strCampos = strCampos & request.form.key(x) & ", "
strValores = strValores & request.form.item(x) & ", "
end if
end if