complicacion para recoger datos

[cristianf]

biffly: me funciona bien el codigo pero sigo con inconvenientes para llevarlos a la base de datos.
te muestro el codigo para que lo veas, ya el codigo que estoy usando inserta en la base de datos una sola fecha y esta siempre es un dia mayor a la fecha fin.
Ejemplo si ingreso 04/05/2006 al 06/05/2006 a la base envia 07/05/2006
el codigo que estoy usando va asi:

<%
dataIni = Request.Form("fecha1")
dataFin = Request.Form("fecha2")

d = cdate(datafin) - cdate(dataini)
for t=0 to d
response.write cdate(dataini)+t & "<br>"
next

Response.Buffer = true
dim cnn,rst
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
cnn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("base1.mdb")
sqltext = "SELECT * FROM base1"
rst.Open sqltext,cnn,3,3

dim fecha1
fecha1 = cdate(dataini)+t

rst.AddNew
rst("fecha1") = fecha1

rst.update

Response.Write "Actualizado"
%>

Entonce en lo que em queda duda es si estoy usando bien el addnew y en lo posible seria y te reitero la idea mia si es posible es insertar todos los valores que de esta lista de fechas a un campo en forma automatica. casi con seguridad se que el tema viwene por el addnew pero no logro decifrar cual es.
nuevamente te agredezco. saludos ;)