| Services |
<%
set rs2=con.execute("select * from tbservices where userid="&userid&" and pending=0 and Ondisplay=1 and deleted=0 order by category_id")
if not rs2.eof Then
dim check(1000)
i=0
displaylink=0
while not rs2.eof
if rs2("subsubcategory_id")="" then
'=========add from sub category=================
str123="select * from tbservices where userid="&userid&" and subCategory_id="&rs2("subCategory_id")&" and pending=0 and Ondisplay=1 and deleted=0 order by Category_id"
rs3.open str123,con,adopenstatic
recordcount =rs3.recordcount
linkid=rs3("subcategory_id")
rs3.close
ctid=CInt(rs2("Category_id"))
linkname22=rs2("subCategory")
linkto="subCategory"
linkname11=mid(rs2("subCategory"),1,15)
check(i)=linkid&linkname22
else
'=========add from sub sub category=============
str123="select * from tbservices where userid="&userid&" and subsubCategory_id="&rs2("subsubCategory_id")&" and pending=0 and Ondisplay=1 and deleted=0 order by Category_id"
rs3.open str123,con,adopenstatic
recordcount =rs3.recordcount
linkid=rs3("subsubcategory_id")
rs3.close
ctid=CInt(rs2("Category_id"))
linkname22=rs2("subsubCategory")
linkto ="subsubCategory"
linkname11=mid(rs2("subsubCategory"),1,15)
check(i)=linkid&linkname22
end If
x=0
Do While x=i
if ucase(check(x))= ucase(check(i)) then
'response.write i&"in"
displaylink=0
exit Do
else
'response.write i&"out"
displaylink=1
end if
Loop
if displaylink=1 then
%>
 |
&userid=<%=userid%>" title="<%=linkname22%>"><%=linkname11&".. ("&recordcount&")"%> |
<%
else
end if%>
<%
i=i+1
rs2.movenext
wend
end if
rs2.close
%>