<%
session.lcid = 2057
dim x,xdate,ydate ,mydate
Dim adoCon 'Holds the Database Connection Object
Dim rsGuestbook 'Holds the recordset for the records in the database
Dim strSQL 'Holds the SQL query for the database
Session.lcid = 2057
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("kutchggf.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
xdate = day(date)
response.write "Today's Date "
response.write Date
'Set an active connection to the Connection object using DSN connection
'adoCon.Open "DSN=guestbook"
'Create an ADO recordset object
Set rsGuestbook = Server.CreateObject("ADODB.Recordset")
response.write ydate
'Initialise the strSQL variable with an SQL statement to query the database
strSQL = "select id,fname,dob,resphone,email,mobile,DAY(DOB) AS DAY1 ,MONTH(DOB) AS MONTH1 ,YEAR(DOB) as year1 from member "
'strSQL = "select * From member "
'Open the recordset with the SQL query and
rsGuestbook.Open strSQL, adoCon
%>