nttacplus
کاربر تازه وارد
- تاریخ عضویت
- 14 سپتامبر 2004
- نوشتهها
- 52
- لایکها
- 1
- سن
- 42
سلام آقا من يه بانك اصلاعاتي دارم كه يه سري اطلاعات داخلش هست (access)
يه فايل asp هم دارم كه براي خوندن اين بانك هست حالا من ميخوام اطلاعات از بانك بصورت برعكس نمايش داده بشه يعني به جايه اينكه از اول تا آخر شروع به نمايش كنه از آخر بانك شروع به خوندن كنه . حالا بايد چيكار كنم ؟ :wacko:
اين هم سورس فايلي هست كه نوشتم :
[email protected]
يه فايل asp هم دارم كه براي خوندن اين بانك هست حالا من ميخوام اطلاعات از بانك بصورت برعكس نمايش داده بشه يعني به جايه اينكه از اول تا آخر شروع به نمايش كنه از آخر بانك شروع به خوندن كنه . حالا بايد چيكار كنم ؟ :wacko:
اين هم سورس فايلي هست كه نوشتم :
<%
mname=request.form("id")
mpage=cint(request.form("PageNo"))
if mpage=0 then
mpage=1
end if
curDir = Server.MapPath("db.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DBQ=" & curDir & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"
Set rs=Server.CreateObject("ADODB.Recordset")
if mname="" then
SQLstr = "select varna1,varna2,varna3,id,date from contact"
else
SQLstr = "select varna1,varna2,varna3,id,date from contact where id like '%" & mname &"%'"
end if
rs.CursorType=adOpenStatic
rs.PageSize=100
rs.Open Sqlstr,Conn
%>
اگر كسي اين مشكل رو تونست حل كنه خوشحال ميشم برام ايميل بزنه .mname=request.form("id")
mpage=cint(request.form("PageNo"))
if mpage=0 then
mpage=1
end if
curDir = Server.MapPath("db.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DBQ=" & curDir & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"
Set rs=Server.CreateObject("ADODB.Recordset")
if mname="" then
SQLstr = "select varna1,varna2,varna3,id,date from contact"
else
SQLstr = "select varna1,varna2,varna3,id,date from contact where id like '%" & mname &"%'"
end if
rs.CursorType=adOpenStatic
rs.PageSize=100
rs.Open Sqlstr,Conn
%>
[email protected]