[ WEB ] Création d un formulaire en .ASP

**Phiss** · 19/06/2007, 17h17

Est ce que par hasard tu ne voudrais pas que l'on fasse ton projet a ta place?

Car l'erreur qui est donné est assez explicite.

il manque une balise end et plus précisement une balise "

Code :

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

end if

" à ton code.

et chez toi c'est juste avant

Code :

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

rsliste.close

**nboubeur** · 20/06/2007, 11h45

Non , comme je l 'expliquais , je suis novice , donc je cherche juste a comprendre le fonctionnement pour une page etc ..

apres je me debrouillerais tt seul

c'est vrai que j en demande beaucoup , mais une fois que j 'aurais saisie le system de visualisation et de modification de la base , je pourrais me debrouiller tt seul , l'ASP est vraiment nouveau pour moi et de plus je n'est pas beaucoup de temp devant moi .

et tt cas merci pour tt ce que tu fais en ce moment ca me rend un grand service .......

sinon plus d 'erreur , mais page blanche .

**Phiss** · 20/06/2007, 13h23

alors pour continuer.

tu passes un id dans ton url, il correspond à un nom ou un numéro?

si c'est un numéro met alors comme requete

Code :

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

"SELECT * FROM [Suivi SAV] where [id] = '"& request.QueryString("id")&"'")

**nboubeur** · 20/06/2007, 16h49

mon ID correspond à un N°

et j'ai toujour une page blanche

**Phiss** · 20/06/2007, 17h21

quelle est ton url?

**nboubeur** · 20/06/2007, 18h01

je ne peut pas te le donner désolé , car c 'est sur un serveur IIS avec un pass .

http://ffffffffffffff/afficher.asp

sinon il me donne ca quand j affiche la source :

Code :

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

1
2
3
4
5
<html>
<head>
<title></title>
</head>
<body>

**Phiss** · 21/06/2007, 09h24

essaie avec afficher.asp?id=1

**nboubeur** · 21/06/2007, 12h13

page blanche

**Phiss** · 21/06/2007, 14h37

Et bien continuons...

Peux tu me dire si tu as dans ta base un enregistrement avec l'id = 1?

Ensuite peux tu me copier la page complète.

Sinon tu n'as pas d'erreur qui s'affichent dans tes pages?

**nboubeur** · 23/06/2007, 13h24

voila le code

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
29
30
31
32
33
34
35
36
37
38
39
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title></title>
</head>
<body>
<%
	strProvider = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=C:\base\bd1.mdb;"
	Set rs = server.CreateObject("ADODB.connection")
	rs.open strProvider
	set rsliste = rs.execute"SELECT * FROM [Suivi SAV] where [id] = '"& request.QueryString("id")&"'")
	if not rsliste.eof then
%>
<form name="form1" method="post" action=""> 
ID &nbsp;<input type="text" name="ot" value="<% =rsliste("id") %>" >
      &nbsp; &nbsp; &nbsp;&nbsp; N d'emplacement &nbsp;&nbsp;
    <input type="text" name="desc" value="<% =rsliste("N0emplacement") %>"><br>
      Nom du client
        <input type="text" name="ot" value="<% =rsliste("Nom du Client") %>">
      &nbsp; &nbsp;&nbsp; Emplacements du MH &nbsp; &nbsp;<input type="text" name="desc" value="<% =rsliste("emplacement du MH") %>" style="width: 203px"><br>
        Date de prise en charge du client &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<input type="text" name="ot" value="<% =rsliste("date prise en charge du client") %>">&nbsp;
        Date de Prise en charge du materiel &nbsp; &nbsp; &nbsp;<input type="text" name="desc" value="<% =rsliste("date de prise en charge materiel") %>"><br><br>
 
        Avancement du travail<br>
        <input type="text" name="ot" value="<% =rsliste("'avancement du travail") %>" style="width: 640px; height: 101px">&nbsp;
 
 
<%
end if
rsliste.close
set rsliste = nothing
rs.close
set rs = nothing
%>
</form> 
 
 
</body>
</html>

et je n'est aucun messages d 'erreur simplement une page blanche , meme en mettant l URL directement

**Phiss** · 25/06/2007, 11h26

Je ne vois plus qu'une possibilité dont je t'ais déjà parlé.

Enlève tout les espaces des noms dans tes tables.

ta table renomme la en suivi_sav
tes champs :
nom du client ==> nom_client
emplacement du MH ==> emplacement_MH
ETC...

**nboubeur** · 25/06/2007, 17h23

Voila désolé de te dire que meme apres avoir changé tt les champ et le nom de la table , j ai toujour une page blanche

**roro06** · 26/06/2007, 14h29

Bonjour

Je prends un peu le train en marche.

