Syntaxe VBSCript erronée

Version imprimable

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'

27/06/2011, 10h35
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)
27/06/2011, 10h41
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
27/06/2011, 10h48
tumoo

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

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
%>

27/06/2011, 10h53
Goltar

oui, le hardcoding fonctionne parfaitement
27/06/2011, 10h59
tumoo
Citation:
Envoyé par 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
Donc si tu places ton image dans ton répertoire courant, celle-ci s'affiche bien avec ce code, on est d'accord ?
27/06/2011, 11h02
tumoo

Je pense à un autre truc, tu peux essayer avec un \ à la place du / ?
27/06/2011, 11h07
Goltar

oui, cela fonctionnes bien si je change de place le répertoire
Par contre le remplacement du "/" par "\" ne fonctionnes pas
27/06/2011, 11h14
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
27/06/2011, 11h16
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
28/06/2011, 13h27
Goltar

Au fait ! Merci Tumoo, merci pour ton aide