Newsgroup: it.comp.www.asp
Titolo: Problema con le date AIUTO Please

Ciao a tutti,
per gioco mi sto cimentando in un sito di fantacalcio...
ho un problema:
- vorrei consentire agli utenti di consegnare le formazioni via web...
- devo impedire che lo facciano a ridosso delle partite e quindi li voglio
bloccare nei 2 giorni precedenti...
- a seconda della giornata di campionato le formazioni vanno messe in
diverse tab (TB_1, TB_2, ECC)
MA credo di non saper gestire le condizioni delle date (ho verificato senza
IF e mi connetto regolarmente al DB)
ECCO IL LISTATO:
DIM uno,due,ecc
(sono le date fino a che consento di inserire le formazioni)
uno=#07/09/01 23.00.00#
due=#14/09/01 23.00.00#
tre=#21/09/01 23.00.00#
quattro=#28/09/01 23.00.00#
cinque=#09/10/01 23.00.00#
sei=#12/10/01 23:00:00#
sette=#19/10/01 23:00:00#
otto=#26/10/01 23:00:00#
nove=#02/11/01 23:00:00#
dieci=#16/11/01 23:00:00#
undici=#23/11/01 23:00:00#
dodici=#30/11/01 23:00:00#
tredici=#07/12/01 23:00:00#
quattordici=#14/12/01 23:00:00#
(sono le date nelle quali riattivo il sistema per le formazioni)
unob=#10/09/01 10.00.00#
dueb=#17/09/01 10.00.00#
treb=#24/09/2001 10:00:00#
quattrob=#01/10/2001 10:00:00#
cinqueb=#11/10/2001 10:00:00#
seib=#15/10/2001 10:00:00#
setteb=#22/10/2001 10:00:00#
ottob=#29/10/2001 10:00:00#
noveb=#05/11/2001 10:00:00#
diecib=#19/11/2001 10:00:00#
undicib=#26/11/2001 10:00:00#
dodicib=#03/12/2001 23:00:00#
tredicib=#10/12/2001 10:00:00#
quattordicib=#17/12/2001 10:00:00#
Set objCon=Server.CreateObject("ADODB.Connection")
objCon.Open "DSN=fantaignoranti"
Set objRS=Server.CreateObject("ADODB.Recordset")
(faccio questo in previsione di un server che porta l'ora americana e quindi
6 ore in meno!)
dim data, dataEsatta
data = Now()
dataEsatta = DateAdd("h", 6, data)
If ((dataEsatta) < #07/09/01 23.00.00#) Then
sql = "INSERT INTO Tb_1
(ID_SQUADRA,Nome,Portiere,Difesa,Centrocampo,Attacco,PortiereRis,DifensoreRi
s,CentrocampistaRis,AttaccanteRis) "
sql= sql & "VALUES
("+ID+",'"+nome+"','"&portiere&"','"&difensori&"','"&centrocampisti&"','"&at
taccanti&"','"&portiereRis&"','"&difensoriRis&"','"&centrocampistiRis&"','"&
attaccantiRis&"');"
objRS.Open sql, objCon
ElseIf ((dataEsatta)  > #07/09/01 23.00.00#) And ((dataEsatta) < #10/09/01
10.00.00#) Then
'set objRS=nothing
'objCon.Close
'set objCon=nothing
Response.write "Tempo scaduto per inserire la formazione della 1 giornata!"
ElseIf ((dataEsatta)  > #10/09/01 10.00.00#) And ((dataEsatta)  < #14/09/01
23.00.00#) Then
sql = "INSERT INTO Tb_2
(ID_SQUADRA,Nome,Portiere,Difesa,Centrocampo,Attacco,PortiereRis,DifensoreRi
s,CentrocampistaRis,AttaccanteRis) "
sql= sql & "VALUES
("+ID+",'"+nome+"','"&portiere&"','"&difensori&"','"&centrocampisti&"','"&at
taccanti&"','"&portiereRis&"','"&difensoriRis&"','"&centrocampistiRis&"','"&
attaccantiRis&"');"
objRS.Open sql, objCon
ElseIf ((dataEsatta)  > #14/09/01 23.00.00#) And ((dataEsatta)  < #17/09/01
10.00.00#) Then
'set objRS=nothing
'objCon.Close
'set objCon=nothing
Response.write "Tempo scaduto per inserire la formazione della 1 giornata!"
ElseIf ((dataEsatta)  > #17/09/01 10.00.00#) Then
set objRS=nothing
objCon.Close
set objCon=nothing
Response.write "Il campionato è finito!"
End If
%>
SBAGLIO NELL'USARE LE DATE?
Per favore mi suggerite come posso fare?
Grazie a tutti in anticipo
Marco

Per favore mi suggerite come posso fare?
dunque, la data lì sopra cos'è, un sette settembre?  perché asp
interpreta le date all'americana, e quindi per lui sarebbe un 9
luglio.
per essere sicuro, scrivile nel formato aaaa/mm/gg hh:nn:ss, cioè
2001/09/07 23:00:00
-- 
non studio non lavoro non guardo la tv
non vado al cinema non faccio sport

Io ho risolto cosě:
Gs = DatePart("w", date()) ' Giorno della settimana (1 č domenica)
Og = FormatDateTime(now(), 4)  ' Ora in formato hh:mm
Tre = 3 ' Martedi
Ora = formatdatetime(cdate(#13.00#),4)
Ora1 = formatdatetime(cdate(#23.58#),4)
Ora2 = formatdatetime(cdate(#05.00#),4)
Ora3 = formatdatetime(cdate(#13:00#),4)
' Praticamente da sabato alle 13.00 fino a martedi alle 13.00 non faccio
apparire la pagina di inserimento giocatori
 if (Gs = 7  and (Og > Ora and Og < Ora1)) or Gs = 1 or Gs = 2 or (Gs = 3
and (Og > Ora2 and Og < Ora3)) then
  response.Redirect "Errori.asp?Cod=1"
 end if
Ciao.