<%@ LANGUAGE="VBSCRIPT" %>
<%
On Error resume next
ItemID = Trim(Request("blurb"))
if itemid = "" then
itemid = 407
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)
%>
Nigeria Recipes: <% 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,"'","'")
%>
, recipes, nigeria recipes, nigeria, News,nigerian classmates, nigerian jokes, nigerian population, weather, nigerian government, nigeria states, nigerian, nigeria news, nigerians, naija,onlinenigeria.com, nigeria tribe, tradition, culture ">
|
| 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 'recipe' Order by itemID")
%>
<% Do Until RsItemID.EOF %>
">
<% Response.Write RSItemID("linkname") %>
<%
RSItemID.MoveNext
loop %>
|
|
<%=linkName%>
Posted to the web: <%=WhenAdded %>
|
|
|
<%=message1%> |
| 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 = 407
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 %>
