<%@ LANGUAGE="VBSCRIPT" %> <% On Error resume next ItemID = Trim(Request("blurb")) if itemid = "" then itemid = 610 end if set conn = server.createobject ("adodb.connection") conn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=208.53.168.111,1433; DATABASE=dev_OnlinenigeriaContent;USER ID=NaijaContent;PASSWORD=mzia123" set rsItem22ID = conn.Execute("SELECT * FROM content WHERE ItemID=" & ItemID) %> <% Response.Write RSItem22ID("linkname") %> - OnlineNigeria.com <% Sub ShowItem(itemID, linkname, linklocation, sponsors, participant, presentlocation, linkDescription, WhenAdded) %> <% message = linkDescription message = Replace(message,Chr(10),"") message = Replace(message,Chr(13),"") message = Replace(message,"'","'") message = Replace(message,"""","'") message = Replace(message,"

"," ") message = Replace(message,"

"," ") message = Replace(message,"
","") message = Replace(message,"","") message = Replace(message,""," ") message = Replace(message,"

"," ") message = Replace(message,"

"," ") message = Replace(message,"
","") message = Replace(message,"","") message = Replace(message,""," ") 'message = Replace(message,"<","") 'message = Replace(message,">"," ") desc = message message1 = RSItem22ID("linkDescription") 'message1 = Replace(message1,Chr(10),"
") message1 = Replace(message1,Chr(13),"") message1 = Replace(message1,"'","'") %> , Bimbo Odukoya, Powerful preacher, RCCG, Nigerian Church, Redeemed Christian Church of God, Famous pastors, Nigeria pastors ">
Related Content
<% set conn = server.createobject ("adodb.connection") conn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=208.53.168.111,1433; DATABASE=dev_OnlinenigeriaContent;USER ID=NaijaContent;PASSWORD=mzia123" set rsItemID = conn.Execute("select * from content where linklocation like 'Oritsejafor' Order by itemID") %> <% Do Until RsItemID.EOF %> "> <% Response.Write RSItemID("linkname") %>
<% RSItemID.MoveNext loop %>


Main News
News Articles
Most Read Articles
Top News Headlines
Niger Delta News
Politics
Business
Sports
Education
Entertainment
Government
Health
Life Style
Technology
Odds & Ends
E-Mail Updates
News Feeds

Services
Subscriptions
Terms of Service
About Us
Archives
Media Kit

Affiliates
News Sources

<%=linkName%>
Posted to the web: <%=WhenAdded %>
 
Email This Page
Print This Page
<%=message1%>

 

 
<% End Sub %> <% Dim Connect, Classifieds, ItemID Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "PROVIDER=SQLOLEDB;DATA SOURCE=208.53.168.111,1433; DATABASE=dev_OnlinenigeriaContent;USER ID=NaijaContent;PASSWORD=mzia123" ItemID = Trim(Request("blurb")) if itemid = "" then itemid = 610 end if Set Classifieds = Connect.Execute("SELECT * FROM content WHERE ItemID=" & ItemID) ShowItem Classifieds("ItemID"),Classifieds("Linkname"),Classifieds("LinkLocation"),Classifieds("Sponsors"),_ Classifieds("Participant"),Classifieds("PresentLocation"),Classifieds("linkDescription"),Classifieds("WhenAdded") %> <% rsItem22ID.close %>