Can output as HTML but not as XLS

S

Sonnich

Hi all!

I haven't being doing that much in ASP, but I have to create this:
It has to read out data from some DB to excel.

The following (corrected) code works if just it outputs as html, once
the Response.ContentType is excel. then it offers to open/save the
file, and stops - file not found - what do I do wrong?

BR
Sonnich

<%
'Change HTML header to specify Excel's MIME content type.
'Response.Buffer = TRUE
' Response.ContentType = "application/vnd.ms-excel"
%>
<HTML>
<HEAD>
<TITLE>Excel</TITLE>
</HEAD>
<BODY bgcolor="#FFFFFF">
<form name="ExcelForm">
<TABLE>
<TR>
<TD colspan=3>Created: <%=cstr(now)%></TD>
</TR>
</table>

<TABLE border="1">
<tr><td><b>Code</b></td><td><b>Description 1</b></td><td><b>Description
2</b></td><td><b>Qty</b></td><td><b>Price</b></td><td><b>Total</b></td></tr>
<%

dim rsTree
set rsTree = server.createobject("adodb.recordset")
rsTree.activeconnection = DSN_Oracle

dim txt
txt = "select blah!"
rsTree.Open(txt)

do while not rsTree.eof
taso=""
for J=1 to cint(field_value(2,rsTree))
taso = taso & "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
next

'*********************
response.write("<tr><td>" + taso + field_value(0,rsTree) +
"</td><td>" + _
field_value(1,rsTree) + "</td><td>" + field_value(6,rsTree) +
"</td><td>" + field_value(5,rsTree) + "</td><td>a</td><td>b</td></tr>")
response.write(chr(10))

rsTree.movenext
loop
rsTree.close
%>

</TABLE>
</form>
</BODY>
</HTML>
 

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

Members online

No members online now.

Forum statistics

Threads
473,744
Messages
2,569,482
Members
44,900
Latest member
Nell636132

Latest Threads

Top