[thelist] asp recordset loop
Brian Cummiskey
Brian at hondaswap.com
Thu Aug 18 15:08:44 CDT 2005
wow- 2 days later...
anyway, ignore this. this has been solved for a while now.
Brian Cummiskey wrote:
> I sent a post last night about a cursor loop problem. I never got it,
> so i don't even know if it made it to the list or not. If you saw it,
> great. if not-- disregard.
>
> Turns out, it was working fine all along. it was my web-based asp
> interface that doesn't seem to work. Here goes...
>
>
> The SP when triggered manually in query analyzer, works fine. I get my
> multiple result sets via the cursor selecting from multiple specific
> tables.
>
> sp_MULTI_DNC 'ALL', 'company', 'ACME', NULL, NULL, NULL
> procedure - thejob - flow_type - company - first_name - last_name -
> phone_number
>
>
> when i call it in an asp loop, i don't get the desired results-- it
> stops after the first job, which is why yesterday it had me thinking
> that the cursor wasn't working properly.
>
>
> here's my asp:
>
>
> if theserver = "MBC2" OR theserver = "ALL" then
>
> server.ScriptTimeout = 3600
> set cnn = server.CreateObject("ADODB.connection")
> set comm = Server.CreateObject ("ADODB.Command")
> with comm
> .CommandTimeout = 0
> .ActiveConnection = connstr2
> .CommandText = "sp_MULTI_DNC"
> .CommandType = adcmdstoredproc
> .parameters("@thejob").value = thejob
> .parameters("@flow_type").value = flow_type
> .parameters("@company").value = company
> .parameters("@first_name").value = first_name
> .parameters("@last_name").value = last_name
> .parameters("@phone_number").value = phone_number
>
>
> set rst = Server.CreateObject("ADODB.Recordset")
> set rst = .execute
> END WITH
>
>
> if not rst.eof then
>
> dim tableheaders
> tableheaders = ""
>
> dim tablebody
> tablebody = ""
>
> tableheaders = tableheaders & "<table
> style=""border-collapse: collapse;"" border=""1"" cellspacing=""0""
> cellpadding=""2"">" & vbcrlf
> for x = 0 to rst.Fields.count - 1
> tableheaders = tableheaders & "<th>" &
> trim(rst.Fields(x).Name) & "</th>" & vbcrlf
> next
>
> do until rst.eof
>
> tablebody = tablebody & "<tr>" & vbcrlf
>
> for x = 0 to rst.Fields.count - 1
> tablebody = tablebody & "<td>" &
> trim(rst.Fields(x).Value) & "</td>" & vbcrlf
> next
>
> tablebody = tablebody & "</tr>" & vbcrlf
> rst.MoveNext
> loop
>
> tablebody = tablebody & "</table>" & VbCrLf
>
> else
> tablebody = tablebody & "<h3>no results</h3>"
> end if
> end if
>
>
>
> ------------------------
> and later in the body part-
>
> <div id="main">
> <form id="frmdefault">
> <%= tableheaders %>
> <%= tablebody %>
> <input type="hidden" name="ref" id="ref" value="do_lookup.asp" />
> </form>
> </div>
>
>
> the end result, will have a check box next to the record to select and
> modify/etc on the next page.
>
> anyone know why my loop stops?
>
> does the record set end after the first job is complete?
>
More information about the thelist
mailing list