% Dim adoCon Dim rsPaperPk Dim strSQL Set adoCon = Server.CreateObject("ADODB.Connection") adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("theNEWSdb.mdb") Set rsPaperPk = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT N_table.Name, N_table.Link, N_table.PGno,N_table.Date,N_table.Newspaper, N_table.Category FROM N_table where N_table.PGno LIKE '1'AND N_table.Newspaper='theNEWS';" rsPaperPk.Open strSQL, adoCon %>
| . . . |
<%Response.Write (rsPaperPk("Name"))%> Find all <%Response.Write (rsPaperPk("Name"))%> Jobs, <%Response.Write (rsPaperPk("Name"))%> Admissions and <%Response.Write (rsPaperPk("Name"))%> Tender ads on paperpk.com. The News Jobs Ads on <%Response.Write (rsPaperPk("Date"))%> | The News Admission Ads on <%Response.Write (rsPaperPk("Date"))%> | The News Tender Ads on <%Response.Write (rsPaperPk("Date"))%> Copyright 2007 - 2009 by paperpk.com Ads shown on this page is is the Property of The News Newspaper and is CopyRighted by them. | . . . | ||||||