%
dim rs, sql, bgc, sn
on error resume next
Dim conn, connStr
Set conn = Server.CreateObject("ADODB.Connection")
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./DB/MP.mdb")
conn.Mode = 3
conn.open connStr
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "Select * from AccessLog order by AccessDate desc"
'################### Debug #################################
if DB_DEBUG then response.write "sql :" & sql & "
" end if
'################### Debug #################################
rs.open sql, conn
%>
| Home > Products > User Registration | ||||||
|
||||||
| Home | Profile | Products | Our Services | Contact Us | ||||||
| Copyright 2004 DNIV Int'l Pte Ltd. All rights reserved. Contact : (65) 6483 3386 Fax: (65) 6483 2698 email: sales@dniv.com.sg |