Commercial WEB DESIGN - WEBPRO | Top Web Design Models - B2B Web Design -

<% Dim strCount1, strDate Set conn2 = server.createobject("adodb.connection") conn2.open strDSN Set rsNews = server.createobject("adodb.recordset") sqlNews = "SELECT * FROM NEWS WHERE category = 'General' AND dater BETWEEN '"& strNewsStartDate &"' AND '"& strNewsEndDate &"' ORDER BY dater DESC" rsNews.open sqlNews, conn2, 3, 1 %> <%If rsNews.EOF Then%> <%Else%> <%If rsNews.RecordCount > 2 Then%> <%Do while strCount1 <> 2%> <%strDate = Replace(rsNews("dater"),"/","-")%> <%rsNews.MoveNext%> <%strCount1 = strCount1 + 1%> <%Loop%> <%Else%> <%Do while NOT rsNews.EOF%> <%strDate = Replace(rsNews("dater"),"/","-")%> <%rsNews.MoveNext%> <%Loop%> <%End if%> <%End if%>

Coming Soon....

<%=strDate%>
<%If rsNews("pressformat") = "Plain text" Then%> "><%=rsNews("title")%>

<%Else%> <%If rsNews("pressformat") = "Audio" Then%> ')"><%=rsNews("title")%>
<%Else%> <%If rsNews("pressformat") = "Video" Then%> "><%=rsNews("title")%>
<%Else%> " target="_blank"><%=rsNews("title")%>
<%End if%> <%End if%> <%End if%>

<%=strDate%>
<%If rsNews("pressformat") = "Plain text" Then%> "><%=rsNews("title")%>
<%Else%> <%If rsNews("pressformat") = "Audio" Then%> ')"><%=rsNews("title")%>
<%Else%> <%If rsNews("pressformat") = "Video" Then%> "><%=rsNews("title")%>
<%Else%> " target="_blank"><%=rsNews("title")%>
<%End if%> <%End if%> <%End if%>

<% rsNews.close Set rsNews = Nothing conn2.close Set conn2 = Nothing %>