%@LANGUAGE="VBSCRIPT"%> <% Dim Content_set Dim Content_set_cmd Dim Content_set_numRows Set Content_set_cmd = Server.CreateObject ("ADODB.Command") Content_set_cmd.ActiveConnection = MM_armdb_STRING Content_set_cmd.CommandText = "SELECT * FROM armdb.arm_content" Content_set_cmd.Prepared = true Set Content_set = Content_set_cmd.Execute Content_set_numRows = 0 %> <% Dim Services_set Dim Services_set_cmd Dim Services_set_numRows Set Services_set_cmd = Server.CreateObject ("ADODB.Command") Services_set_cmd.ActiveConnection = MM_armdb_STRING Services_set_cmd.CommandText = "SELECT ser_id, ser_name, ser_var FROM armdb.arm_services ORDER BY ser_name ASC" Services_set_cmd.Prepared = true Set Services_set = Services_set_cmd.Execute Services_set_numRows = 0 %> <% Dim Projects_set Dim Projects_set_cmd Dim Projects_set_numRows Set Projects_set_cmd = Server.CreateObject ("ADODB.Command") Projects_set_cmd.ActiveConnection = MM_armdb_STRING Projects_set_cmd.CommandText = "SELECT job_id, job_title, job_img FROM armdb.arm_jobs ORDER BY job_id DESC" Projects_set_cmd.Prepared = true Set Projects_set = Projects_set_cmd.Execute Projects_set_numRows = 0 %> <% Dim Content_set_repeat__numRows Dim Content_set_repeat__index Content_set_repeat__numRows = -1 Content_set_repeat__index = 0 Content_set_numRows = Content_set_numRows + Content_set_repeat__numRows %> <% Dim Services_set_repeat__numRows Dim Services_set_repeat__index Services_set_repeat__numRows = -1 Services_set_repeat__index = 0 Services_set_numRows = Services_set_numRows + Services_set_repeat__numRows %> <% Dim Projects_set_repeat__numRows Dim Projects_set_repeat__index Projects_set_repeat__numRows = -1 Projects_set_repeat__index = 0 Projects_set_numRows = Projects_set_numRows + Projects_set_repeat__numRows %>