Discussion :

[Goltar]

Bonjour à tous,
Pourriez-vous me dire ce qui coince dans ma syntaxe?
Ce dois être simple, mais je débute VBScript

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
<% DIM lien
	       Dim debut
	       Dim fin
			   
	     debut= "../"
	     fin= (ImmoResParDep.Fields.Item("Photo1").Value)
	     lien = debut&fin
			 %>
          <td width="113" 
                rowspan="3" 
               align="center" 
              valign="middle">
             
             <img src=<%=(lien)%>" alt="" width="100" border="1" />
        </td>
        </tr>

Je reçoit le code erreur suivant:Microsoft VBScript runtime error '800a01a8'

[tumoo]

Salut

tu es sûr de la valeur de ImmoResParDep.Fields.Item("Photo1").Value ?

l'erreur doit venir de cette valeur
ImmoResParDep provient d'un recordset ?

peux tu nous afficher plus de code (création du recordset avec la requête par exemple)

[Goltar]

Le recordset fonctionnes très bien. Si j'utilise la valeur directement dans

Code :

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

1
2
 
<img src=<%=(ImmoResParDep.Fields.Item("Photo1").Value)%>" alt="" width="100" border="1" />

j'ai bien la bonne valeur, seulement me trouvant sur un niveau plus bas dans le répertoire, j'aimerais simplement rajouter "../" devant sa valeur

c'est la concatenation qui coince

[tumoo]

Et si tu entres ton chemin en dur dans ton code, ça fonctionne ?

[Goltar]

la création du recordset

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
 
<%
Dim ImmoResParDep__MMColParam
ImmoResParDep__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then 
  ImmoResParDep__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim ImmoResParDep
Dim ImmoResParDep_cmd
Dim ImmoResParDep_numRows
 
Set ImmoResParDep_cmd = Server.CreateObject ("ADODB.Command")
ImmoResParDep_cmd.ActiveConnection = MM_ABFVB_STRING
ImmoResParDep_cmd.CommandText = "SELECT * FROM ImmoResidentiel WHERE Lieu = ?" 
ImmoResParDep_cmd.Prepared = true
ImmoResParDep_cmd.Parameters.Append ImmoResParDep_cmd.CreateParameter("param1", 200, 1, 255, ImmoResParDep__MMColParam) ' adVarChar
 
Set ImmoResParDep = ImmoResParDep_cmd.Execute
ImmoResParDep_numRows = 0
%>

[Goltar]

oui, le hardcoding fonctionne parfaitement

[tumoo]

Le recordset fonctionnes très bien. Si j'utilise la valeur directement dans

Code :

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

1
2
 
<img src=<%=(ImmoResParDep.Fields.Item("Photo1").Value)%>" alt="" width="100" border="1" />

j'ai bien la bonne valeur, seulement me trouvant sur un niveau plus bas dans le répertoire, j'aimerais simplement rajouter "../" devant sa valeur

c'est la concatenation qui coince

Donc si tu places ton image dans ton répertoire courant, celle-ci s'affiche bien avec ce code, on est d'accord ?

[tumoo]

Je pense à un autre truc, tu peux essayer avec un \ à la place du / ?

[Goltar]

oui, cela fonctionnes bien si je change de place le répertoire
Par contre le remplacement du "/" par "\" ne fonctionnes pas