|
<%
initial_value = initial_value / 2
i = 1
Do Until i > initial_value_Prev
%>
<%
Set db = Server.CreateObject("ADODB.Connection")
db.Open("bc4m")
db.CursorLocation = 3
conf_titlem = rs(0)
SQL2 = "Select count(option_category) From e_resource where publish = 'yes' and option_category ='"&conf_titlem&"'"
set cate = Server.CreateObject("ADODB.Recordset")
set cate = db.Execute(SQL2)
If cate.BOF Or cate.EOF Then
end if
%>
<%
get_url = lcase(rs(0))
get_url = replace(get_url," ","-")
%>
<%
len_title = len(rs(0))
split_len_title = len_title -1
display_title = left(rs(0),1)
display_split_title = Right(rs(0),split_len_title)
%>
 <%=display_title%> <%=display_split_title%> ( <%=cate(0)%> )
<%
rs.MoveNext
i=i+1
Loop
%>
|
<%
i = 1
Do Until i> initial_value_Nex
%>
<%
Set db = Server.CreateObject("ADODB.Connection")
db.Open("bc4m")
db.CursorLocation = 3
conf_titlem = rs(0)
SQL2 = "Select count(option_category) From e_resource where publish = 'yes' and option_category ='"&conf_titlem&"'"
set cate = Server.CreateObject("ADODB.Recordset")
set cate = db.Execute(SQL2)
If cate.BOF Or cate.EOF Then
end if
%>
<%
get_url = lcase(rs(0))
get_url = replace(get_url," ","-")
%>
<%
len_title = len(rs(0))
split_len_title = len_title -1
display_title = left(rs(0),1)
display_split_title = Right(rs(0),split_len_title)
%>
<%=display_title%> <%=display_split_title%> ( <%=cate(0)%> )
<%
rs.MoveNext
i=i+1
Loop
%>
|
|
