I have tried to extracting data from excel file but I am getting the below error
Microsoft VBScript runtime error '800a0046' Permission denied: 'Createobject' /myaspclassic/rdexl.asp, line 3
My code is
<%'initialize variables
Dim Objexcel, ObjWorkbook, ObjDriverSheet, Columncount, Rowcount
Set Objexcel = Createobject("Excel.Application")
Set ObjWorkbook = ObjExcel.WorkBooks.Open("D:\MyExcelDB2.xls")
Set ObjDriverSheet = ObjWorkbook.Worksheets("Sheet1")
Columncount = ObjDriverSheet.Usedrange.Columns.Count
Rowcount = ObjDriverSheet.Usedrange.Rows.Count
For I = 1 To Colunmcount
Columnname = ObjDriversheet.Cells(I,1)
If Columnname = Knowncolumnname Then
For J = 1 To Rowcount
Fieldvalue = Objdriversheet.Cells(J,I)
Next
End If
Next
%>