<!--#include file="Conn_Index_id.asp"-->
<!--#include file="../Inc/Ts_ubb.asp"-->
<!--#Include file="../Install/Asp/Title_Index_id.asp"-->
<%if lfwap_sbs(3)="2" then
Call wapHead2_0(Index_title)
else
Call wapHead1_2(Index_title)
end if
response.write "<p align="""&Index_typeset&""">"
if Index_logo<>"" then
response.write "<img src="""&Index_logo&""" alt="""&Index_title&"""/><br/>"
end if
if Index_simulation=0 then
If wap_ie=1 Then
Call NuoHa_Conn
response.redirect "http://"&waps&"/Opera.asp?sid="&sid&"&sb="&sb
response.end
end if
end if
if lfwap_sbs(3)="2" then%>
<!--#include file="../Cache/Asp/index_Index_id_2.asp"-->
<%else%>
<!--#include file="../Cache/Asp/index_Index_id_1.asp"-->
<%end if
If Index_add_time="" or DateDiff("n",Index_add_time,now())>Index_update_time then
Ts_content=""
Dim rs,i
set rs=server.createobject("adodb.recordset")
rs.open "select id,content,website,picture,wrap,forum,calltype,amount,wraps,symbol,type,password from wap_column where location=Index_id and grade=0 and hide=0 order by sort asc",conn,1,1
if rs.eof then 
Ts_content=Ts_content&"С<br/>"
else
rs.Move(0)
dim j
j=1
do while not rs.eof
if rs("type")="0" then
Ts_content=Ts_content&"<a href=""/Column/Column_"&rs("id")&".asp?sid=[sid]"">"&nameubb(rs("content"))&"</a>"
elseif rs("type")="1" then
Ts_content=Ts_content&"<a href="""&Ts_wml(rs("website"))&""">"&nameubb(rs("content"))&"</a>"
elseif rs("type")="2" then
Ts_content=Ts_content&Ts_ubb(rs("content"))
elseif rs("type")="3" then
wml_content=rs("content")
lfwap_wml=split(wml_content,"[lfwap_wml_wap]")
if ubound(lfwap_wml)=0 then
Ts_content=Ts_content&Ts_wml(wml_content)
else
if lfwap_sbs(3)="2" then
Ts_content=Ts_content&Ts_wml(lfwap_wml(1))
else
Ts_content=Ts_content&Ts_wml(lfwap_wml(0))
end if
end if
elseif rs("type")="4" then
Ts_content=Ts_content&"<img src="""&nameubb(rs("picture"))&""" alt="""&nameubb(rs("content"))&"""/>"
elseif rs("type")="8" then
Call column_type(rs("calltype"),rs("amount"),rs("forum"),rs("password"),rs("wraps"),nameubb(rs("symbol")))
end if
if rs("wrap") then
Ts_content=Ts_content&"<br/>"
end if
rs.MoveNext
j=j+1
if rs.eof then exit do
loop
end if
rs.close
set rs=nothing
Ts_content_s=Ts_content
Ts_content="<%"&chr(13)&chr(10)&"Index_add_time="""&now()&""""&chr(13)&chr(10)&"Ts_content_s="""&NuoHa.Add_Asp_Usb(Ts_content)&""""&chr(13)&chr(10)&"%"&">"
if lfwap_sbs(3)="2" then
Call NuoHa.Add_Asp("/Cache/Asp/Index_Index_id_2.asp",Ts_content)
else
Call NuoHa.Add_Asp("/Cache/Asp/Index_Index_id_1.asp",Ts_content)
end if
end if
response.write NuoHa.Asp_Output(Asp_Output(Ts_content_s))
Call NuoHa_Conn
if lfwap_sbs(3)="2" then
Call wapOver2_0()
else
Call wapOver1_2()
end if
%>