<%@ LANGUAGE="VBSCRIPT" %> <% On Error resume next ItemID = Trim(Request("blurb")) if itemid = "" then itemid = 576 end if set conn = server.createobject ("adodb.connection") conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:\domains\onlinenigeria.com\db\content.mdb" set rsItem22ID = conn.Execute("SELECT * FROM content WHERE ItemID=" & ItemID) set rsItem222ID = conn.Execute("SELECT * FROM content WHERE ItemID=" & ItemID) %> <% Response.Write RSItem22ID("linkname") %> - OnlineNigeria.com ,embassies, high commisions, international agencies, foreign missions, ambassadors, ngo"><% 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,"","") desc = message %>
Online Nigeria Portal
<%=linkName%>
Today:<%= FormatDateTime(Date, 1) %>


Email This Page
Print This Page


<% Response.Write RSItem222ID("linkname") %> :
<% Response.Write RSItem22ID("linkDescription") %>

 

Latest News :



<% 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 = 576 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 %> <% rsItem222ID.close %> <% Response.Cookies("mt")("pagetitle") = "" Server.Execute("/STATS/track.asp") %>