Stored procedure fast on backend, but slow to display on web page. 2

BG12424 · Dec 6, 2002

I have a stored procedure that I am executing from within an ASP page. The number of results being returned from the database are 20,000 rows. It takes about 1 second to run in Query Analyzer, but takes a bit over 30 minutes to display those results to an ASP page front-end. For approximately 2000 records, it takes about 2 to 3 minutes to display in ASP.

I need help determining how I can improve the performance of my web pages.

Here is my function which calls the stored procedures and my formatting routine, which is used for re-use.

function BI_Addr1_Norm(proc,retval)

dim cmd, rs, dbConn

Set dbConn = Server.CreateObject("ADODB.Connection&quot

Set cmd = Server.CreateObject("ADODB.Command&quot

Set rs = Server.CreateObject("ADODB.Recordset&quot

dbConn.Open strConn

with cmd
.ActiveConnection = dbConn
.CommandText = proc
.CommandType = adCmdStoredProc
.CommandTimeout = 7200
.Parameters.Append .CreateParameter("Return", adInteger,adParamReturnValue)
Set rs = .Execute
end with

if rs.State = adStateOpen then
FORMAT_ADDR1_NORMALIZATION rs,proc
CloseRS(rs)
else
retval = cmd(0)
end if

CloseDBConn(dbConn)

end function

sub FlushResponse(row)
if row mod 2 = 0 then
Response.Flush
end if
end sub

sub FORMAT_ADDR1_NORMALIZATION(rs,proc)

'THE FOLLOWING FIELDS ARE RETRIEVED:
'EPS_ID,
'Vendor_Name,
'New_Vendor_Name,
'New_Vendor_Id,
'New_Federal_Id,
'New_Remittance_Address_1,
'Remittance_City,
'Remittance_State,
'New_Remittance_Zip

dim i,buildROWS,buildCOLS,prev,curr,desc

select case proc
case "BI_Addr1_Norm_X"
desc = "(CHECK " & CHR(34) & "X" & CHR(34) & " ADDR1)"
case "BI_Addr1_Norm_No_X"
desc = "(NO CHECK " & CHR(34) & "X" & CHR(34) & " ADDR1)"
case "BI_Addr1_Norm_All"
desc = "(BOTH CHECK " & CHR(34) & "X" & CHR(34) & " AND UNCHECK ADDR1)"
end select

'build the table header row
buildCOLS = "<TR><td colspan=9 align=middle class=bodyText><b><font size=3>Remittance Address 1 Normalization Table<br><center><font size=2>" & desc & "</font></center></font></b></td></TR>"
buildCOLS = buildCOLS & makeTH("UPDATE&quot

& endline
buildCOLS = buildCOLS & makeTH("Old Name&quot

& endline
buildCOLS = buildCOLS & makeTH("New Name&quot

& endline
buildCOLS = buildCOLS & makeTH("VId&quot

& endline
buildCOLS = buildCOLS & makeTH("FedId&quot

& endline
buildCOLS = buildCOLS & makeTH("Addr1&quot

& endline
buildCOLS = buildCOLS & makeTH("City&quot

& endline
buildCOLS = buildCOLS & makeTH("State&quot

& endline
buildCOLS = buildCOLS & makeTH("Zip&quot

& endline
buildROWS = makeTR(buildCOLS,0,1) & endline
buildCOLS = "" 'clear out header values

i=0
do while not rs.EOF
if i mod 2 = 0 then
prev = rs("NEW_REMITTANCE_ADDRESS_1&quot

else
curr = rs("NEW_REMITTANCE_ADDRESS_1&quot

end if
buildCOLS = buildCOLS & makeTD("<INPUT TYPE=CHECKBOX NAME=CKBOX VALUE=" & rs("NEW_REMITTANCE_ADDRESS_1&quot

& "~" & rs("EPS_ID&quot

& ">","bodyText","CENTER&quot

& endline
buildCOLS = buildCOLS & makeTD(rs("VENDOR_NAME&quot

,"bodyText","LEFT&quot

& endline
buildCOLS = buildCOLS & makeTD("<INPUT TYPE=TEXT NAME=TXT" & rs("EPS_ID&quot

& " VALUE=" & qt & rs("NEW_VENDOR_NAME&quot

& qt & ">","bodyText","LEFT&quot

& endline
buildCOLS = buildCOLS & makeTD(rs("NEW_VENDOR_ID&quot

,"bodyText","CENTER&quot

& endline
buildCOLS = buildCOLS & makeTD(rs("NEW_FEDERAL_ID&quot

,"bodyText","CENTER&quot

& endline
buildCOLS = buildCOLS & makeTD(rs("NEW_REMITTANCE_ADDRESS_1&quot

,"bodyText","CENTER&quot

& endline
buildCOLS = buildCOLS & makeTD(rs("REMITTANCE_CITY&quot

,"bodyText","CENTER&quot

& endline
buildCOLS = buildCOLS & makeTD(rs("REMITTANCE_STATE&quot

,"bodyText","CENTER&quot

& endline
buildCOLS = buildCOLS & makeTD(rs("NEW_REMITTANCE_ZIP&quot

,"bodyText","CENTER&quot

& endline
buildROWS = buildROWS & makeTR(buildCOLS,prev,curr) & endline 'build the row set
buildCOLS = "" 'clear out column values and start over
i=i+1
FlushResponse(i)
rs.movenext
loop
Response.Write(makeTABLE(buildROWS,"#FFFFFF",0,2,1)) & endline

end sub regards,
Brian

cbokowski · Dec 6, 2002

I used getrows for dataaccess.

http://www.learnasp.com

click on classic asp and search for getrows. It returns data in a array. we saw a huge increase in speed. Pages went from taking 1-2 mins to a few seconds.

Also avoid string concatination, response.write each piece is faster.

hth

BG12424 · Dec 6, 2002

Doesn't getrows() only get 2 fields at a time for all records? regards,
Brian

cbokowski · Dec 6, 2002

It returns all the fields of your query.

Heres a link for getrows.... (google cache)

http://216.239.33.100/search?q=cach...n/whygetrows.asp+"why+getrows"&hl=en&ie=UTF-8

ayladilara · Dec 6, 2002

This is aload of recordsets for ADO. The best thing to do is to implement paging. By doing so you could limit the number of the recordsets to display. The paging could be done on the front end or on the SQL server( by a stored proc). Have a look at "

http://www.4GuysFromRolla.com

" and "

http://www.LearnAsp.com

". There are some excellent articles on the subject.

Good Luck!

BG12424 · Dec 6, 2002

ayladilara,

It sounds like you think this is common of ASP. Is this true? Is there any settings that I can verify to make this paint to the web page any faster? thanks

brian regards,
Brian

wgrant0001 · Dec 6, 2002

Yes it is a common of ASP. But I couldn't get the second part of your question? Can you make it clearer?
Thanks! Wes Grant

http://www.aspenterprisemanager.com/

BG12424 · Dec 6, 2002

Is there a setting within IIS, SQL Server, Command Object, Recordset object, or something where we can make this process run much faster? Thanks

Brian regards,
Brian

ayladilara · Dec 6, 2002

Ahh! Now, you are asking a very qomprehensive question , which is optimization(maximization the performance). The answer to that problem involves a lot of details from opening the recordset properly to designing and maintaining database etc.Well, I am afraid you have to do some research on it. Sorry...I have to go to bed now...Thanks.

Good Luck.

BG12424 · Dec 10, 2002

I was using the getRows() method to return a resultset as prescribed above, and that was working great when viewing plain text, but as soon as I added HTML formatting to the data, ASP was taking an extra long time to render the page, resulting in my dllhost.exe process to spike to 100% utilization. Any ideas on this? regards,
Brian

cbokowski · Dec 10, 2002

Are you still concatenating the string before the response.write ?

Here is a link for speed tips...

http://www.learnasp.com/learn/speedtips.asp

BG12424 · Dec 10, 2002

yes i am. regards,
Brian

BG12424 · Dec 10, 2002

It sounds like I need to remove the makeTABLE routine and response.write the makeTR. I see, I am concatenating until it's all done, then writing it. I need to write it as I go. I think this is part of the problem. Thanks for the eyes on my code above. regards,
Brian

mwolf00 · Dec 10, 2002

I had a similar problem. I was concatenting an HTML string to output. The length of the string was over 1 million characters. Addin 50 characters to a string that is already over 1 million long takes a very long time - you drag the server down exponentially as you add to the string. The solution: create a class to handle the string separately (parallel process = very fast) I got a page that took over 15 minutes to display down to about 3 seconds....
<%
Class strCat
Private IntCntr
Private strArray()
Private intLength
Public Property Get Length
Length = intLength
End Property
Public Property Let Length( ByVal intLen)
intLength = intLen
IntCntr = 0
Redim strArray(1)
strArray(0) = ""
Redim strArray(intLength)
End Property
Public Property Get Value
Value = Join(strArray,"&quot

End Property
Private Sub Class_Initialize()
IntCntr = 0
Length = 100000
End Sub
Public function Add( strToAdd)
strArray(IntCntr) = strToAdd
IntCntr = IntCntr + 1
End function
End Class

dim strOut
set strOut = new strCat
My stored procedure returns HTML code
do while not objrs.eof
if not isNull(objrs("detail&quot

) then strOut.add(objrs("detail&quot

)
if not isNull(objrs("value&quot

) then strOut.add(objrs("value&quot

&vbcrlf) else strOut.add(vbcrlf)
objrs.movenext
loop

%>

<%=strOut.value%>
-----------------------------------------------------------------
[pc]

Be nice. It's only doing what you tell it to do.
mikewolf@tst-us.com

BG12424 · Dec 10, 2002

If I tried your method mwolf00, would I add all my html and data from database to this add method of the class and not write to the page until all data is retrieved, or can I write out after each row is retrieved, then clear the array and start over? If I can write out as I go from your array that is being created and added to, how would I clear it out and start over for each row? Thanks regards,
Brian

mwolf00 · Dec 10, 2002

It's always faster to use fewer response.write statements. Just make one. Everywhere where you'd normally write:
response.write "<tr><td>" & objrs("myField&quot & "</td>"

Now write
strOut.add("<tr><td>" & objrs("myField&quot & "</td>&quot

Or in your case:
strOut.add((makeTABLE(buildROWS,"#FFFFFF",0,2,1)) & endline) -----------------------------------------------------------------
[pc]

Be nice. It's only doing what you tell it to do.
mikewolf@tst-us.com

BG12424 · Dec 10, 2002

I tried the class above and it seemed to be way slower than writing out after each row is received from the database. See my code below:

The class is the same as what is listed above. I have it in my same asp file as this code below.

sub FORMAT_ADDR2_TO_1_COMPARE(rs,addr)

dim i,prev,curr,strOut
set strOut = new strCat

'build the table header row
strOut.add(makeTH("1_ID&quot

& endline)
strOut.add(makeTH("1_Old Name&quot

& endline)
strOut.add(makeTH("1_New Name&quot

& endline)
strOut.add(makeTH("1_Addr1&quot

& endline)
strOut.add(makeTH("1_Addr2&quot

& endline)
strOut.add(makeTH("1_City&quot

& endline)
strOut.add(makeTH("1_State&quot

& endline)
strOut.add(makeTH("1_Zip&quot

& endline)
strOut.add(makeTH("2_UPDATE&quot

& endline)
strOut.add(makeTH("2_Old Name&quot

& endline)
strOut.add(makeTH("2_New Name&quot

& endline)
strOut.add(makeTH("2_ID&quot

& endline)
strOut.add(makeTH("2_Addr1&quot

& endline)
strOut.add(makeTH("2_Addr2&quot

& endline)
strOut.add(makeTH("2_City&quot

& endline)
strOut.add(makeTH("2_State&quot

& endline)
strOut.add(makeTH("2_Zip&quot

& endline)
strOut.add(makeTR(buildCOLS,0,1) & endline)
' Response.Write(strOut.value)

i=0
do while not rs.EOF
if i mod 2 = 0 then
prev = rs("2Addr2&quot

else
curr = rs("2Addr2&quot

end if
strOut.add(makeTD(rs("ID1&quot

,"bodyText","CENTER&quot

& endline)
strOut.add(makeTD(rs("OldName1&quot

,"bodyText","LEFT&quot

& endline)
strOut.add(makeTD(rs("NewName2&quot

,"bodyText","CENTER&quot

& endline)
strOut.add(makeTD(rs("1Addr1&quot

,"bodyText","CENTER&quot

& endline)
strOut.add(makeTD(rs("1Addr2&quot

,"bodyText","CENTER&quot

& endline)
strOut.add(makeTD(rs("State1&quot

,"bodyText","CENTER&quot

& endline)
strOut.add(makeTD(rs("City1&quot

,"bodyText","CENTER&quot

& endline)
strOut.add(makeTD(rs("Zip1&quot

,"bodyText","CENTER&quot

& endline)
strOut.add(makeTD("<INPUT TYPE=CHECKBOX NAME=CKBOX VALUE=" & rs("ID2&quot

& ">","bodyText","CENTER&quot

& endline)
strOut.add(makeTD(rs("OldName2&quot

,"bodyText","LEFT&quot

& endline)
strOut.add(makeTD("<INPUT TYPE=TEXT NAME=TXT" & rs("ID2&quot

& " VALUE=" & qt & rs("NewName2&quot

& qt & ">","bodyText","LEFT&quot

& endline)
strOut.add(makeTD(rs("ID2&quot

,"bodyText","CENTER&quot

& endline)
strOut.add(makeTD(rs("2Addr1&quot

,"bodyText","CENTER&quot

& endline)
strOut.add(makeTD(rs("2Addr2&quot

,"bodyText","CENTER&quot

& endline)
strOut.add(makeTD(rs("State2&quot

,"bodyText","CENTER&quot

& endline)
strOut.add(makeTD(rs("City2&quot

,"bodyText","CENTER&quot

& endline)
strOut.add(makeTD(rs("Zip2&quot

,"bodyText","CENTER&quot

& endline)
strOut.add(makeTR(buildCOLS,prev,curr) & endline)
Response.Write(strOut.value)
i=i+1
FlushResponse(i)
rs.movenext
loop

end sub regards,
Brian

BG12424 · Dec 10, 2002

I found my own problem with the performance issue described above in my last post. I was writing out the strOut.value within the loop instead of outside. Yeah, it's pretty quick, but I am losing my row color formatting when using this routine.

Here is my updated code block:

sub FORMAT_ADDR2_TO_1_COMPARE(rs,addr)

dim i,prev,curr,strOut
set strOut = new strCat

'build the table header row
strOut.add(makeTH("1_ID&quot

& endline)
strOut.add(makeTH("1_Old Name&quot

& endline)
strOut.add(makeTH("1_New Name&quot

& endline)
strOut.add(makeTH("1_Addr1&quot

& endline)
strOut.add(makeTH("1_Addr2&quot

& endline)
strOut.add(makeTH("1_City&quot

& endline)
strOut.add(makeTH("1_State&quot

& endline)
strOut.add(makeTH("1_Zip&quot

& endline)
strOut.add(makeTH("2_UPDATE&quot

& endline)
strOut.add(makeTH("2_Old Name&quot

& endline)
strOut.add(makeTH("2_New Name&quot

& endline)
strOut.add(makeTH("2_ID&quot

& endline)
strOut.add(makeTH("2_Addr1&quot

& endline)
strOut.add(makeTH("2_Addr2&quot

& endline)
strOut.add(makeTH("2_City&quot

& endline)
strOut.add(makeTH("2_State&quot

& endline)
strOut.add(makeTH("2_Zip&quot

& endline)
strOut.add(makeTR(buildCOLS,0,1) & endline)

i=0
do while not rs.EOF
if i mod 2 = 0 then
prev = rs("2Addr2&quot

else
curr = rs("2Addr2&quot

end if
strOut.add(makeTD(rs("ID1&quot

,"bodyText","CENTER&quot

& endline)
strOut.add(makeTD(rs("OldName1&quot

,"bodyText","LEFT&quot

& endline)
strOut.add(makeTD(rs("NewName2&quot

,"bodyText","CENTER&quot

& endline)
strOut.add(makeTD(rs("1Addr1&quot

,"bodyText","CENTER&quot

& endline)
strOut.add(makeTD(rs("1Addr2&quot

,"bodyText","CENTER&quot

& endline)
strOut.add(makeTD(rs("State1&quot

,"bodyText","CENTER&quot

& endline)
strOut.add(makeTD(rs("City1&quot

,"bodyText","CENTER&quot

& endline)
strOut.add(makeTD(rs("Zip1&quot

,"bodyText","CENTER&quot

& endline)
strOut.add(makeTD("<INPUT TYPE=CHECKBOX NAME=CKBOX VALUE=" & rs("ID2&quot

& ">","bodyText","CENTER&quot

& endline)
strOut.add(makeTD(rs("OldName2&quot

,"bodyText","LEFT&quot

& endline)
strOut.add(makeTD("<INPUT TYPE=TEXT NAME=TXT" & rs("ID2&quot

& " VALUE=" & qt & rs("NewName2&quot

& qt & ">","bodyText","LEFT&quot

& endline)
strOut.add(makeTD(rs("ID2&quot

,"bodyText","CENTER&quot

& endline)
strOut.add(makeTD(rs("2Addr1&quot

,"bodyText","CENTER&quot

& endline)
strOut.add(makeTD(rs("2Addr2&quot

,"bodyText","CENTER&quot

& endline)
strOut.add(makeTD(rs("State2&quot

,"bodyText","CENTER&quot

& endline)
strOut.add(makeTD(rs("City2&quot

,"bodyText","CENTER&quot

& endline)
strOut.add(makeTD(rs("Zip2&quot

,"bodyText","CENTER&quot

& endline)
strOut.add(makeTR(buildCOLS,prev,curr) & endline)
i=i+1
rs.movenext
loop
Response.Write(strOut.value)

end sub
regards,
Brian

mwolf00 · Dec 10, 2002

Looking at your original post, I was thinking more along the lines....

sub FORMAT_ADDR1_NORMALIZATION(rs,proc)

'THE FOLLOWING FIELDS ARE RETRIEVED:
'EPS_ID,
'Vendor_Name,
'New_Vendor_Name,
'New_Vendor_Id,
'New_Federal_Id,
'New_Remittance_Address_1,
'Remittance_City,
'Remittance_State,
'New_Remittance_Zip

dim i,buildROWS,buildCOLS,prev,curr,desc

select case proc
case "BI_Addr1_Norm_X"
desc = "(CHECK " & CHR(34) & "X" & CHR(34) & " ADDR1)"
case "BI_Addr1_Norm_No_X"
desc = "(NO CHECK " & CHR(34) & "X" & CHR(34) & " ADDR1)"
case "BI_Addr1_Norm_All"
desc = "(BOTH CHECK " & CHR(34) & "X" & CHR(34) & " AND UNCHECK ADDR1)"
end select

'build the table header row
buildCOLS = "<TR><td colspan=9 align=middle class=bodyText><b><font size=3>Remittance Address 1 Normalization Table<br><center><font size=2>" & desc & "</font></center></font></b></td></TR>"
buildCOLS = buildCOLS & makeTH("UPDATE&quot

& endline
buildCOLS = buildCOLS & makeTH("Old Name&quot

& endline
buildCOLS = buildCOLS & makeTH("New Name&quot

& endline
buildCOLS = buildCOLS & makeTH("VId&quot

& endline
buildCOLS = buildCOLS & makeTH("FedId&quot

& endline
buildCOLS = buildCOLS & makeTH("Addr1&quot

& endline
buildCOLS = buildCOLS & makeTH("City&quot

& endline
buildCOLS = buildCOLS & makeTH("State&quot

& endline
buildCOLS = buildCOLS & makeTH("Zip&quot

& endline
buildROWS = makeTR(buildCOLS,0,1) & endline
buildCOLS = "" 'clear out header values

i=0
do while not rs.EOF
if i mod 2 = 0 then
prev = rs("NEW_REMITTANCE_ADDRESS_1&quot

else
curr = rs("NEW_REMITTANCE_ADDRESS_1&quot

end if
buildCOLS = buildCOLS & makeTD("<INPUT TYPE=CHECKBOX NAME=CKBOX VALUE=" & rs("NEW_REMITTANCE_ADDRESS_1&quot

& "~" & rs("EPS_ID&quot

& ">","bodyText","CENTER&quot

& endline
buildCOLS = buildCOLS & makeTD(rs("VENDOR_NAME&quot

,"bodyText","LEFT&quot

& endline
buildCOLS = buildCOLS & makeTD("<INPUT TYPE=TEXT NAME=TXT" & rs("EPS_ID&quot

& " VALUE=" & qt & rs("NEW_VENDOR_NAME&quot

& qt & ">","bodyText","LEFT&quot

& endline
buildCOLS = buildCOLS & makeTD(rs("NEW_VENDOR_ID&quot

,"bodyText","CENTER&quot

& endline
buildCOLS = buildCOLS & makeTD(rs("NEW_FEDERAL_ID&quot

,"bodyText","CENTER&quot

& endline
buildCOLS = buildCOLS & makeTD(rs("NEW_REMITTANCE_ADDRESS_1&quot

,"bodyText","CENTER&quot

& endline
buildCOLS = buildCOLS & makeTD(rs("REMITTANCE_CITY&quot

,"bodyText","CENTER&quot

& endline
buildCOLS = buildCOLS & makeTD(rs("REMITTANCE_STATE&quot

,"bodyText","CENTER&quot

& endline
buildCOLS = buildCOLS & makeTD(rs("NEW_REMITTANCE_ZIP&quot

,"bodyText","CENTER&quot

& endline
buildROWS = buildROWS & makeTR(buildCOLS,prev,curr) & endline 'build the row set
buildCOLS = "" 'clear out column values and start over
i=i+1
rs.movenext
loop
strOut.add(makeTABLE(buildROWS,"#FFFFFF",0,2,1)) & endline

end sub -----------------------------------------------------------------
[pc]

Be nice. It's only doing what you tell it to do.
mikewolf@tst-us.com

BG12424 · Dec 10, 2002

I tried what you just posted and it still runs very slow. I think the problem is the concatenation of buildCOLS and buildROWS variables until we build up the entire table content, then writing it to the page. This method is time intensive. I had better luck with your routine if I don't have formatting issues involved. In order for my formatting to occur, I need to build up my column list then write the row with the row color. Without this concatenation of my column values, I don't get my color coding. Unless, I know how to re-dimensionalize the array back to nothing while I am looping through my resultset, I will not use the function (but does work great).

So, how can I re-dimension the array during my loop of each row? See the example below, which is similar to the first posting.

sub FORMAT_ADDR2_NORMALIZATION(rs,proc)

dim i,buildCOLS,prev,curr,desc

select case proc
case "BI_Addr2_Norm_X"
desc = "(DUPLICATES - CHECK " & CHR(34) & "X" & CHR(34) & " ADDR2)"
case "BI_Addr2_Norm_No_X"
desc = "(NO DUPLICATES - NO CHECK " & CHR(34) & "X" & CHR(34) & " ADDR2)"
case "BI_Addr2_Norm_All"
desc = "(ALL RECORDS - BOTH CHECK " & CHR(34) & "X" & CHR(34) & " AND UNCHECK ADDR2)"
end select

'build the table header row
buildCOLS = "<TR><td colspan=9 align=middle class=bodyText><b><font size=3>Remittance Address 2 Normalization Table<br><center><font size=2>" & desc & "</font></center></font></b></td></TR>"
buildCOLS = buildCOLS & makeTH("UPDATE&quot

& endline
buildCOLS = buildCOLS & makeTH("Old Name&quot

& endline
buildCOLS = buildCOLS & makeTH("New Name&quot

& endline
buildCOLS = buildCOLS & makeTH("VId&quot

& endline
buildCOLS = buildCOLS & makeTH("FedId&quot

& endline
buildCOLS = buildCOLS & makeTH("Addr2&quot

& endline
buildCOLS = buildCOLS & makeTH("City&quot

& endline
buildCOLS = buildCOLS & makeTH("State&quot

& endline
buildCOLS = buildCOLS & makeTH("Zip&quot

& endline
Response.Write(makeTR(buildCOLS,0,1) & endline)
buildCOLS = "" 'clear out header values

i=0
do while not rs.EOF
if i mod 2 = 0 then
prev = rs("NEW_REMITTANCE_ADDRESS_2&quot

else
curr = rs("NEW_REMITTANCE_ADDRESS_2&quot

end if
buildCOLS = buildCOLS & makeTD("<INPUT TYPE=CHECKBOX NAME=CKBOX VALUE=" & rs("NEW_REMITTANCE_ADDRESS_2&quot

& "~" & rs("EPS_ID&quot

& ">","bodyText","CENTER&quot

& endline
buildCOLS = buildCOLS & makeTD(rs("VENDOR_NAME&quot

,"bodyText","LEFT&quot

& endline
buildCOLS = buildCOLS & makeTD("<INPUT TYPE=TEXT NAME=TXT" & rs("EPS_ID&quot

& " VALUE=" & qt & rs("NEW_VENDOR_NAME&quot

& qt & ">","bodyText","LEFT&quot

& endline
buildCOLS = buildCOLS & makeTD(rs("NEW_VENDOR_ID&quot

,"bodyText","CENTER&quot

& endline
buildCOLS = buildCOLS & makeTD(rs("NEW_FEDERAL_ID&quot

,"bodyText","CENTER&quot

& endline
buildCOLS = buildCOLS & makeTD(rs("NEW_REMITTANCE_ADDRESS_2&quot

,"bodyText","CENTER&quot

& endline
buildCOLS = buildCOLS & makeTD(rs("REMITTANCE_CITY&quot

,"bodyText","CENTER&quot

& endline
buildCOLS = buildCOLS & makeTD(rs("REMITTANCE_STATE&quot

,"bodyText","CENTER&quot

& endline
buildCOLS = buildCOLS & makeTD(rs("NEW_REMITTANCE_ZIP&quot

,"bodyText","CENTER&quot

& endline
Response.Write(makeTR(buildCOLS,prev,curr) & endline)
buildCOLS = "" 'clear out column values and start over
i=i+1
FlushResponse(i)
rs.movenext
loop

end sub regards,
Brian

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Stored procedure fast on backend, but slow to display on web page. 2

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Similar threads

Log in

Part and Inventory Search

Sponsor