|
| |
|
<% Set objConn = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.Recordset")
Set objRsCo = Server.CreateObject("ADODB.Recordset")
objConn.Open strConn
objRs.Open NewsQuery & " WHERE IDNews = " & Request.QueryString("IDNews"), objConn, 3, 3
objRs("NewsRead") = objRs("NewsRead") + 1
objRs.Update
objRs.Close
objRs.Open NewsQuery & " WHERE IDNews = " & Request.QueryString("IDNews"), objConn, 0, 1
%>
<%
If objRs.BOF And objRs.EOF Then
%>
|
| Esta notícia não está
disponível! |
<%
Else
If Not CurrentNews = objRs("IDNews") And Application(ScriptName & "EnableComments") = "Yes" Then
objRsCo.Open "SELECT IDComment FROM Comment WHERE NewsID = " & objRs("IDNews"), objConn, 3, 1
CommentCount = objRsCo.RecordCount
If CommentCount = 0 Then CommentCount = "No"
CurrentNews = objRs("IDNews")
objRsCo.Close
End If
%>
| Notícias |
| |
| <% = Smilies(objRs("NewsHeadline"))%> |
|
<% NewsCols = 0 %>
<% NewsCols = NewsCols + 1 %>
<% If Len(objRs("NewsImage")) > 0 And Application(ScriptName & "NewsImages") = 1 And Application(ScriptName & "NewsImagesAlign") = "left" Then %>
',null , 'width=400, height=360, dependent=yes, resizable=no, menubar=no, location=no, scrollbars=yes, status=no, titlebar=no, toolbar=no')"> " width="200" border="0" >
<% End If %>
<%
If Not objRs("NewsLegenda") = "" And Not objRs("NewsLegenda") = "" Then
%>
<% = objRs("NewsLegenda") %>
<% End If%> |
|
<% = objRs("NewsText") %>
<%
If Not objRs("NewsSource") = "" And Not objRs("NewsSource") = "http://" Then
%>
Link relacionado:" target="_blank">
<% = objRs("NewsSource") %>
<%
End If
%>
|
<% NewsCols = NewsCols + 1 %>
<% If Len(objRs("NewsImage")) > 0 And Application(ScriptName & "NewsImages") = 1 And Application(ScriptName & "NewsImagesAlign") = "right" Then %>
<% NewsCols = NewsCols + 1 %>
<% End If %>
|
<% If Len(objRs("NewsLinks")) > 0 Then
Dim LinkArray %>
<% Set LinkArray = Nothing
End If %>
|
<%
If Application(ScriptName & "ShowIcons") = "Yes" Then
%>
',null , 'width=385, height=460, dependent=yes, resizable=no, menubar=no, location=no, scrollbars=no, status=no, titlebar=no, toolbar=no')">  |
<%
Else
%>
|
<%
End If %>
<%
End If
%> |
|
<% If Application(ScriptName & "EnableComments") = "Yes" Then
objRs.Close
strSQL = "SELECT * FROM Comment WHERE NewsID = " & Request.QueryString("IDNews")
Select Case Request.QueryString("orderby")
Case "date"
strSQL = strSQL & " ORDER BY CommentDate ASC"
Case "author"
strSQL = strSQL & " ORDER BY CommentAuthor ASC"
Case else
strSQL = strSQL & " ORDER BY CommentDate ASC"
End Select
strSQL = strSQL & ", IDComment ASC"
objRs.Open strSQL, objConn, 3, 1
%>
<% End If
objRs.Close
objConn.Close
Set objConn = Nothing
Set objRs = Nothing
Set objRsCo = Nothing
%>
|
|
| |
|
|
|
|