------------------------------------------------------------------------------------

Page de connexion aux bases de données et déclaration de la variable log_debug (connexion.asp)
les bases de données ne sont pas dans le répertoire du site. Il faut donc indiquer le chemin absolu.

<%
Dim log_debug

log_debug = "test"
'log_debug = "prod"

Dim connexion_poste
connexion_poste = "DBQ=" & ("E:/INTERNET/site_test/bd/poste.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"
'response.write (connexion_poste)

Dim connexion_moteur
connexion_moteur = "DBQ=" & ("E:/INTERNET/site_test/bd/moteur.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"
'response.write (connexion_moteur)

Dim connexion_bdlog
connexion_bdlog = "DBQ=" & ("E:/INTERNET/site_test/bd/bdlog.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"
%>

---------------------------------------------------------------
Insérer dans la page à tester (détail.asp)
Ce script insère l'URL de la page dans une base de donnée. Ca permet ensuite de vérifier que l'on est bien passé sur cette page.

<!--#include file="connexion.asp" -->

<%
Dim date_jour_log
date_jour_log = Now()

log_debug est une variable dont on changera la valeur une fois les tests faits (prod). Ca permet d'empêcher l'insertion une fois que les pages sont en prod sans toucher aux scripts.

if log_debug = "test" then
dim url_log
url_log = Request.ServerVariables("PATH_INFO")
'response.write(url_log)

Set cn = Server.CreateObject("ADODB.Connection")
cnDBQ = connexion_bdlog
cn.Open cnDBQ

strsql="INSERT INTO table_url (url_bdlog, date_jour_bdlog) VALUES ('"&url_log&"', '"&date_jour_log&"')"
cn.Execute(strsql)

cn.close

end if
%>
---------------------------------------------------------------

Cette page sert à lire la base de donnée

Script côté serveur

<%
Dim Conn
Dim TonRs
Dim ReqSql

set Conn = Server.CreateObject("ADODB.Connection")
set TonRs = Server.CreateObject("ADODB.Recordset")
cnDBQ = "DBQ=" & ("E:/INTERNET/site_test/bd/bdlog.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"

Conn.Open cnDBQ

ReqSql = "SELECT * FROM table_url"

TonRs.Open ReqSql, Conn, 3, 3, 1

%>

A insérer côté client

<table>

<%do while not TonRs.EOF%>
<tr>

<td>
<%=(TonRs.Fields.Item("id_bdlog").Value)%>
</td>

<td>
<%=(TonRs.Fields.Item("url_bdlog").Value)%>
</td>

<td>
<%=(TonRs.Fields.Item("date_jour_bdlog").Value)%>
</td>

</tr>
<%TonRs.movenext()
if TonRs.eof then exit do
loop
%>
</table>