Problem displaying Excel data

[emblewembl]

Hi all, I am working on a site that is mainly built from ASP pages which read data from an Excel file. All has been going smoothly until the last page and we get a strange error. There are 3 fields which will not display at all although the page loads ok.


Connectiong to spreadsheet like so:

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

'The Excel File Name
XLFile = "C:\Inetpub\[URL unfurl="true"]wwwroot\scgu\"&[/URL] strFileToLoad &""
		
If objFSO.FileExists(XLFile) Then

  FileFound = true
			
  ' create and open the objConnection to the database 
  Set objConn = Server.CreateObject("ADODB.Connection") 
  objConn.Open "DRIVER=Microsoft Excel Driver (*.xls);" _ 
			& "DBQ=" &   XLFile 

  Set objRs = objConn.Execute("Select * From  [wwwStart$]")     

Else
  FileFound = false
End If

Set objFSO=nothing

DIsplaying data like so:

If FileFound = true Then

  Do While not objRs.EOF

    Response.Write(&quot;<tr>&quot;) & vbCrLf
    Response.Write(&quot;<td bgcolor=&quot;&quot;#cccccc&quot;&quot; width=&quot;&quot;10%&quot;&quot; valign=&quot;&quot;top&quot;&quot; class=&quot;&quot;&quot;& strClass &&quot;&quot;&quot;><b>&quot; & strMatchNum &&quot;</b></td>&quot;)
    Response.Write(&quot;<td width=&quot;&quot;20%&quot;&quot; valign=&quot;&quot;top&quot;&quot; class=&quot;&quot;&quot;& strClass &&quot;&quot;&quot;>&quot; & strStartTime & &quot;</td>&quot;)
    Response.Write(&quot;<td width=&quot;&quot;20%&quot;&quot; valign=&quot;&quot;top&quot;&quot; class=&quot;&quot;&quot;& strClass &&quot;&quot;&quot;>&quot; & strEndTime & &quot;</td>&quot;)
    Response.Write(&quot;<td width=&quot;&quot;20%&quot;&quot; valign=&quot;&quot;top&quot;&quot; class=&quot;&quot;&quot;& strClass &&quot;&quot;&quot;>&quot; & objRs(&quot;Heading4&quot;) & &quot;</td>&quot;)
    Response.Write(&quot;<td width=&quot;&quot;20%&quot;&quot; valign=&quot;&quot;top&quot;&quot; class=&quot;&quot;&quot;& strClass &&quot;&quot;&quot;>&quot; & objRs(&quot;Heading5&quot;) & &quot;</td>&quot;)
    Response.Write(&quot;<td width=&quot;&quot;10%&quot;&quot; valign=&quot;&quot;top&quot;&quot; class=&quot;&quot;&quot;& strClass &&quot;&quot;&quot;>&quot; & objRs(&quot;Heading6&quot;) & &quot;</td>&quot;)
    Response.Write(&quot;</tr>&quot;) & vbCrLf

    objRs.Movenext
    Loop
  End If

There are four rows, and the cells that don't display (or the system sees as empty) are first row, cells 1, 2 and 5.

Help!!! i love chocolate

 

[TomasCrossroads]

The fact it displays some data means that your connection to the excel source is fine.
If I understand correctly, cells 1,2 and 5 contain strMatchNum, strStartTime and objRS("Heading5&quot... right?

From the code you supplied, we can't see what could be going wrong.

Where and how do you define the variables strMatchNum and strStartTime?
Does 'Heading5' contain any data in the excel sheet itself?

greetings

 

[emblewembl]

Hi Tomas,

Ok after the 'do while not'line and before the 'Response.Write(&quot;<tr....', I do this :

strMatchNum = objRs("Heading1")

 If strMatchNum = "0" Then
          strMatchNum = ""
  End If

  strStartTime = objRs("Heading2")

  If strStartTime = "12:00:00 AM" Then
    strStartTime = ""
  End If

  strEndTime = objRs("Heading3")

  If strEndTime = "12:00:00 AM" Then
    strEndTime = ""
  End If

  If i mod 2 = 0 Then
    strClass = "redtextsm"
  Else
    strClass = "blacktextsm"
  End If

I have put the page online so you can see the fields that aren't showing:

http://www.surreygolf.org/ShowStartResults.asp?strFileToLoad=startandresults\championshipQual.xls

Hope that makes it clearer! i love chocolate

 

[TomasCrossroads]

Ok it looks to me the missing fields from your excel sheet are either blank in the excel sheet or match the condition (for example when strMatchNum is &quot;0&quot; then it should display nothing)
can you send the excel sheet?

greetings
Tomas

 

[emblewembl]

Hi Tomas, the fields aren't blank - I built the page myself and yes I can send the file over to you but I'll need your email address!! Can you post it and I'll send it over.

Thanks! i love chocolate