<%@ 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%>

Международные перевозки грузов. Форум.

<% IF pg3>0 THEN trig=0 %> <% 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%>> <% END IF objRecordset.MoveNext i=i+1 loop %> <% ELSE For i=1 to objRecordset.PageSize %> FFFFFF <%trig=1 ELSE%>eefaff <%trig=0 END IF%>> <% objRecordset.MoveNext Next %> <% END IF %>

<%=ZagTema%>

<%=objRecordset("MBodyMess")%>
Автор: <%=objRecordset("MAftor")%>
Дата сообщения: <%=objRecordset("MData_reg")%>
<%IF Len(objRecordset("ATema"))>2 Then%>

<%=objRecordset("ATema")%>

<%END IF%>

<%=objRecordset("ABodyMess")%>

Автор: <%=objRecordset("AAftor")%>
Дата ответа: <%=objRecordset("AData_reg")%>
<%IF Len(objRecordset("ATema"))>2 Then%>

<%=objRecordset("ATema")%>

<%END IF%>

<%=objRecordset("ABodyMess")%>

Автор: <%=objRecordset("AAftor")%>
Дата ответа: <%=objRecordset("AData_reg")%>
  

Перейти на страницу: <% 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 %>

Создавать новые темы и оставлять комментарии, возможно после авторизации на сайте.

Добавление ответа