Je vois au moins un erreur dans le code donné :
set rsliste = rs.execute"SELECT * FROM [Suivi SAV] where [id] = '"& request.QueryString("id")&"'")

De plus il vaut mieux mettre un espace après execute. Normalement IIS aurait du te le signaler. (ça se configure dans les options du site web, "envoyer des messages d'erreur ASP détaillés au client")

id correspondant a un numero, les quotes ne sont pas indispensables

voili voilou

PS : Je rejoint entièrement Phiss concernant les espaces et les accents dans les noms de table, champs, requetes etc... : trop grosse source d'erreurs, même si la syntaxe [Suivi SAV] est correcte pour access. Par contre la syntaxe rsliste("emplacement du MH"), avec les espaces, est probablement mauvaise

**nboubeur** · 27/06/2007, 11h01

Apres avoir tt modifié rien ne s 'affiche

.

On tiend le bon bout

, apres je vous embetes plus héhé . ( enfin j'espere ) .

J'espere aussi que ce post aide les novices en dev ASP comme moi a comprendre le mode d'acces au données ACCESS et au system de modification de la base en elle meme .

j'y retourne

**roro06** · 27/06/2007, 16h23

Moi je ferai plutot :
<%
Dim rsListe

Set rsListe = Server.CreateObject("ADODB.Recordset")
rsListe.ActiveConnection ="Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\base\bd1.mdb;"
rsListe.Source = "SELECT * FROM SuiviSAV where nomduclient = " & request.QueryString("id")
rsListe.CursorType = 0
rsListe.CursorLocation = 2
rsListe.LockType = 1
rsListe.Open()

%>
et puis juste derriere :
<%= rsListe.eof %>

**nboubeur** · 27/06/2007, 16h49

Page blanche et j es mis ca :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title></title>
</head>
<body>
<%
Dim rsListe
 
Set rsListe = Server.CreateObject("ADODB.Recordset")
rsListe.ActiveConnection ="Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\base\bd1.mdb;"
rsListe.Source = "SELECT * FROM Suivi_SAV where nomduclient = " & request.QueryString("id")
rsListe.CursorType = 0
rsListe.CursorLocation = 2
rsListe.LockType = 1
rsListe.Open()
 
 
%> 
<%= rsListe.eof %>
%>
<form name="form1" method="post" action=""> 
ID &nbsp;<input type="text" name="ot" value="<% =rsliste("ID") %>" >
      &nbsp; &nbsp; &nbsp;&nbsp; N d'emplacement &nbsp;&nbsp;
    <input type="text" name="desc" value="<% =rsliste("N0emplacement") %>"><br>
      Nom du client
        <input type="text" name="ot" value="<% =rsliste("nomduClient") %>">
      &nbsp; &nbsp;&nbsp; Emplacements du MH &nbsp; &nbsp;<input type="text" name="desc" value="<% =rsliste("emplacementduMH") %>" style="width: 203px"><br>
        Date de prise en charge du client &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<input type="text" name="ot" value="<% =rsliste("datepriseenchargeduclient") %>">&nbsp;
        Date de Prise en charge du materiel &nbsp; &nbsp; &nbsp;<input type="text" name="desc" value="<% =rsliste("datedepriseenchargemateriel") %>"><br><br>
 
        Avancement du travail<br>
        <input type="text" name="ot" value="<% =rsliste("'avancementdutravail") %>" style="width: 640px; height: 101px">&nbsp;
 
 
<%
 
rsliste.close
set rsliste = nothing
rs.close
set rs = nothing
%>
</form> 
 
 
</body>
</html>

**roro06** · 28/06/2007, 09h50

Normalement, avec

Code :

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

<%= rsListe.eof %>

tu devrais avoir au moins inscrit true ou false (ou vrai ou faux).
Donc ta page s'arrete de fonctionner avant cette sortie.
Donc ton serveur n'envoie pas les messages d'erreur au client.
vérifie bien la config de ton serveur, pour au moins avoir un message d'erreur sur ton navigateur.
quelle est ta plateforme ? XP ? W2003?

**nboubeur** · 28/06/2007, 11h40

XP pro en serveur IIS

**roro06** · 28/06/2007, 12h08

Tiens, au passage, ta requete, ça serait pas plutot :

Code :

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

rsListe.Source = "SELECT * FROM Suivi_SAV where ID= " & request.QueryString("id")

**nboubeur** · 28/06/2007, 12h32

Et bas voila ca me donne ca :

donc maintenan , il faut que je fasse des boutons pour modifier , enregistrer , supprimer , ajouter un client et voila .

En tt cas vous m'aidez vraiment dans le travail que j ai a fournir , merci encore de votre aide .

[ WEB ] Création d un formulaire en .ASP

ASP

Discussions similaires

Partager

Partager