Reprendre une date dans la barre d'adresse.

**kmayoyota** · 31/08/2004, 08h28

Bonjour à tous,

J'ai créé un calendrier, quand je clique sur une date du calendrier j'envoi automatiquement la date sur la page date.asp.

Exemple:
www.monsite.com/date.asp?date=19/08/2004

Ensuite je récupère la date dans ma page date.asp et j'aimerai juste l'afficher.

Je n'arrive pas afficher la date qui est dans ma base.

Voici mon code qui devrai afficher la date de l'url:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
<%SQL="SELECT t_cours.*, t_liens_cours.* FROM t_cours INNER JOIN t_liens_cours ON t_cours.cour_no = t_liens_cours.lc_cours WHERE lc_date_de="&request.querystring("date")&""%>
<!--#include file="???.txt"-->
<%RS.Open SQL, Conn, 1,1%>
<%DO WHILE NOT RS.BOF AND NOT RS.EOF%></p>
<table width="200" border="1">
 
 
<tr>
    <td><%=RS.Fields("lc_date_de").value%>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
</table>
<p><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
 
 
<%
rs.MoveNext
LOOP
%>
<%conn.close
set conn = nothing
set rs = nothing
%>

Je ne sais pas pourquoi mais rien ne s'affiche dans ma page.

Je ne trouve pas mon erreur!

J'espère que vous pourrez m'aider!

Merci d'avance.

Fabien

**David.V** · 31/08/2004, 08h54

C'est quelle type de SGBD ?

