complicacion para recoger datos

[cristianf]

hola nuevamente estoy lidiando con esta cuestion
- Tengo el siguiente codigo:
<%
dataIni = Request.Form("fecha1")
dataFin = Request.Form("fecha2")
for i = cdate(dataIni) to cdate(dataFin)
response.write i & "<br>"
next %>

que me devuelve informacion de todas las fechas entre fecha inicio (fecha1) y fecha fin (fecha) de la siguiente manera:
24/02/2006
25/02/2006
26/02/2006
27/02/2006

ahroa lo que pretendo es subir fecha a fecha los datos a una base. por lo pronto puedo subir la inicio y fin pero no las intermedias y no se que codigo o de que forma llamarlas para que se transformen en valor y me permita subir a la base de datos. desde ya chas gracias a toitos

[biffly]

hola, podrias usar otra opcion:
<%
dataIni = Request.Form("fecha1")
dataFin = Request.Form("fecha2")
d = cdate(datafin) - cdate(dataini)
for t=0 to d
response.write cdate(dataini)+t
next
%>

creo que de esta forma seria mas facil, y el valor a almacenar el tu DB seria: cdate(dataini)+t

espero que te sirva, saludos:)

[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 ;)

[biffly]

PROBA ASI:

Código:

 d = cdate(datafin) - cdate(dataini)
for t=0 to d
  response.write cdate(dataini)+t & "<br>"
  SQL = "INSERT INTO BASE1 (FECHA1) VALUES ('" & (CDATE(DATAINI + T) & "'"
  CNN.EXECUTE SQL
next

saludos :)

[cristianf]

me tira este error
Tipo de error:
Error de compilación de Microsoft VBScript (0x800A03EE)
Se esperaba ')'

[cristianf]

ahroa tengo el codigo escrito asi:

<%
dataIni = Request.Form("fe")
dataFin = Request.Form("fe1")
Response.Buffer = true
dim cnn,rst
' Creamos la conexión a la base de datos sin DSN
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
cnn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("base1.mdb")
d = cdate(datafin) - cdate(dataini)
for t=0 to d
response.write cdate(dataini)+t & "<br>"
sqltext = "Insert into base1 (fecha1) values ('" & CDATE(DATAINI + T) & "')"

next
%>


y me tira el siguiente error

No coinciden los tipos: '[string: "22/02/2006"]'

que complicado que esta este tema....saludos y gracias por la onda.....

[biffly]

perdon, si me falto un parentesis, el error que te tira debe ser por el tipo de datos en tu DB, este tendria que ser del tipo fecha, saludos:)

[cristianf]

En la base de datos el campo es fecha/hora con formato fecha corta (19/06/2004)

Segun tengo entendido ¿ tendria que validar las fechas antes de pasarlas a la base de datos ?

[biffly]

Iniciado por cristianf

En la base de datos el campo es fecha/hora con formato fecha corta (19/06/2004)

Segun tengo entendido ¿ tendria que validar las fechas antes de pasarlas a la base de datos ?

proba asi: sqltext = "Insert into base1 (fecha1) values (" & CDATE(DATAINI + T) & ")"

puede ser que con access te de esos errores, saludos:)

[cristianf]

me sigue tirando error:

Error de Microsoft VBScript en tiempo de ejecución (0x800A000D)
No coinciden los tipos: '[string: "22/02/2004"]'

en que la estoy pifiando?