Syntaxe VBSCript erronée [Résolu]

[Goltar]

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

Code :

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 :

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 :

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]

Envoyé par Goltar

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

Code :

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

[Goltar]

Problème résolu en faisant

Code :

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

Domlmage cela aurait été plus propre en passant par une variable

[tumoo]

très bizarre quand même
si

Code :

<img src="../tonchemin" alt="" width="100" border="1" />

fonctionne

Je viens de voir que sur ton premier post, sur ta balise img, tu n'as pas mis de guillemet pour ouvrir l'attribut src
C'est peut être une erreur de frappe, ou peut être pas ça

sinon, je vois pas d'où ça peut venir

[Goltar]

Au fait ! Merci Tumoo, merci pour ton aide