pb asp avec la recuperation d'une valeur

**leclone** · 23/05/2006, 11h45

je realise un panier pour permettre la commande en ligne de certains produits

voici ma page asp :

code :
<code>
<html>
<head><title>Le Clone --> Les Moniteurs</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>

<body>
<table border="1" cellpadding="0" cellspacing="0" style="border-width:0; border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" height="130">
<tr>
<td width="100%" height="130" valign="middle" style="border-style: none; border-width: medium">

<img border="0" src="../logo/logo1.gif" align="left" width="193" height="111"></td>
</tr>
</table>
Les moniteurs : 
<%'-------déclaration de la base------------------------------
DSN_BASE = "DBQ=" & Server.Mappath("webleclone.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"%>

<%'-------création de la connection et du recordset-----------
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DSN_BASE
Set RS = Server.CreateObject("ADODB.Recordset")%>

<%'-------définition et exécution de la requête---------------
RequeteSQL = "SELECT R_materiel.Ref_materiel, R_materiel.Photo_materiel, R_materiel.Nom_materiel, R_materiel.Type_materiel, R_materiel.Marque_materiel, R_materiel.PrixHT_materiel, R_materiel.Dispo_materiel, R_materiel.Acheter_materiel FROM R_materiel WHERE R_materiel.Ref1_leclone Like 'ecran%'"
RS.Open RequeteSQL , Conn%>
<%if RS.EOF then %>
Nous n'avons aucun articles à vous proposer
<%else%>

<Table border="1" width="788" align="center" bordercolor="black">
<TR>
<TH width="70">Référence</TH>
<TH width="48">Produit</TH>
<TH width="203">Nom</TH>
<TH width="37">Type</TH>
<TH width="54">Marque</TH>
<TH width="193">PrixHT</TH>
<TH width="86">Disponibilité</TH>
<TH width="72">Acheter</TH>
</TR>

<%Do While Not RS.EOF%>

<TR>
<TD width="70"><%=RS("Ref_materiel")%>  </TD>
<TD width="48"><%=RS("Photo_materiel")%>  </TD>
<TD width="203"><%=RS("Nom_materiel")%>  </TD>
<TD width="37"><%=RS("Type_materiel")%> </TD>
<TD width="54"><%=RS("Marque_materiel")%> </TD>
<TD width="193"><%=RS("PrixHT_materiel")%> € </TD>
<TD width="86"><%=RS("Dispo_materiel")%> </TD>
<TD width="72"><a href="commander.asp?ref=<%=RS("Ref_materiel")%>"><%=RS("Acheter_materiel")%></a> </TD> </TR>
<%RS.MoveNext%>
<%Loop %>
</table>

<%end if%>

<%'-------fermeture de la connection et du recordset----------
</code>

et apparament la ligne en rouge pose pb car ce lien va ver commander.asp
et il me met ca comme erreur :

Erreur d'exécution Microsoft VBScript error '800a000d'

Type incompatible: 'QueryString'

/stage/pages/commander.asp, line 18

je n'arrive pas a resoudre ce pb
pouvez-vous m'aider?????
merci d'avance

**Fablondon** · 23/05/2006, 12h13

Salut es tu sur d avoir des donnee dans ton recordset RS ? Sinon RS est a null et du coup ta querystring est foutue...++

**leclone** · 23/05/2006, 13h14

oui j'en suis sur

qd je clic sur le lien commander, dans la barre d'adresse en haut, il y a une valeur pr ref_materiel

c'est bizarre, je ne comprend pas du tout cette erreur

**Fablondon** · 23/05/2006, 13h16

C est dans ta page commander.asp qu il y a une erreur, est ce celle que tu nous presente dans ton extrait de code ? sinon montre nous commander.asp

**leclone** · 23/05/2006, 13h24

voici ma page commander.asp :

<code>
<% REF=QueryString ("ref")%>

<%'-------déclaration de la base------------------------------
DSN_BASE = "DBQ=" & Server.Mappath("webleclone.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"%>

<%'-------création de la connection et du recordset-----------
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DSN_BASE
Set RS = Server.CreateObject("ADODB.Recordset")%>

<%'-------définition et exécution de la requête---------------
RequeteSQL = "SELECT R_materiel.Ref_materiel, R_materiel.Nom_materiel, R_materiel.PrixHT_materiel FROM R_materiel WHERE R_materiel.Ref_materiel = & REF "
RS.Open RequeteSQL , Conn%>
<%if RS.EOF then %>
Cette article ne se trouve plus dans la base de données. Essayez un autre article !!
<%else%>

<Table border="1" width="810" align="center" bordercolor="black">
<TR>
<TH width="70">Référence</TH>

<TH width="239">Article</TH>

<TH width="179">Prix Unitaire HT</TH>
</TR>

<%Do While Not RS.EOF%>

<TR>
<TD width="70"><%=RS("Ref_materiel")%>  </TD>
<TD width="239"><%=RS("Nom_materiel")%>  </TD>
<TD width="179"><%=RS("PrixHT_materiel")%> € </TD>

</TR>
<%RS.MoveNext%>
<%Loop %>
</table>

<%end if%>

</code>

merci d'avance de votre reflexion sur ce pb