<%@ LANGUAGE="VBSCRIPT" %> <% ItemID = Trim(Request("blurb")) 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) %> <% message = Request.Form("linkDescription") message = Replace(message,Chr(10),"
") message = Replace(message,Chr(13),"") message = Replace(message,"'","'") CurrentDateTime = Now if not isempty(Request.Form("Submit")) then 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" conn.Execute "insert into content (LinkName, LinkLocation, Sponsors, participant, presentLocation, LinkDescription, WhenAdded) " _ & "values (" _ & "'" & Replace(Request.Form("Linkname"),"'","''") & "', " _ & "'" & Replace(Request.Form("LinkLocation"),"'","''") & "', " _ & "'" & Replace(Request.Form("Sponsors"),"'","''") & "', " _ & "'" & Replace(Request.Form("Participant"),"'","''") & "', " _ & "'" & Replace(Request.Form("PresentLocation"),"'","''") & "', " _ & "'" & message & "', " _ & "'" & CurrentDateTime & "')" Response.Redirect "LinksRead.asp" end if %>Nigeria - <% Response.Write RSItem22ID("linkname") %> <% rsItem22ID.close %> <% Sub ShowItem(itemID, linkname, linklocation, sponsors, participant, presentlocation, linkDescription, WhenAdded) %>
 
   
Email This Page
Print This Page

<%=Linkname%>


<%=linkDescription%>


Petroleum - Nigeria <% 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 '033' Order by ItemID ASC") %>
<% Do Until RsItemID.EOF %> •  "> <% Response.Write RSItemID("linkname") %>

<% RSItemID.MoveNext loop %>

News Archives...
<% 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 '11' Order by ItemID DESC") %> <% Do Until RsItemID.EOF %> •  "> <% Response.Write RSItemID("linkname") %>

<% RSItemID.MoveNext loop %>

 

 

Email This Page Email this Page Print This Page Printer Friendly

More Articles
<% 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 '33' Order by itemID") %> <% Do Until RsItemID.EOF %> •  "><% Response.Write RSItemID("linkname") %>
<% RSItemID.MoveNext loop %>
Forums
Discuss " <%=sponsors%> "
•  Post/Read Messages
*Onlinenigeria.com assumes no responsibility for any postings

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