% sq="services" dim SQL,cn,rs SQL="select * from "&sq&" order by nooo" SQLL="select * from updates" SQLb="select * from best_offer" set cn=server.createobject("adodb.connection") set rs=server.createobject("adodb.recordset") set rsl=server.createobject("adodb.recordset") set rsb=server.createobject("adodb.recordset") x=Server.mapPath("db.mdb") s="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source="&x&";" cn.open s rs.open SQL,cn do until rs.EOF es=es+1 rs.movenext loop rs.close rs.open SQL,cn rsl.open SQLL,cn rsb.open SQLb,cn a=1 ds=rsl("heading") %>
![]() ![]() ![]() |
| ||||||||
![]() ![]() ![]() ![]() |
|||||||||
|
|
| | Home | Intro | About us | Contact us |
| © Copyright 2005-06, All Rights Reserved - Chutney-hut.com |