|
 |
|
<%
Sub ShowNews()
Response.Write ""
Response.Write " | "
Response.Write ""
Response.Write ""
Response.Write rsCommon("News_Title")
Response.Write""
Response.Write "
"
Response.Write FormatDateTime(rsCommon("News_Date"), vbLongDate)
Response.Write " "
Response.Write FormatDateTime(rsCommon("News_Date"), vbLongTime)
Response.Write "
"
Response.Write "Автор: "
Response.Write rsCommon("News_Author")
Response.Write "
"
Response.Write "Количество просмотров: "
Response.Write rsCommon("News_ViewCount")
Response.Write "
"
Response.Write ""
Response.Write rsCommon("News_Short")
Response.Write ""
Response.Write ""
Response.Write " | "
Response.Write " "
End Sub
Dim rsComments 'Database recordset holding the comments for this news item
Dim lngNewsID 'Holds the News item ID number
Dim blnComments 'Set to true if comments are allowed for this item
Dim strMonth
Dim strYear
If isNull(Request.QueryString("NewsID")) = True Or isNumeric(Request.QueryString("NewsID")) = False Then
Response.Write "index.asp"
Else
lngNewsID = CLng(Request.QueryString("NewsID"))
End If
'************************************************************************************
If CInt(Request.Querystring("Month")) < 1 then
Mon=month(date)
Yea=year(date)
str = "1/" + CStr(Mon) + "/" + CStr(Yea) + " 0:00:00 AM"
If Mon<12 then str1 = "1/" + CStr(CInt(Mon)+1) + "/" + CStr(Yea) + " 00:00:00 AM" End If
If Mon=12 then str1 = "31/" + CStr(CInt(Mon)) + "/" + CStr(Yea) + " 11:59:59 AM" End If
End If
If CInt(Request.Querystring("Month")) = 12 then
Mon=Request.QueryString("month")
Yea=Request.QueryString("year")
str = Request.QueryString("month") + "/1/" + Request.QueryString("year") + " 0:00:00 AM"
str1 = CStr(CInt(Request.QueryString("month"))) + "/31/" + CStr(Request.QueryString("year")) + " 11:59:59 PM"
End If
If CInt(Request.Querystring("Month")) > 0 and CInt(Request.Querystring("Month")) < 12 then
Mon=Request.QueryString("month")
Yea=Request.QueryString("year")
str = "1/" + Request.QueryString("month") + "/" + Request.QueryString("year") + " 0:00:00 AM"
str1 = "1/" + CStr(CInt(Request.QueryString("month"))+1) + "/" + CStr(Request.QueryString("year")) + " 0:00:00 AM"
End If
pagea=CInt(Request.QueryString("pagea"))
If pagea<1 then pagea=1 End If
recordcount=0
strSQL = "SELECT * FROM tblNews where ((News_Date > '"&str&"') and (News_Date < '"&str1&"')) ORDER BY News_Date DESC;"
rsCommon.Open strSQL, adoCon
recordcount=0
If not rsCommon.Eof then
rsCommon.movefirst
while not rsCommon.eof
recordcount=recordcount+1
rsCommon.movenext
wend
rsCommon.close
strSQL = "SELECT * FROM tblNews where ((News_Date > '"&str&"') and (News_Date < '"&str1&"')) ORDER BY News_Date DESC;"
rsCommon.Open strSQL, adoCon
rsCommon.MoveFirst
for b = 1 to perp*(pagea-1)
rsCommon.Movenext
Next
for a = 1 to perp
if a=1 then %>
<%
End If
ShowNews()
rsCommon.Movenext
If rsCommon.Eof then a=perp
Next
%>
|
Cтраницы:
<%
For i = 1 To recordcount\perp+1
if i=pagea then response.write"[ "
response.write " " & i & "" & " "
if i=pagea then response.write"] "
Next
Else
Response.Write "Нет новостей за данный период"
End IF
rsCommon.Close
%>
|
|
|
|
<%
'****************************************************************************************
'Set the response buffer to true as we maybe redirecting
Response.Buffer = True
'******Line 30
'Dimension variables
Dim intPreviewNewsItems 'Number of files shown on each page
%>
ГОЛОСУЕМ ЗА ИНГУШЕТИЮ!
|
|
| |
 |
|
|
<% Response.Buffer = True %>
<%
Dim PollID
PollID = "33"'Request.QueryString("PollID")
If Len(PollID) <> 0 Then ' Check to see if a PollID was given
' Lookup poll id in database
Set objConn = CreateObject("ADODB.Connection")
Dim objConn
dim rspoll
dim optionid
dim total
dim rspolloptions
dim result
objConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("db\polls.mdb"))
' Load the poll that matches PollID
Set rsPoll = objConn.Execute("SELECT * FROM Polls WHERE PollID=" & PollID)
If rsPoll.EOF Then
Response.write "No Such Poll"
Else ' Poll exists
If Request.Cookies("devdomainpoll")(PollID) = "voted" Then ' Has Voted
OptionID = false ' Don't display the vote links
Else
OptionID = Request.QueryString("OptionID")
If Len(OptionID) > 0 Then ' User is trying to vote
' Update the count for the PollOption
objConn.Execute "UPDATE PollOptions SET OptionSelectedCount = " & _
"OptionSelectedCount + 1 WHERE PollOptionID=" & OptionID
' Set a cookie to stop the user from voting again
Response.Cookies("devdomainpoll")(PollID) = "voted"
Response.Cookies("devdomainpoll").Expires = Now() + 365
OptionID = false ' Don't display the vote links
Else
OptionID = true
End If
End If
Response.write ""
Response.write rsPoll("PollQuestion")
Response.write ""
%>
|
|
|
<%
' Load the options
Set rsPollOptions = objConn.Execute("SELECT * FROM PollOptions WHERE PollID=" _
& PollID)
Total = 0
Do While Not rsPollOptions.EOF
Total = Total + rsPollOptions("OptionSelectedCount")
rsPollOptions.MoveNext
Loop
%>
|
|
|
<%
rsPollOptions.MoveFirst
Do While Not rsPollOptions.EOF
If Total > 0 Then ' Calculate the percentage
Result = CStr(Int((rsPollOptions("OptionSelectedCount") / Total) * 100))+"%"
Else
Result = 0
End If
Response.write " | "
Response.Write ""
If OptionID then
Response.Write ""
End If
Response.Write rsPollOptions("PollOption")
If OptionID then
Response.Write ""
End IF
Response.Write " | "
If OptionID=false then
Response.Write ""
Response.Write ""&rsPollOptions("OptionSelectedCount")&" | "
End If
Response.write " | "
rsPollOptions.MoveNext
Loop
rsPollOptions.close
set rsPollOptions = Nothing
End If
rsPoll.close
Set rsPoll = Nothing
objConn.close
set objConn = Nothing
%>
|
<%Response.write "
Количество голосов:" & Total & ""%>
<%Response.Write "Архив голосований
"%>
|
|
|
|
<%
ELSE %>
No Poll Selected
<% End If %>
|
"
If DatePart("d",rsCommon("News_Date")) <> theday Then Response.Write "