<%@ codepage = 28597 LCID = 1032 %> <%on error resume next%> <% Set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str key = trim(Request("key")) If key="" OR IsNull(key) or not(isnumeric(key)) Then key = 0 EmptyRecordset = False FirstPass = True NeedRecordset = False PagingMove = "" RecordsProcessed = 0 PageSize = 8 If Not IsEmpty(Request("list_PagingMove")) Then PagingMove = Trim(Request("list_PagingMove")) End If If IsEmpty(Session("rs2")) Then NeedRecordset = True Else If Session("rs2") Is Nothing Then NeedRecordset = True Else Set list = Session("rs2") End If End If ListAbsolutePage = Request("PrevAbsolutePage") if IsNull(ListAbsolutePage) then ListAbsolutePage = 1 end if tkey = "" & key & "" if key = 0 then strsql = "SELECT top 6 *,CONVERT(datetime, sdate, 103) as showdate FROM [news] where lang='en' and CONVERT(datetime, sdate, 103) <= CONVERT(datetime, getdate(), 103) order by sdate desc, id desc " else strsql = "SELECT *,CONVERT(datetime, sdate, 103) as showdate FROM [news] where lang='en' and CONVERT(datetime, sdate, 103) <= CONVERT(datetime, getdate(), 103) and subcatid="& tkey&" order by sdate desc, id desc " end if 'response.write strsql if NeedRecordset then Set rs2 = Server.CreateObject("ADODB.Recordset") rs2.CacheSize = PageSize rs2.Open strsql, conn, 1, 1 end if On Error Resume Next If rs2.BOF And rs2.EOF Then EmptyRecordset = True On Error Goto 0 If Err Then EmptyRecordset = True rs2.PageSize = PageSize If IsEmpty(ListAbsolutePage) Then ListAbsolutePage = 1 If Not EmptyRecordset Then PageCount = rs2.PageCount RecordCount = rs2.RecordCount Select Case Trim(Request("list_PagingMove")) Case "<<" ListAbsolutePage = 1 Case "« Previous" ListAbsolutePage = ListAbsolutePage - 1 Case "Next »" ListAbsolutePage = ListAbsolutePage + 1 Case ">>" ListAbsolutePage = PageCount Case Else End Select If (ListAbsolutePage - 1) * PageSize > RecordCount or ListAbsolutePage < 1 Then ListAbsolutePage = 1 rs2.AbsolutePage = ListAbsolutePage If rs2.EOF Then ListAbsolutePage = ListAbsolutePage - 1 rs2.AbsolutePage = ListAbsolutePage End If End If %>

| Home |

<%strsql = "SELECT * FROM [subcats] order by nameen" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open strsql, conn, 1, 1%> <% while not rs.EOF%> <% rs.MoveNext wend%> <% rs.Close Set rs = Nothing %> Identity Seasonable      Recent News menu_selected_bg.gif<%else%>menu_open_bg.gif<%end if%>">  menu_selected_bg.gif<%else%>menu_open_bg.gif<%end if%>" height="21">   " class="<%if cstr(key)=cstr(rs("id")) then%>menu1white<%else%>menu1<%end if%>"><%=rs("nameen")%>

<% if not rs2.EOF then%> <% Do If EmptyRecordset Then Exit Do If RecordsProcessed = PageSize Then Exit Do If Not FirstPass Then rs2.MoveNext Else FirstPass = False End If If rs2.EOF Then Exit Do RecordsProcessed = RecordsProcessed + 1 %> <% RowCount = RowCount + 1 Loop %> <% else response.write "No Records found." end if%> &key=<%=key%>"><%= rs2("title")%>  (<%=rs2("showdate")%>) <%=rs2("smalldescr")%> <% If PageCount > 1 and Not EmptyRecordset Then%> <% If clng(ListAbsolutePage) = clng(PageCount) Then %> <% ElseIf clng(ListAbsolutePage) > 1 and clng(ListAbsolutePage) < clng(PageCount) Then %> <% ElseIf clng(ListAbsolutePage) = 1 Then %> <% End If %> <% End If%> <% rs2.Close Set rs2 = Nothing %>

Designed & Developed:  OTEnet Á.Å. - Copyright © 2004  3rd PESYP,  All rights reserved

<% conn.Close Set conn = Nothing %>