<%@ language=vBScript%>
<%
Dim Connection
Dim Recordset
Dim SQL
Dim mMapPath
Dim mDBFile
mDBFile = "dbln/fau.mdb"
Dim strFileName
Dim strServerName
Dim strSiteName
Dim strSiteDescription
Dim strAdminEmail
Set Connection=Server.CreateObject("ADODB.Connection")
mMapPath = Server.MapPath(mDBFile)
Connection.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & mMapPath & ";"
SQL="select * from info ORDER BY ID DESC"
set Recordset=Connection.execute(SQL)
%>
Gastronomie & Tourisme
