Prb en asp aide moi

Fermé

amira01 Messages postés 54 Date d'inscription samedi 30 juin 2001 Statut Membre Dernière intervention 24 janvier 2005 - 2 août 2001 à 21:09
amira01 - 6 août 2001 à 18:13

salut tous le monde
voil je veux réaliser un page web qui contine un tableaue (Reference,diecreption,prix....)
les information sont stocke donnes un base de donner (esc.mdb)
voila mon code
<html>
<head>
DSN_BASE = "DBQ=" & Server.Mappath("esc.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"

Set ConnAfficheRef = Server.CreateObject("ADODB.Connection")

ConnAfficheRef.Open DSN_BASE

Set RsAfficheRef = Server.CreateObject("ADODB.Recordset")
RsAfficheRef.open"select.*from materil ORDER BY Ref",ConnAfficheRef
<%if RsAfficheRef .eof = false then%>
</head>
<body>
<table>
<tr>

<td>Ref</td>

<td>Destination</td>

<td>description</td>

<td>prix</td>

</tr>
compteur=0
<%rsAfficheRef.MoveFirst

DO WHILE not rsAfficheRef.eof%>

<tr>

<td><%= rsAfficheRef("reference")%></td>

<td><%= rsAfficheRef("Destination")%></td>

<td><%= rsAfficheRef("description")%></td>

<td><%= rsAfficheRef("prix")%></td>

</tr>
compteur=compteur+1

<%rsAfficheLots.MoveNext

loop%>

</table>
<endif>
</body>
</html>

aide moi je saie que ce code continer des faute c'est la premier fois que je travaille avac asp
svp aide moi

A voir également:

Prb en asp aide moi
Asp .net download - Télécharger - Divers Web & Internet
Asp informatique - Télécharger - Gestion de données
Asp ldap - Forum Webmastering
Asp 4.0.30319 ✓ - Forum Windows
Asp php jsp - Forum PHP

2 réponses

Réponse 1 / 2

Bertrand
4 août 2001 à 19:19

Hello,
voici un aurte code qui fait à peu près la même chose :
<%
fp_sNoRecords = "Aucun enregistrement n'a été trouvé dans la base"
Dim RS
ConnectionString = "dsn=nomdudsn"

fp_sQry = "select * from brochure"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open fp_sQry, ConnectionString

If RS.EOF And RS.BOF Then
Response.Write fp_sNoRecords
Else
%>
<table width="100%" border="1" cellspacing="0" cellpadding="0">
<tr align="center" bgcolor="#ffcc33">
<td bgcolor="#99FF00">Genre</td>
<td bgcolor="#99FF00">Prénom - Nom 
e-mail </td>
<td bgcolor="#FF99FF">adresse</td>
<td bgcolor="#FF99FF">Tel / Fax</td>
<td bgcolor="#99FFCC">
 Brochure / 
Envoyée le
</td>
<td bgcolor="#99FFCC">Op</td>
</tr>
<% do while not RS.EOF %>
<tr>
<td valign="top">
<%if RS("genre").value=1 then
response.write "M."
elseif RS("genre").value=2 then
response.write "Mme"
else response.write "Melle"
end if
%>
</td>
<td valign="top"><%=RS("prenom").value%> <%=RS("nom").value%> 
<%=RS("email").value%></td>
<td valign="top"><%=RS("adresse").value%> 
<%=RS("adresse2").value%> 
<%=RS("codepostal").value%> <%=RS("ville").value%> </td>
<td valign="top"><%=RS("telephone").value%> 
<%=RS("fax").value%> </td>
<td valign="top"><%=RS("AskBrochure").value%> 
<%=RS("SentBrochure").value%> </td>
<td>
<input type="checkbox" name="checkbox" value="checkbox">
</td>
</tr>
<%
RS.movenext
Loop
end if
%>
</table>
<%
end if 'du codeop=1
%>

Réponse 2 / 2

amira01
6 août 2001 à 18:13

merci Bertrand
mais encore ça marche pas

Discussions similaires

ASP.NET Machine A...

.asp qu'est ce que c'est?

prb avec ntvdm.exe

ASP recordset

Access avec ASP

Discussions similaires

Newsletters