Web Development

<%<br />
<br />
'Dimension variables<br />
Dim adoCon26w 			'Holds the Database Connection Object<br />
Dim rsUser26w			'Holds the recordset for the record to be updated<br />
Dim strSQL26w			'Holds the SQL query for the database<br />
Dim lngRecordNo26w			'Holds the record number to be updated<br />
<br />
'Read in the record number to be updated<br />
lngRecordNo26w = Request.QueryString("d")<br />
strDate = lngRecordNo26w<br />
<br />
<br />
times = DateAdd("d",14,strDate)<br />
<br />
<br />
'Create an ADO connection odject<br />
Set adoCon26w = Server.CreateObject("ADODB.Connection")<br />
<br />
'Set an active connection to the Connection object using a DSN-less connection<br />
adoCon26w.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("admin/***********.mdb")<br />
<br />
'Create an ADO recordset object<br />
Set rsUser26w = Server.CreateObject("ADODB.Recordset")<br />
<br />
'Initialise the strSQL variable with an SQL statement to query the database<br />
strSQL26w = "SELECT * FROM tb_news Where n_date BETWEEN ("&strDate&") AND ("×&")"<br />
<br />
'Open the recordset with the SQL query <br />
rsUser26w.Open strSQL26w, adoCon26w<br />
<br />
%><br />
<br />
<br />
<%  do while not rsUser26w.EOF %><br />
<% = rsUser26w("n_title") %> <% = rsUser26w("n_date") %><br /><br /><br />
<% = rsUser26w("n_desc") %><br /><br /><br />
<br />
<%  <br />
rsUser26w.MoveNext <br />
Loop <br />
%><br />
<%<br />
'Reset server objects<br />
rsUser26w.Close<br />
Set rsUser26w = Nothing<br />
Set adoCon26w = Nothing<br />
%>