<%@ Language=VBScript %> Alexandria Cosmopolitan Rotary Club













 

NEWS

 

Home l About Us l Roster l Committees I News I Events l Newsletter I Projects I Contact Us

 
 
  <% '============ Beginning of ASP code (Inclusion inside a tag) ======================= '============ View selected news article from database ================================== Dim NewsID NewsID = cint(Request.QueryString("NewsID")) Set rs1 = Server.CreateObject ("ADODB.Recordset") rs1.ActiveConnection = OBJdbConnection rs1.Open "SELECT * FROM news WHERE NewsID=" & NewsID if not rs1.EOF then NewsText = rs1("NewsText") NewsText = Replace(NewsText, vbCrLf, "
") %>
 <%=rs1("NewsTitle")%>
 Posted on: <%=rs1("NewsDate")%>

<%=NewsText%>

<%if rs1("NewsPic1")<>"" then%>

" width="550" height="413">

<%end if%> <%if rs1("NewsPic2")<>"" then%>

" width="550" height="413">

<%end if%> <%if rs1("NewsPic3")<>"" then%>

" width="550" height="413">

<%end if%> <%if rs1("NewsPic4")<>"" then%>

" width="550" height="413">

<%end if%>
 
<%else%>

This article has been deleted or moved. We are sorry for the inconvenience.

 
<% end if rs1.close set OBJdbConnection = Nothing '============ End of ASP code =========================================================== %>
 
     
 
  Copyright 2005 Alexandria Cosmopolitan Rotary Club.
Powered by: ClubWeb v1.0