Why when I use the spreadsheet class, do I get blank spreadsheets every time? I followed the example as it was online, my only idea is that there must be an error somewhere in the class. Please help.<BR><BR>&#060;%<BR> Option Explicit<BR><BR> Class ExcelGen<BR><BR> Private objSpreadsheet<BR> Private iColOffset<BR> Private iRowOffset<BR><BR> Sub Class_Initialize()<BR> Set objSpreadsheet = Server.CreateObject("OWC.Spreadsheet")<BR><BR> iRowOffset = 2<BR> iColOffset = 2<BR> End Sub<BR><BR> Sub Class_Terminate()<BR> Set objSpreadsheet = Nothing &#039;Clean up<BR> End Sub<BR><BR> Public Property Let ColumnOffset(iColOff)<BR> If iColOff &#062; 0 then<BR> iColOffset = iColOff<BR> Else<BR> iColOffset = 2<BR> End If<BR> End Property<BR><BR> Public Property Let RowOffset(iRowOff)<BR> If iRowOff &#062; 0 then<BR> iRowOffset = iRowOff<BR> Else<BR> iRowOffset = 2<BR> End If<BR> End Property<BR><BR><BR> Sub GenerateWorksheet(objRS)<BR><BR> &#039;Populates the Excel worksheet based on a Recordset&#039;s contents<BR> &#039;Start by displaying the titles<BR> If objRS.EOF then Exit Sub<BR><BR> Dim objField, iCol, iRow<BR> iCol = iColOffset<BR> iRow = iRowOffset<BR><BR> For Each objField in objRS.Fields<BR>&#039;49 objSpreadsheet.Cells(iRow, iCol).Value = objField.Name<BR> iCol = iCol + 1<BR> Next &#039;objField<BR><BR> &#039;Display all of the data<BR> Do While Not objRS.EOF<BR> iRow = iRow + 1<BR> iCol = iColOffset<BR><BR> For Each objField in objRS.Fields<BR> &#039;If IsNull(objField.Value) then<BR> &#039;objSpreadsheet.Cells(iRow, iCol).Value = ""<BR> &#039;Else<BR>&#039;62 objSpreadsheet.Cells(iRow, iCol).Value = objField.Value<BR> &#039;End If<BR><BR> iCol = iCol + 1<BR> Next &#039;objField<BR><BR> objRS.MoveNext <BR> Loop<BR><BR> End Sub <BR><BR><BR> Function SaveWorksheet(strFileName)<BR> &#039;Save the worksheet to a specified filename<BR> On Error Resume Next<BR> Call objSpreadsheet.ActiveSheet.Export(strFileName, 0)<BR><BR> SaveWorksheet = (Err.Number = 0)<BR> End Function<BR><BR> End Class<BR>%&#062;<BR><BR><BR>&#039;Declare spreadsheet object<BR>Dim objExcel<BR>Set objExcel = New ExcelGen<BR><BR>objExcel.RowOffset = 4<BR><BR>objExcel.ColumnOffset = 1<BR><BR>&#039;Create an instance of the Spreadsheet component from OWC<BR><BR>objExcel.GenerateWorksheet(rsNew)<BR><B R>If objExcel.SaveWorksheet(Server.MapPath("newsheet.xl s")) then<BR> Response.Write "Worksheet saved. " & _<BR> "&#060;a href=""newsheet.xls""&#062;Download Excel 2000 Worksheet&#060;/a&#062;"<BR>Else<BR> Response.Write "Error in saving worksheet!"<BR>End If<BR><BR>Set objExcel = Nothing<BR><BR>rsNew.Close<BR>Set rsNew=nothing<BR>