D'autre part, pour vérifier l'égalité de 2 dates dans ta requête, je te conseille fortement "datediff" qui fait la différence (il suffit de regarder si c'est égal ou non à 0).

**kmayoyota** · 01/09/2004, 07h40

C'est une base de donée ACCESS.

J'ai une table qui à un champs lc_date_de (date/heure) et c'est ce champs que j'aimerais afficher dans ma page avec le champs LC_DESCRIPTION qui se trouve dans la même table.

Comment je dois faire pour que ma page reprenne mon adresse dans la barre d'adresse et qu'ensuite elle me l'affiche en fonction de ma table??

Merci d'avance.

Fabien

**David.V** · 01/09/2004, 12h12

Il va falloir que tu décomposes ta date et que tu l'injectes dans ta requête sous forme MM/JJ/AAAA (à moins que ça soit AAAA/MM/JJ, je me rappelle plus trop bien, tu n'auras qu'à essayer si ça ne marche pas)

Essaies d'écrire ta requete comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
<%
  Dim Date
  Date = Cdate(request.querystring("date"))
  Dim TDate()
  TDate = Split(Date, "/")
  Date = TDate(1) & "/" & TDate(0) & "/" & TDate(2)
SQL="SELECT t_cours.*, t_liens_cours.* FROM t_cours INNER JOIN t_liens_cours ON t_cours.cour_no = t_liens_cours.lc_cours WHERE datediff('d',lc_date_de,#" & Date & "#)=0"%>

Voila, ça devrait ressembler à ça je pense.

**kmayoyota** · 01/09/2004, 15h41

Ca ne marche pas tout à fait encore!

Voici l'erreur:
Microsoft VBScript runtime error '800a000d'

Type mismatch

/date.asp, line 9

L'erreur ce situe à cette ligne:

TDate = Split(Date, "/")

Ma date est au format jj/mm/aaaa...

Je ne sais pas trop ou se trouve l'erreur!!
Comment je dois faire avec le format de date??
es-ce que tu sais ou se trouve l'erreur??

Merci d'avance.
Meilleures salutations.

Fabien

**franculo_caoulene** · 01/09/2004, 15h47

Salut,

Essaies

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TDate = Split(Cstr(Date), "/")

[edit]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim Date

ne fonctionne pas car Date est une fonction vbscript! Si tu veux décomposer ta date il y a DatePart
[/edit]

**kmayoyota** · 01/09/2004, 16h06

Il me retourne toujours la même erreur qu'avant.

je ne sais pas trop quoi faire!

Peux-tu encore m'aider STP??

Merci encore c vraiment sympa.
A+

Fabien

**fredoche** · 01/09/2004, 17h28

Envoyé par franculo_caoulene

Salut,

Essaies

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TDate = Split(Cstr(Date), "/")

[edit]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim Date

ne fonctionne pas car Date est une fonction vbscript! Si tu veux décomposer ta date il y a DatePart
[/edit]

essaie plutot ça alors :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
TDate = Split(FormatDateTime(Date, vbShortDate), "/")

Sinon Franculo a raison Date est une fonction, c'est bizarre que tu n'aies pas d'autres soucis

**kmayoyota** · 02/09/2004, 08h04

J'ai toujours la même erreur à la même ligne!

Microsoft VBScript runtime error '800a000d'
Type mismatch
/date.asp, line 9

Je sais vraiment pas quoi faire!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Dim Date 
  Date = Cdate(request.querystring("date")) 
  Dim TDate() 
  TDate = Split(FormatDateTime(Date, vbShortDate), "/")  ----->ICI se trouve l'erreur
Date = TDate(1) & "/" & TDate(0) & "/" & TDate(2)
SQL="SELECT t_cours.*, t_liens_cours.* FROM t_cours INNER JOIN t_liens_cours ON t_cours.cour_no = t_liens_cours.lc_cours WHERE datediff('d',lc_date_de,#" & Date & "#)=0"
SET CONN = Server.CreateObject("ADODB.Connection")
SET RS = Server.CreateObject("ADODB.RecordSet")
Conn.Open "fit_db.mdb"

J'espère que quelqu'un pourra m'aider.!?!

Merci encore.

Fabien

**David.V** · 02/09/2004, 11h10

La fonction FormatDateTime n'existe pas en VbScript (et ici de toute façon, il n'y aucun interet à convertir en date puisque que l'on split une chaine).

Essaie comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Dim PDate 
PDate = request.querystring("date")
Dim TDate 
TDate = Split(PDate, "/")
PDate = TDate(1) & "/" & TDate(0) & "/" & TDate(2)
SQL="SELECT t_cours.*, t_liens_cours.* FROM t_cours INNER JOIN t_liens_cours ON t_cours.cour_no = t_liens_cours.lc_cours WHERE datediff('d',lc_date_de,#" & Date & "#)=0"
SET CONN = Server.CreateObject("ADODB.Connection")
SET RS = Server.CreateObject("ADODB.RecordSet")
Conn.Open "fit_db.mdb"

J'ai renommé Date en PDate pour éviter des problèmes relatif à des mots clés réservés.

**kmayoyota** · 02/09/2004, 13h59

Je n'ai plus d'erreur dans ma page, mais il m'affiche toujours rien sur ma page.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
<%Dim PDate 
PDate = request.querystring("date") 
Dim TDate 
TDate = Split(PDate, "/") 
PDate = TDate(1) & "/" & TDate(0) & "/" & TDate(2) 
SQL="SELECT t_cours.*, t_liens_cours.* FROM t_cours INNER JOIN t_liens_cours ON t_cours.cour_no = t_liens_cours.lc_cours WHERE datediff('d',lc_date_de,#" & Date & "#)=0" 
SET CONN = Server.CreateObject("ADODB.Connection") 
SET RS = Server.CreateObject("ADODB.RecordSet") 
Conn.Open "fit_db.mdb" 
RS.Open SQL, Conn, 1,1
DO WHILE NOT RS.BOF AND NOT RS.EOF%></p>
<table width="200" border="1">
  <tr>
    <td><%=RS.Fields("lc_date_de").value%>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
</table>

L'erreur est peut-être ailleurs!?!
que dois-je faire??

Merci beaucoup.

Fabien

**fredoche** · 02/09/2004, 14h54

Envoyé par David.V

La fonction FormatDateTime n'existe pas en VbScript (et ici de toute façon, il n'y aucun interet à convertir en date puisque que l'on split une chaine).

euh si elle existe, je t'assure
et puis je proposais ça parce que kmayoyota fait une conversion date avant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Date = Cdate(request.querystring("date"))

pour après la repasser en string lors du split

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 TDate = Split(Cstr(Date), "/")

Pour moi cette conversion en string ne pouvait pas repasser la date sous la forme jj/mm/yyyy, il fallait un reformatage.
Mais c'est vrai que tu peux directement splitter le request.querystring("date")), vu la syntaxe de ce paramètre. J'aurais du mieux lire...

Sinon pourquoi vous inversez mois et jours?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Date = TDate(1) & "/" & TDate(0) & "/" & TDate(2)

**kmayoyota** · 02/09/2004, 15h18

J'ai insérer le code comme ca:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
<%Dim PDate 
Date = Cdate(request.querystring("date"))            ----->ici est l'erreur
Dim TDate 
TDate = Split(Cstr(Date), "/")
PDate = TDate(1) & "/" & TDate(0) & "/" & TDate(2)
SQL="SELECT t_cours.*, t_liens_cours.* FROM t_cours INNER JOIN t_liens_cours ON t_cours.cour_no = t_liens_cours.lc_cours WHERE datediff('d',lc_date_de,#" & Date & "#)=0" 
SET CONN = Server.CreateObject("ADODB.Connection") 
SET RS = Server.CreateObject("ADODB.RecordSet") 
Conn.Open "fit_db.mdb" 
RS.Open SQL, Conn, 1,1
DO WHILE NOT RS.BOF AND NOT RS.EOF%>

Ca me retourne le messsage d'erreur suivant:

Microsoft VBScript runtime error '800a01f5'

Illegal assignment: 'Date'

/date.asp, line 6

**Crazyblinkgirl** · 02/09/2004, 16h03

Il me semble que "Date" est un mot clé réservé, tu ne peux pas l'utiliser comme nom de variable

**kmayoyota** · 02/09/2004, 16h06

J'ai simplement mis VDATE.
Malheureusement ca ne fonctionne toujours pas!
le navigateur m'affiche rien du tout. (pas de message d'erreur)
Ma page est blanche!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
<%Dim PDate 
VDate = Cdate(request.querystring("date"))
Dim TDate 
TDate = Split(Cstr(Date), "/")
PDate = TDate(1) & "/" & TDate(0) & "/" & TDate(2)
SQL="SELECT t_cours.*, t_liens_cours.* FROM t_cours INNER JOIN t_liens_cours ON t_cours.cour_no = t_liens_cours.lc_cours WHERE datediff('d',lc_date_de,#" & Date & "#)=0" 
SET CONN = Server.CreateObject("ADODB.Connection") 
SET RS = Server.CreateObject("ADODB.RecordSet") 
Conn.Open "fit_db.mdb" 
RS.Open SQL, Conn, 1,1
DO WHILE NOT RS.BOF AND NOT RS.EOF%>

