<%@ LANGUAGE="VBSCRIPT" %>
<%
On Error resume next
ItemID = Trim(Request("blurb"))
if itemid = "" then
itemid = 595
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 'Adefarasin' Order by itemID")
%>
<% Do Until RsItemID.EOF %>
">
<% Response.Write RSItemID("linkname") %>
<%
RSItemID.MoveNext
loop %>
|
|
<%=linkName%>
Posted to the web: <%=WhenAdded %> |
| |
|
|
|
<%=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 = 595
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 %>
