dim registros
dim vect, i
registros = "campo1, campo2"
registros = Chr(34) & replace(registros, ", ", Chr(34) & "," & Chr(34), 1, -1, 1) & Chr(34)
vect = array(registros)
For i = 0 to ubound(vect)
Response.Write vect(i)
Response.Write "<BR><br>"
next
--------------------------------------------------------
hay alguna manera de q este codigo funcione con alguna modificacion?
De esta manera, en vez de dar como resultado:
campo1
campo2
da como resultado:
"campo1","campo2"
-----------------------------------------
la finalidad de este codigo es insertar con un solo textbox varios registros en una base de datos, por eso necesito que el array funcione y separe los registros divididos por ","
hay alguna forma menos palurda de hacerlo?
se me entiende? :S
un saludo a todos y gracias por vuestra atencion
