Discussion :

[cscat]

Je voudrais créer des liens différents selon un critère de sélection se trouvant dans ma base Access. La syntaxe ci-dessous ne me dirige pas vers le lien où il devrait pointer. Il ne me donne rien.
Mon lien sans le test est le suivant et fonctionne :
<a href="NewModels/genere_fiche.asp?IDcertif=<%=rsList("Delivery")%>"><%=rsList("Delivery")%></a>

Pouvez-vous m'indiquer le bonne manière de faire ? Merci

Voici mon code :

<%
Dim varurl, section
section = Request.QueryString("ProfileName")
' ---
Select Case section
Case "AMYL"
varurl = "NewModels/Food_Coa.asp?IDcertif=" & rsList("Delivery")
Case "ALL"
varurl = "NewModels/genere_fiche.asp?IDcertif=" & rsList("Delivery")
Case Else
End Select
%>

<a href="JavaScript:MM_openBrWindow('<%varurl%>','','width=800,height=800,top=80,left=80,toolbar=yes,status=no,scrollbars=yes')"><%=rsList("Delivery")%></a>

[pc75]

Bonjour,

Fais plus simple et plus direct

Code :

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

1
2
3
4
5
6
7
8
 
Select Case section 
Case "AMYL" 
<a href="JavaScript:MM_openBrWindow('NewModels/Food_Coa.asp?IDcertif=" & rsList("Delivery") ','','width=800,height=800,top=80,left=80,toolbar=yes,status=no,scrollbars=yes')"><%=rsList("Delivery")%></a>
Case "ALL" 
<a href="JavaScript:MM_openBrWindow('NewModels/genere_fiche.asp?IDcertif=" & rsList("Delivery") ','','width=800,height=800,top=80,left=80,toolbar=yes,status=no,scrollbars=yes')"><%=rsList("Delivery")%></a>
Case Else 
End Select

[fredoche]

sinon tu as oublié un = pour substituer ta variable:

Code :

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

<%=varurl%>

Je trouve pas plus simple ce que t'as proposé pc75. Ta syntaxe me semble plus élégante

[cscat]

J'ai essayé le code plus simple mais j'ai ce message d'erreur :
Error Type:
Microsoft VBScript compilation (0x800A0400)
Expected statement
/testcoa/coasearch.asp, line 238

La ligne 238 correspond à :
<a href="JavaScript:MM_openBrWindow('NewModels/Food_Coa.asp?IDcertif=" & rsList("Delivery") ','','width=800,height=800,top=80,left=80,toolbar=yes,status=no,scrollbars=yes')"><%=rsList("Delivery")%></a>

On dirait que le code ASP s'arrête juste avant </a>
De plus, lorsque je pointe le curseur de la souris sur mon hyperlien, il ne me permet pas de charger mon document de livraison. cela ne fonctionne que si je met "IDcertif=<%=rsList("Delivery")%>".
Mais de nouveau le code ASP s'arrête.

Une idée ?

[cscat]

J'ai finalement trouvé la solution pour éviter les problèmes de syntaxe :

Dim section, myUrl
section = trim(request.form("IDsection"))
Select Case section
Case "AMYL"
myUrl="Food_Coa"
Case "ALL"
myUrl="genere_fiche"
End Select

<a href="NewModels/<%=myUrl%>.asp?IDcertif=<%=rsList("Delivery")%>"><%=rsList("Delivery")%></a>