<%@ LANGUAGE="VBSCRIPT" %> <% ItemID = Trim(Request("blurb")) if itemid = "" then itemid = 555 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") %> - Print Version <% 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,"","") desc = message message1 = RSItem22ID("linkDescription") message1 = Replace(message1,Chr(10),"
") message1 = Replace(message1,Chr(13),"") message1 = Replace(message1,"'","'") %>
   
                    
Email This Page


<%=LinkName%>

<%=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 Response.Write "No Specific News was selected!.

" Else 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") %> <% End If %>