Ciao a tutti,
ho bisogno di una mano perchè ho un problema con il codice che vi riporto qui sotto!
Ho necessità di estrarre tramite ASP da un db access solo l'evento che avverrà da oggi a una settimana.
Per la data di inizio (oggi)non ci sono problemi. Ma mi crea problemi sulla data di fine.
Mi estrae tutti gli eventi presenti da oggi al termine del database.
In access il formato del campo data è DATA/ORA.
Grazie mille per l'aiuto...
Posto il codice.
<%
dim connDB, Data
set connDB=server.CreateObject ("ADOdb.connection")
connDB.ConnectionString="Provider=Microsoft.Jet.OL EDB.4.0;Data Source=d:\inetpub\webs\DORIAPALLAVOLOIT\mdb-database\CALENDARI.mdb;Persist Security Info=False"
connDB.Open
set RecCalendario= server.CreateObject("adodb.recordset")
%>
<%
Dim dataInizio
dim vardata
dataInizio = Date()
Dim dataFine
dataFine=DateAdd("D", 6 , Date())
%>
<%set RecCalendario=connDB.Execute("SELECT * FROM CALENDARIO1DIV WHERE Data >=#" & dataInizio & "# AND Data<=#" & dataFine & "# ")
IF NOT RecCalendario.EOF then
do while not RecCalendario.eof
vardata=RecCalendario("data")
%>
<FONT SIZE="2" COLOR="009933" face="Bookman Old Style">
[b]Iª DIVISIONE: <%Response.Write(formatDateTime(varData, vbLongDate)) %> ore <%=RecCalendario("ORA")%>
<%=RecCalendario("SQUADRAA")%> - <%=RecCalendario("SQUADRAB")%>
<%
RecCalendario.MoveNext
loop
ELSE%>
<FONT SIZE="2" COLOR="009933" face="Bookman Old Style">
Iª DIVISIONE: Non ci sono gare in programma per questa settimana!
</font>
<%END IF%>
Rispondi quotando
