<%@ LANGUAGE = "VBScript" %>
<%
sql = "select * from dedicated where status='1' order by ID"
set rs = server.createobject("adodb.recordset")
rs.open sql,conn,3,3
sql2 = "select * from cpanel where status='1'"
set rs2 = server.createobject("adodb.recordset")
rs2.open sql2,conn,3,3
sql3 = "select * from osystem where status='1'"
set rs3 = server.createobject("adodb.recordset")
rs3.open sql3,conn,3,3
sql4 = "select * from firewall where status='1'"
set rs4 = server.createobject("adodb.recordset")
rs4.open sql4,conn,3,3
sql5 = "select * from bsolution where status='1'"
set rs5 = server.createobject("adodb.recordset")
rs5.open sql5,conn,3,3
sql6 = "select * from ipadd where status='1'"
set rs6 = server.createobject("adodb.recordset")
rs6.open sql6,conn,3,3
sql7 = "select * from managedservice where status='1'"
set rs7 = server.createobject("adodb.recordset")
rs7.open sql7,conn,3,3
sql8 = "select * from bandwidth where status='1'"
set rs8 = server.createobject("adodb.recordset")
rs8.open sql8,conn,3,3
%>
AHT
