%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim Rs_Packages
Dim Rs_Packages_cmd
Dim Rs_Packages_numRows
Set Rs_Packages_cmd = Server.CreateObject ("ADODB.Command")
Rs_Packages_cmd.ActiveConnection = MM_MODELS_STRING
Rs_Packages_cmd.CommandText = "SELECT * FROM dbo.PACKAGES WHERE ACTIVE = 'Y' ORDER BY LIST_ORDER"
Rs_Packages_cmd.Prepared = true
Set Rs_Packages = Rs_Packages_cmd.Execute
Rs_Packages_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
Rs_Packages_numRows = Rs_Packages_numRows + Repeat1__numRows
%>
Jacob Stanley Andrzejczak Photography - Package Pricing