[thelist] asp recordset loop
Mark Rees
mrees at itsagoodprice.com
Fri Aug 19 03:08:08 CDT 2005
----- Original Message -----
From: "Brian Cummiskey" <Brian at hondaswap.com>
To: <thelist at lists.evolt.org>
Sent: Thursday, August 18, 2005 9:08 PM
Subject: Re: [thelist] asp recordset loop
> wow- 2 days later...
>
> anyway, ignore this. this has been solved for a while now.
How? Did you discover the nextrecordset method of the recordset?
> 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?
> >
>
>
> --
>
> * * Please support the community that supports you. * *
> http://evolt.org/help_support_evolt/
>
> For unsubscribe and other options, including the Tip Harvester
> and archives of thelist go to: http://lists.evolt.org
> Workers of the Web, evolt !
>
More information about the thelist
mailing list