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

**nboubeur** · 07/06/2007, 09h22

Voila j affiche l'ID avec numero 1 sous forme de lien quand je clic dessus erreur 500.

Sinon , pour la lecture des tuto , le truc es que je n'arrive pas encore a saisir vraiment l odre et la mise enplace du code en lui meme .Donc , je me melange u n peut les pinceaux

C'est pour ca , que avec un code corect je pense que je pourrais par la suite me debrouiller seul , car j aurais un support qui fonctionne sur le quel je pourrais me baser pour travailler correctement .

J'avoue que ton aide et l 'aide des gens de ce forum es vraiment enorme .
Ci ma page fonctionne correctement , je vous en serais tres reconnaissant .

**Phiss** · 07/06/2007, 10h22

sur la page nommé afficher.asp tu as mis quoi?

Essaie avec ça.

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
 
 
<%
	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 [nom du client] = '"& 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("NO emplacement") %>"><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;
 
 
<%
rsliste.close
set rsliste = nothing
rs.close
set rs = nothing
%>
</form>

avec ça tu as qq chose?
Si tu mets dans ton url
afficher.asp?id=1

**nboubeur** · 07/06/2007, 10h27

erreur 500

**Phiss** · 07/06/2007, 10h32

sur la page nommé afficher.asp tu as mis quoi?

**nboubeur** · 07/06/2007, 11h02

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
<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 [nom du client] = '"& 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("NO emplacement") %>"><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;
 
 
<%
rsliste.close
set rsliste = nothing
rs.close
set rs = nothing
%>
</form> 
 
 
</body>
</html>

**Phiss** · 07/06/2007, 11h48

tu as mis cela en haut

Code :

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

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

**nboubeur** · 07/06/2007, 12h23

oui et toujour pareil

**nboubeur** · 11/06/2007, 09h26

Quelqu'un aurais t il une idée , histoire d'avancer ??!!

merci d'avance

**Phiss** · 12/06/2007, 11h03

on va partir de la base.
Essaie ce code la dans un page asp.

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
<%
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] = 1")
if not rsliste.eof then
           response.write("ID &nbsp;"&rsliste("id") &" <br>")
           response.write("N d'emplacement &nbsp;&nbsp;"&rsliste("NO emplacement") &"<br>")
           response.write("Nom du client "&rsliste("Nom du Client") &"<br>")
           response.write("Emplacements du MH &nbsp; &nbsp;"&rsliste("emplacement du MH") &"<br>")
           response.write("Date de prise en charge du client "&rsliste("date prise en charge du client") "&<br>")
           response.write("Date de Prise en charge du materiel "&rsliste("date de prise en charge materiel") &"<br>") 
 
end if        
rsliste.close
set rsliste = nothing
rs.close
set rs = nothing
%>

**nboubeur** · 13/06/2007, 10h51

erreur sur la page

Code :

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

1
2
3
4
5
6
7
8
Erreur de compilation Microsoft VBScript error '800a03ee' 
 
')' attendu 
 
/afficher.Asp, line 17 
 
response.write("Date de prise en charge du client "&rsliste("date prise en charge du client") "&<br>")
----------------------------------------------------------------------------------------------^

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

Code :

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

response.write("Date de prise en charge du client "&rsliste("date prise en charge du client")& "<br>")

**nboubeur** · 13/06/2007, 14h40

voila ca donne ca :

ID 1

en haut a gauche de la page

**Phiss** · 13/06/2007, 15h26

Rien d'autre?
tu es sur?
la cela me parait bizarre.

si cela te met

id 1

il devrait au moins y avoir

N d'emplacement

tu n'as pas d'erreur?

Sinon pour être plus clean tu as la possibilité de modifier ta base?
Si oui je te conseille d'enlever tout les espaces de tes noms de champs.

**nboubeur** · 13/06/2007, 17h03

voila j'ai suprimé les espace maintenan ca affiche :

ID 1
N d'emplacement 5614361
Nom du client blabla
Emplacements du MH blabla

**Phiss** · 13/06/2007, 17h24

Bon et bien reprend ce que je t'avais donné dans le posts précédent en mettant les bon noms de champs.
Et dis nous ce que tu as.

**nboubeur** · 13/06/2007, 18h52

Bon voila ce que affiche ma 1er page .ASP :

nb champs = 11
id nom
1 blabla
2 78

avec la 1 et 2 en lien mais quand je click dessus erreur 500

**Phiss** · 14/06/2007, 09h11

est ce que tu as désactivé l'affichage simplifé des erreurs sous IE?

(outils => option internet => avancés => navigation => afficher des messages d'erreur http simplifiés à décocher)

**nboubeur** · 15/06/2007, 17h36

voila ,
maintenan j 'ai cette erreur

Erreur de compilation Microsoft VBScript error '800a03f6'

'End' attendu

/afficher.asp, line 32

merci encore

**Phiss** · 18/06/2007, 09h17

Et tu as quoi comme code avant cette ligne 32 ?

**nboubeur** · 19/06/2007, 15h55

voici le code complet :

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
<%@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 [nomduclient] = '"& 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;
 
 
<%
rsliste.close
set rsliste = nothing
rs.close
set rs = nothing
%>
</form> 
 
 
</body>
</html>

voila

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

ASP

Discussions similaires

Partager

Partager