Je sais vraiment pas quoi faire!!!

J'espère que quelqu'un réussira à m'aider.

Merci d'avance.

Fabien

**Crazyblinkgirl** · 02/09/2004, 16h15

Je n'ai pas tout suivi depuis le début, tu affiches quoi là?

**kmayoyota** · 02/09/2004, 16h19

J'aimerai afficher une date que je reprends de ma barre d'adresse.

exemple:
www.monsite.com/dateaffiche.asp?date=19/10/2004

J'aimerai ensuite pouvoir afficher tout les champs qui son en relation avec cette date qui est dans mon url.

Merci d'avance.

**Crazyblinkgirl** · 02/09/2004, 16h23

Oui mais la tu n'affiches rien

**kmayoyota** · 02/09/2004, 16h25

Pour l'instant j'aimerai juste afficher la date qui correspond dans ma base de donnée et une fois que cela marche j'afficherai tout.

Voici mon code entier:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
<%
Dim PDate 
VDate = Cdate(request.querystring("date"))
Dim TDate 
TDate = Split(Cstr(Date), "/")
PDate = TDate(1) & "/" & TDate(0) & "/" & TDate(2)
SQL="SELECT t_cours.*, t_liens_cours.* FROM t_cours INNER JOIN t_liens_cours ON t_cours.cour_no = t_liens_cours.lc_cours WHERE datediff('d',lc_date_de,#" & Date & "#)=0" 
SET CONN = Server.CreateObject("ADODB.Connection") 
SET RS = Server.CreateObject("ADODB.RecordSet") 
Conn.Open "fit_db.mdb" 
RS.Open SQL, Conn, 1,1
DO WHILE NOT RS.BOF AND NOT RS.EOF%></p>
<table width="200" border="1">
  <tr>
    <td><%=RS.Fields("lc_date_de").value%>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
</table>
<p><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<%
rs.MoveNext
LOOP
%>
<%conn.close
set conn = nothing
set rs = nothing
%>

**Crazyblinkgirl** · 02/09/2004, 16h31

Essaies :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

<%=RS("lc_date_de")%>

Reprendre une date dans la barre d'adresse.

ASP

Discussions similaires

Partager

Partager