ASP Page not opening a new Excel Spreadsheet each time.


L

lds

I have inhertited and old asp application that I have to make a few
changes to and I am having difficulties with a page that retrives data
from the database, and places it into an Excel spreadsheet. It seemed
to be working fine in the beginning, but not anymore. The only thing
that I know of that could be different is that I installed J2SE Runtime
Environment 5.0 Update 6. I have since uninstalled it just to see if
it makes any difference, which it did not.

How the page works, is that the user selects different fields to be
displayed as well as the criteria for the query. A select statement is
created and executed against the database. The page then loops though
the records returned creating a table. The Response.ContentType =
"application/vnd.ms-excel"

Sometimes it works the first time, but then if you go back, change the
selection criteria and/or fields to be displayed and submit the form
again, you get the same results as the last query. I have checked to
make sure that the query itself changes and it does.

Here is a sample of the code being used:

Set rs0 = Server.CreateObject("ADODB.Recordset")
rs0.open strsql, cn
If not rs0.BOF and not rs0.EOF then
Response.Clear
Response.Buffer = True
Response.ContentType = "application/vnd.ms-excel"
rs0.MoveFirst%>
<HTML>
<HEAD>
<META HTTP-EQUIV="no-cache">
</HEAD>
<BODY>
<p>&nbsp;
<table border=0 cols=<%=rs0.Fields.Count%> ID="Table1">
<tr>
<%for each oField in rs0.Fields%>
<th><%=oField.name%></th>
<%next%>
</tr>
<%do while not rs0.EOF %>
<tr>
<%for each oField in rs0.Fields%>
<td align=left>
<%if IsNull(oField) then
Response.Write "&nbsp;"
else
Response.Write (oField.Value)
end if%>
</td>
<%next
rs0.MoveNext
%>
</tr>
<%loop%>
</table>
<%end if%>
</BODY>
</HTML>
 
Ad

Advertisements

L

lds

I just thought that I would add that this has started working for me
again. The only thing I did was delete my recent documents and files
in my temp directory. I guess I just need to figure out why there was
a copy there to begin with...
 
Ad

Advertisements

L

lds

I just thought that I would add that this has started working for me
again. The only thing I did was delete my recent documents and files
in my temp directory. I guess I just need to figure out why there was
a copy there to begin with...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top