January 23rd, 2004, 04:05 PM
|
|
Contributing User
|
|
Join Date: Dec 2003
Location: Florida
Posts: 30
Time spent in forums: 2 m 49 sec
Reputation Power: 6
|
|
|
Formatting Excel Cells from ASP
I have a report which gets generated from ASP and sent to the user in Excel format. Is there a way to format the cells at run-time to not allow Excel to automatically format numbers? In case you want to see my code, here it is:
Code:
<%@ language="vbscript" %>
<%
option explicit
response.expires=0
response.cachecontrol="no-cache"
%>
<!-- #include file="../../../../log_hits.asp" -->
<!-- #include file="../../../../adovbs.inc" -->
<%
'on error resume next
dim conn,strconn
strconn="dsn=livehrdata;database=hr_data;password=REMOVED;"
set conn=server.CreateObject("adodb.connection")
conn.Open strconn
dim rs
set rs=server.CreateObject("adodb.recordset")
rs.Open "2004_employee_recognition_survey",conn,adOpenKeyset,adLockOptimistic,adcmdtable
Response.ContentType = "application/vnd.ms-excel"
'Response.ContentType = "text/html"
%>
<html>
<body>
<table>
<tr>
<td style="border: 1px solid #c0c0c0;"><b>Date</b></td>
<td style="border: 1px solid #c0c0c0;"><b>Time</b></td>
<td style="border: 1px solid #c0c0c0;"><b>q1</b></td>
<td style="border: 1px solid #c0c0c0;"><b>q1comments</b></td>
<td style="border: 1px solid #c0c0c0;"><b>q2</b></td>
<td style="border: 1px solid #c0c0c0;"><b>q3</b></td>
<td style="border: 1px solid #c0c0c0;"><b>q4</b></td>
<td style="border: 1px solid #c0c0c0;"><b>q5</b></td>
<td style="border: 1px solid #c0c0c0;"><b>q5comments</b></td>
<td style="border: 1px solid #c0c0c0;"><b>q6</b></td>
<td style="border: 1px solid #c0c0c0;"><b>q6comments</b></td>
<td style="border: 1px solid #c0c0c0;"><b>q7</b></td>
<td style="border: 1px solid #c0c0c0;"><b>q8</b></td>
<td style="border: 1px solid #c0c0c0;"><b>q8comments</b></td>
<td style="border: 1px solid #c0c0c0;"><b>q9</b></td>
<td style="border: 1px solid #c0c0c0;"><b>q10</b></td>
<td style="border: 1px solid #c0c0c0;"><b>q10comments</b></td>
<td style="border: 1px solid #c0c0c0;"><b>q11</b></td>
<td style="border: 1px solid #c0c0c0;"><b>q11comments</b></td>
<td style="border: 1px solid #c0c0c0;"><b>q12</b></td>
<td style="border: 1px solid #c0c0c0;"><b>q12comments</b></td>
<td style="border: 1px solid #c0c0c0;"><b>q13</b></td>
<td style="border: 1px solid #c0c0c0;"><b>q13comments</b></td>
<td style="border: 1px solid #c0c0c0;"><b>q14</b></td>
<td style="border: 1px solid #c0c0c0;"><b>q15</b></td>
<td style="border: 1px solid #c0c0c0;"><b>q15comments</b></td>
<td style="border: 1px solid #c0c0c0;"><b>q16</b></td>
<td style="border: 1px solid #c0c0c0;"><b>q17</b></td>
<td style="border: 1px solid #c0c0c0;"><b>q18</b></td>
<td style="border: 1px solid #c0c0c0;"><b>q19</b></td>
<td style="border: 1px solid #c0c0c0;"><b>q19comments</b></td>
<td style="border: 1px solid #c0c0c0;"><b>q20comments</b></td>
<td style="border: 1px solid #c0c0c0;"><b>location</b></td>
<td style="border: 1px solid #c0c0c0;"><b>years service</b></td>
<td style="border: 1px solid #c0c0c0;"><b>position</b></td>
<td style="border: 1px solid #c0c0c0;"><b>name</b></td>
</tr>
<%
dim field,intNumber
intNumber=cint(0)
while not rs.EOF
Response.Write "<tr>"
for intNumber=0 to rs.Fields.Count -1
if intNumber=0 then intNumber=intNumber+1
if intNumber=1 then intNumber=intNumber+1
if intNumber=2 then intNumber=intNumber+1
if intNumber=3 then intNumber=intNumber+1
if intNumber=40 then exit for
Response.Write "<td style=""border: 1px solid #c0c0c0; vertical-align: top;"">"
if isnull(rs(intnumber).Value) = false then Response.Write cstr(rs(intNumber).Value) else Response.Write " "
Response.Write "</td>"
next
Response.Write "</tr>"
rs.MoveNext
wend
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>
</body>
</html>
<!-- #include file="../../../../handle_error.asp" -->
__________________
____________________
Will
|
Dev Shed Forums Sponsor:
Del.icio.us
Digg
Google
Spurl
Blink
Furl
Simpy
Y! MyWeb
Linear Mode
