1
Hi,
I have a problem with reading from excel and displaying in an asp page. The numbers disapears.
My script:
<%
Const adOpenStatic = 3
Const adLockPessimistic = 2
Dim cnnExcel
Dim rstExcel
Dim I
Dim iCols
' This is all standard ADO except for the connection string.
' You can also use a DSN instead, but so it'll run out of the
' box on your machine I'm using the string instead.
Set cnnExcel = Server.CreateObject("ADODB.Connection")
cnnExcel.Open "DBQ=" & Server.MapPath("xl_data.xls") & ";IMEX=1;MAXSCANROWS=16;DRIVER={Microsoft Excel Driver (*.xls)};"
' Same as any other data source.
' FYI: TestData is my named range in the Excel file
Set rstExcel = Server.CreateObject("ADODB.Recordset")
rstExcel.Open "SELECT * FROM TestData;", cnnExcel, adOpenStatic, adLockPessimistic
' Get a count of the fields and subtract one since we start
' counting from 0.
iCols = rstExcel.Fields.Count
%>
<table border="1">
<thead>
<%
' Show the names that are contained in the first row
' of the named range. Make sure you include them in
' your range when you create it.
For I = 0 To iCols - 1
Response.Write "<th>"
Response.Write rstExcel.Fields.Item(I).Name
Response.Write "</th>" & vbCrLf
Next 'I
%>
</thead>
<%
rstExcel.MoveFirst
' Loop through the data rows showing data in an HTML table.
Do While Not rstExcel.EOF
Response.Write "<tr>" & vbCrLf
For I = 0 To iCols - 1
Response.Write "<td>"
Response.Write rstExcel.Fields.Item(I).Value
Response.Write "</td>" & vbCrLf
Next 'I
Response.Write "</tr>" & vbCrLf
rstExcel.MoveNext
Loop
%>
</table>
<%
rstExcel.Close
Set rstExcel = Nothing
cnnExcel.Close
Set cnnExcel = Nothing
%>
And the spreadsheed have the following
Item Item no Price
Philips32W ksjdf567 5000
Sony32XO 234jl 7000
Panasonic44 jkj323 12000
Dantax25 jhkh23 2200
Philips40W je983 32000
Philips25B jkw83k 2100
Philips25BX kdfj3 2300
Prosonic21 kdk4 1200
Sony32XO lksfj77 567
Sony44IN 88jdj 39000
Sony28W lkkdf84 56
Sony21XL 23423 3300
Prosonic25 234234 2400
Prosonic32 sdf4334 4400
Dantax32 32323 4400
The problem is that the numbers in the second column disapears if the cell is a number. How can I get asp to read and list all the data.
