Set cr_dbConn = Server.CreateObject("ADODB.Connection")
cr_sqlstr = "EXEC prScoutOrderTypeAllocation_selAllocations '9252','14'"
Set cr_results = cr_dbConn.Execute(cr_sqlstr)
if cr_results.eof then
response.write("I find no records")
cr_i = 1
do until cr_results.eof
cr_cellString = Response.Write("Group Sales Total: ") & cr_results("Allocation") & "<br>"
if not cr_i mod 6 = 0 then
cr_i = cr_i + 1