|
|
| New
Arrivals |
<%
on error resume next
filePath ="db/optiquemks1.mdb"
'filePath ="../db/brainwise.mdb"
Set con = Server.CreateObject("ADODB.Connection")
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &server.MapPath(filePath)
SET rsTemp = Server.CreateObject("ADODB.Recordset")
rsTemp.Open "select * from news",con,3,3
p=1
rsTemp.MoveLast
do while not rsTemp.bof
strNewsId=rsTemp("NewsId")
strTitle=rsTemp("newsTitle")
strTitle1=rsTemp("newsTitle1")
strDescription1=rsTemp("newsDes1")
strDescription2=rsTemp("newsDes2")
strDescription3=rsTemp("newsDes3")
strDescription4=rsTemp("newsDes4")
strdate=rsTemp("newsDate")
%>
<%=strTitle%>
<%=strTitle1%> |
| Edited
by:
<%=strDescription1%> |
| ISBN:
<%=strDescription2%> |
| Year
of Pub:
<%=strDate%> |
| Price:
Rs.<%=strDescription3%> |
|
 |
|
Description:
<%=strDescription4%>
|
| MORE |
|
|
<%
rsTemp.MovePrevious
loop
rsTemp.Close
Set con=Nothing
%>
|
|
