Z
ZZZupan
http://www.naveur.navy.mil/default_test.asp
I have tried with some success reorganizing the code and putting it
all on one line. However for some reason I cannot get rid of the
space on the last line.
<!--#INCLUDE FILE="include.htm" -->
<%
' Get News Table Left Info
Dim NLConn
Set NLConn = server.CreateObject("ADODB.Connection")
NLConn.open ConnectionString
NLSQL = "SELECT * FROM tblNews Where Side Like 'Left' ORDER BY
ArticleDate DESC"
Set NLRs = NLConn.Execute(NLSQL)
' Get News Table Right Info
Dim NRConn
Set NRConn = server.CreateObject("ADODB.Connection")
NRConn.open ConnectionString
NRSQL = "SELECT * FROM tblNews Where Side Like 'Right' ORDER BY
ArticleDate DESC"
Set NRRs = NRConn.Execute(NRSQL)
%>
<TABLE BORDER="0" CELLPADDING="5" CELLSPACING="0" Width="559"
background="Images/News_Line.gif">
<TR>
<TD width="50%" valign="Top">
<TABLE Width="100%" Cellpadding="5" Cellspacing="0" Border="0">
<%Do While Not NLRs.EOF%>
<TR>
<TD>
<A HREF="http://www.news.navy.mil/Search/display.asp?Story_id=<%=Trim(NLRs("NewsStandNo"))%>"><Font
Face="Arial, Verdana" Size="2"
Color="Black"><B><%=Trim(NLRs("Title"))%></A></B></Font><BR><Font
Face="Verdana" Size="1"
Color="Black"><B><%=Trim(NLRs("ByLine"))%> </B></Font><%=Trim(NLRs("Text"))%> <A
HREF="http://www.news.navy.mil/Search/display.asp?Story_id=<%=Trim(NLRs("NewsStandNo"))%>"><Font
Face="Arial" Size="1" Color="Blue">>>></A>
</TD>
</TR>
<%NLRs.MoveNext%><%Loop%>
</TABLE>
</TD>
<TD width="50%" valign="Top">
<TABLE Width="100%" Cellpadding="5" Cellspacing="0" Border="0">
<%Do While Not NRRs.EOF%>
<TR>
<TD>
<A HREF="http://www.news.navy.mil/Search/display.asp?Story_id=<%=Trim(NRRs("NewsStandNo"))%>"><Font
Face="Arial, Verdana" Size="2"
Color="Black"><B><%=Trim(NRRs("Title"))%></A></B></Font><BR><Font
Face="Verdana" Size="1"
Color="Black"><B><%=Trim(NRRs("ByLine"))%> </B></Font><%=Trim(NRRs("Text"))%> <A
HREF="http://www.news.navy.mil/Search/display.asp?Story_id=<%=Trim(NRRs("NewsStandNo"))%>"><Font
Face="Arial" Size="1" Color="Blue">>>></A>
</TR>
</TR>
<%NRRs.MoveNext%><%Loop%>
</TABLE>
</TD>
</TR>
</TABLE>
<CENTER><FOnt Face="Arial" Size="2" Color="Black">
For more US Navy news around Europe, visit our <A
HREF="http://www.news.navy.mil/local/naveur/" TARGET="_BLANK">Navy
Newsstand</A>
</Font></CENTER>
<%
'Clean Up NL
NLRs.Close
NLConn.Close
Set NLRS = Nothing
Set NLConn = Nothing
'Clean Up NR
NRRs.Close
NRConn.Close
Set NRRS = Nothing
Set NRConn = Nothing
%>
I have tried with some success reorganizing the code and putting it
all on one line. However for some reason I cannot get rid of the
space on the last line.
<!--#INCLUDE FILE="include.htm" -->
<%
' Get News Table Left Info
Dim NLConn
Set NLConn = server.CreateObject("ADODB.Connection")
NLConn.open ConnectionString
NLSQL = "SELECT * FROM tblNews Where Side Like 'Left' ORDER BY
ArticleDate DESC"
Set NLRs = NLConn.Execute(NLSQL)
' Get News Table Right Info
Dim NRConn
Set NRConn = server.CreateObject("ADODB.Connection")
NRConn.open ConnectionString
NRSQL = "SELECT * FROM tblNews Where Side Like 'Right' ORDER BY
ArticleDate DESC"
Set NRRs = NRConn.Execute(NRSQL)
%>
<TABLE BORDER="0" CELLPADDING="5" CELLSPACING="0" Width="559"
background="Images/News_Line.gif">
<TR>
<TD width="50%" valign="Top">
<TABLE Width="100%" Cellpadding="5" Cellspacing="0" Border="0">
<%Do While Not NLRs.EOF%>
<TR>
<TD>
<A HREF="http://www.news.navy.mil/Search/display.asp?Story_id=<%=Trim(NLRs("NewsStandNo"))%>"><Font
Face="Arial, Verdana" Size="2"
Color="Black"><B><%=Trim(NLRs("Title"))%></A></B></Font><BR><Font
Face="Verdana" Size="1"
Color="Black"><B><%=Trim(NLRs("ByLine"))%> </B></Font><%=Trim(NLRs("Text"))%> <A
HREF="http://www.news.navy.mil/Search/display.asp?Story_id=<%=Trim(NLRs("NewsStandNo"))%>"><Font
Face="Arial" Size="1" Color="Blue">>>></A>
</TD>
</TR>
<%NLRs.MoveNext%><%Loop%>
</TABLE>
</TD>
<TD width="50%" valign="Top">
<TABLE Width="100%" Cellpadding="5" Cellspacing="0" Border="0">
<%Do While Not NRRs.EOF%>
<TR>
<TD>
<A HREF="http://www.news.navy.mil/Search/display.asp?Story_id=<%=Trim(NRRs("NewsStandNo"))%>"><Font
Face="Arial, Verdana" Size="2"
Color="Black"><B><%=Trim(NRRs("Title"))%></A></B></Font><BR><Font
Face="Verdana" Size="1"
Color="Black"><B><%=Trim(NRRs("ByLine"))%> </B></Font><%=Trim(NRRs("Text"))%> <A
HREF="http://www.news.navy.mil/Search/display.asp?Story_id=<%=Trim(NRRs("NewsStandNo"))%>"><Font
Face="Arial" Size="1" Color="Blue">>>></A>
</TR>
</TR>
<%NRRs.MoveNext%><%Loop%>
</TABLE>
</TD>
</TR>
</TABLE>
<CENTER><FOnt Face="Arial" Size="2" Color="Black">
For more US Navy news around Europe, visit our <A
HREF="http://www.news.navy.mil/local/naveur/" TARGET="_BLANK">Navy
Newsstand</A>
</Font></CENTER>
<%
'Clean Up NL
NLRs.Close
NLConn.Close
Set NLRS = Nothing
Set NLConn = Nothing
'Clean Up NR
NRRs.Close
NRConn.Close
Set NRRS = Nothing
Set NRConn = Nothing
%>