Nous allons créer un fichier ASP à partir de la requête suivante réalisée dans Access

Méthode d'enregistrement au format ASP :

Faire Fichier / Enregistrer au format HTML
La boîte Assistant de Publication Web s'ouvre
Faire Suivant
Sélectionner la requête que vous voulez transformer en ASP (Image Ci-dessous), puis suivant

Modèle de document (ne rien sélectionner dans cette boîte) : faire suivant
Format de fichier : sélectionner ASP (image ci-dessous), puis suivant

Source de Données : Dans la Zone Nom de source de données Taper produits (Nom que nous avons défini pour notre base DSN SYSTEME (produits), puis suivant.

Choisissez enfin, un répertoire de destination pour le fichier asp à créer, puis suivant
Puis Terminer.

Une boîte de dialogue, vous demandant la valeur de num s'ouvre, cliquez simplement sur OK.

Transformation du code source

Code source côté serveur créé par Access :

<% Param = Request.QueryString("Param")
Data = Request.QueryString("Data")
%>

<%
If IsObject(Session("produits_conn")) Then
Set conn = Session("produits_conn")
Else
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "produits","",""
Set Session("produits_conn") = conn
End If
%>

<%
sql = "SELECT produits.* FROM produits WHERE (((produits.Id_Cat)=" & Request.QueryString("[num]") & ")) "
If cstr(Param) <> "" And cstr(Data) <> "" Then
sql = sql & " And [" & cstr(Param) & "] = " & cstr(Data)
End If
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
%>

Que nous modifions pour arriver à (nous gardons simplement la requête sql)

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "produits","",""
%>

<%
'On error resume next ' si vous souhaitez tester les erreurs possibles
sql = "SELECT produits.* FROM produits WHERE Id_Cat=" & Request.QueryString("num")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
%>

...

<%
rs.close
set rs=nothing
conn.close
set conn=nothing %>

A noter : nous avons modifié [num] en num, car notre variable n'a pas de crochet.
On récupère la variable passée en ligne de commande par request.querystring