Links
<% dim QueryForDomain,ResultForDomain
dim domain_name
domain_name="dds"
set ResultForDomain=server.createobject("adodb.recordset")
'set Resultforservice=server.createobject("adodb.recordset")
call OpenConnection
QueryForDomain="select * from tbl_category order by category"
set ResultForDomain=NewConnection.Execute(QueryForDomain)
%>
<% while not ResultForDomain.EOF or ResultForDomain.BOF
QueryForservice="select count(0) from tbl_category_info where Cat_Id='" & ResultForDomain(0) & "' and DomainName='" & domain_name & "' and confrm='1'"
set ResultForservice=NewConnection.Execute(QueryForService)
%>
<%=ResultForDomain("category")%> [<%=ResultForservice(0)%>] |
<%
ResultForservice.close
ResultForDomain.movenext
If ResultForDomain.EOF then
else
QueryForservice="select count(0) from tbl_category_info where Cat_Id='" & ResultForDomain(0) & "' and DomainName='" & domain_name & "' and confrm='1'"
set ResultForservice=NewConnection.Execute(QueryForService)
%>
<%=ResultForDomain("category")%> [<%=ResultForservice(0)%>] |
<% ResultForservice.close
ResultForDomain.movenext
End if
wend
call closeconnection
%>
|