<%@ Language="VBScript" %> <% On Error resume next topic = Trim(Request("topic")) %> <% ItemID = Trim(Request("blurb")) set conn = server.createobject ("adodb.connection") conn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=208.53.168.111,1433; DATABASE=dev_OnlinenigeriaArticles;USER ID=eaghadiuno;PASSWORD=e54350" set rsItem22ID = conn.Execute("SELECT * FROM jokes WHERE ItemID=" & ItemID) set rsItem3ID = conn.Execute("SELECT * FROM jokes WHERE ItemID=" & ItemID) %> <%=RSItem22ID("sponsors")%> - Nigerian Jokes from OnlineNigeria.com <% message1 = RSItem22ID("linkDescription") message1 = Replace(message1,Chr(10),"") message1 = Replace(message1,Chr(13),"") message1 = Replace(message1,"'","'") message1 = Replace(message1,"""","'") message1 = Replace(message1,"

","") message1 = Replace(message1,"
","") message1 = Replace(message1,"","") message1 = Replace(message1,"","") message1 = Replace(message1,"","") message1 = Replace(message1,"","") desc = message1 %> <% 'on error resume next Dim Connect, Classifieds, ItemID Set connect = Server.CreateObject("ADODB.Connection") connect.Open "PROVIDER=SQLOLEDB;DATA SOURCE=208.53.168.111,1433; DATABASE=dev_OnlinenigeriaArticles;USER ID=eaghadiuno;PASSWORD=e54350" If ItemID = "" Then Response.Write "No Item Number was sent.

" Else Set Classifieds = Connect.Execute("SELECT * FROM jokes WHERE ItemID=" & ItemID) ShowItem Classifieds("ItemID"), Classifieds("linkname"),Classifieds("linklocation"),Classifieds("Sponsors"), Classifieds("Participant"),Classifieds("presentlocation"),Classifieds("LinkDescription"),Classifieds("WhenAdded") end if %> <% 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,"'","'") %> <% '## Do some Cookie bits to see when last here sponsors2 = whenAdded CurrentDate = now() Isnew = WhenAdded '## Function to display new icon if Sponsor2 = DateAdd("d",-5,now())then isNew = "

<%=Message%>
Comments on <%=Sponsors%>
Read More Online Nigeria Jokes


Contact:  webmaster@onlinenigeria.com

Got A Joke? Submit it

Email This Joke Print This Joke

 

<%topic2 = Trim(Request("topic")) topic2 = Replace(topic2,"-",Chr(32)) %>
Send this Joke"<%=Sponsors%> ", to a Friend !!
** Required Fields
   
Recipient's Email
Your Name
Your Email
Message
Enter Code
  ">
   
 

 

<<< Previous Page

 

<% End Sub %>