<%@ LANGUAGE="VBSCRIPT" %> <% Sub ShowItem(itemID, linkname, linklocation, sponsors, participant, presentlocation, linkDescription, WhenAdded) %> Nigeria - SendMail
   
 
 
 
Print This Page

 
You are about to send " <%=LinkName%> " titled article. Click here for the full article.

Recipient's Email
Your Name
Message
 

 

 

                                                                                         Back

<%=linkDescription%>  

 

 

 
 
   
   
<% 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 %>