<%@ Language="VBScript" %> <% on error resume next Dim Connect, Classifieds, ItemID Set connect = Server.CreateObject("ADODB.Connection") connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:\domains\onlinenigeria.com\db\articles.mdb" topics = Trim(Request("topic")) ItemID = Trim(Request("blurb")) If ItemID = "" Then Response.Write "No Item Number was sent.

" Else Set Classifieds = Connect.Execute("SELECT * FROM pidgin 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 = "" & chr(x) & "" Next %>


<%=Topics%>
<%=Message%>

Listen to the individual Pidgin word by clicking on the: Click Here icon

 

 

<<< Previous Page

Email This Joke Print This Joke

Contact:  webmaster@onlinenigeria.com.    Add to our Glossary ? Submit it


 

Add a Review

 

<%topic2 = Trim(Request("topic")) %> Send this Pidgin "<%=topic%> ", to a Friend !!
** Required Fields

Recipient's Email
Your Name
Your Email
Message
 

 

<<< Previous Page

 

 

  <% End Sub %>