Give this a try:
variable_1 = "string1"
variable_2 = "string2"
variable_3 = "string10"
arrVars = Array(variable_1, variable_2, variable_3)
For i = 0 To UBound(arrVars)
rs.Open "INSERT INTO database (column) VALUES (' " & arrVars(i) &
" ')"
Next
<%
David Mitchell
Web/Software Developer
david at sofTV.net
sofTV.net
www.sofTV.net
613.729.6400 x268
%>