Pour créer une page d'information détaillé.

Faire une connexion à une base de données.

Dim Cndb

set Cndb= Server. CreatObject ("ADODB.Connection")

Cndb.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};"&"DBQ="&Server.MapPath("/desrentes/basedonnee/mabase.mdb")

Cndb.open

Dim SqlQuery

Set SqlQuery = Server.CreateObject("ADODB.Recordset")

ListStr = "SELECT champ1, champ2, FROM table

Set sqlQuery = Cndb.Execute(ListStr)

On obtient les résultats avec le code suivant

<%
Do while Not sqlQuery.EOF
%>
<% = sqlQuery("champ1") %>
<%
sqlQuery.MoveNext
loop
%>

Maintenant, si on veut créer une page d'information détaillé, il faut faire passer un paramêtre unique (la clé) dans une autre page pour refaire la requette. On peut faire passer ce paramètre dans l'URL

Dans cette exemple la clé est id.

<A " HREF="details.asp?id=<% = sqlQuery("id") %>">

detail.asp est le nom de la page.
id prend la valeur de <% = sqlQuery("id") %>

On peut faire passer plusieurs variables de cette façon en rajoutant

&"&"& "nom_variable=" & valeur_variable %>">informations détaillé </A>

les & servent à concaténer les infos dans le script. le & sert à séparer les variables dans l'URL

exemple de résultat :

detail.asp?id=1&nom_variable=246

Dans cette exemple, nom_variable n'est pas le résultat d'une requette, mais une variable quelconque de la page.

Maintenant, il faut récupérer cette valeur (ou ces valeurs) dans la page suivante (detail.asp)

dim str_id

str_id = Request.QueryString("id")

Il suffit alors de refaire la requette avec str_id

ListStr = "SELECT champ1, champ2, FROM table WHERE id = "& str_id &""

Set sqlQuery = Cndb.Execute(ListStr)

& indique qu'il faut prendre la valeur de str_id

Si str_id était une chaîne de caractère au lieu d'un entier, il faudrait rajouter des apostrophes avant et après le guillemets '"& str_id &"'

On réaffiche ensuite dans la page html les résulats des champs désirés

<% = sqlQuery("champ1") %>

<% = sqlQuery("champ2") %>

<% = sqlQuery("champ3") %>

etc...