%@ Language=VBScript %>
<%Response.Expires=0%>
<%
ss=Session.SessionID
Dim pg1, pg2, pg3, tema, km
Dim MyConnection
set MyConnection = server.CreateObject("ADODB.Connection")
MyConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\WEB\world-post.org\base\forum.mdb"
Dim objRecordset
Set objRecordset = CreateObject("ADODB.Recordset")
objRecordset.PageSize=10
IF Len(Request.QueryString("k"))<7 THEN km=CInt(Request.QueryString("k")) ELSE km=0 END IF
objRecordset.Open "SELECT Mess.Kod as MKod, Mess.Tema as MTema, Mess.Aftor as MAftor, Mess.EM as MEM, Format(Mess.Data_reg,'dd.mm.yy hh:mm:ss') as MData_reg, Mess.BodyMess as MBodyMess, Answers.Kod as AKod, Answers.KodMess as AKodMess, Answers.Tema as ATema, Answers.Aftor as AAftor, Answers.EM as AEM, Format(Answers.Data_reg,'dd.mm.yy hh:mm:ss') as AData_reg, Answers.BodyMess as ABodyMess FROM Mess LEFT JOIN Answers ON Mess.Kod = Answers.KodMess WHERE Mess.Kod = " & km & " ORDER BY Answers.Data_reg", MyConnection, 1
pg3=objRecordset.recordcount
IF pg3 > 0 THEN
pg1=CInt(Request.QueryString("p"))
pg2=objRecordset.PageCount
IF pg1>pg2 Then pg1=pg2 END IF
objRecordset.AbsolutePage = pg1
END IF
%>
<%IF pg3>0 THEN
ZagTema=Replace(objRecordset("MTema"),"""","")
OpsTema=Replace(objRecordset("MBodyMess"),"""","")
END IF
%>
<%IF pg3>0 THEN%><%=ZagTema%><%IF pg1>1 THEN%> - World-Post <%=pg1%><%END IF%><%ELSE%>Тема форума World-Post.org немного подгуляла<%END IF%>
Автор: <%=objRecordset("MAftor")%> Дата повідомлення: <%=objRecordset("MData_reg")%>
<%
Dim i
i=1
IF CInt(pg1)=CInt(pg2) THEN
%>
<%
do while not objRecordset.EOF
IF Len(objRecordset("ABodyMess"))>1 THEN
%>
FFFFFF
<%trig=1
ELSE%>eefaff
<%trig=0
END IF%>>
<%IF Len(objRecordset("ATema"))>2 Then%>
<%=objRecordset("ATema")%>
<%END IF%>
<%=objRecordset("ABodyMess")%>
Автор: <%=objRecordset("AAftor")%> Дата відповіді: <%=objRecordset("AData_reg")%>
<%
END IF
objRecordset.MoveNext
i=i+1
loop
%>
<%
ELSE
For i=1 to objRecordset.PageSize
%>
FFFFFF
<%trig=1
ELSE%>eefaff
<%trig=0
END IF%>>
<%IF Len(objRecordset("ATema"))>2 Then%>
<%=objRecordset("ATema")%>
<%END IF%>
<%=objRecordset("ABodyMess")%>
Автор: <%=objRecordset("AAftor")%> Дата відповіді: <%=objRecordset("AData_reg")%>
<%
objRecordset.MoveNext
Next
%>
<%
END IF
%>
Перейти на сторінку:
<%
for i=1 to Cint(pg2)
IF i=Cint(pg1) Then
%>
<%=i%> |
<%
ELSE
%>
<%=i%> |
<%
END IF
next
END IF
objRecordset.Close
MyConnection.Close
Set objRecordset =Nothing
set MyConnection = Nothing
%>
Створювати нові теми і залишати коментарі, можливо після авторизації на сайті.