I am trying to insert excel data into an access database. The code below works perfectly for me

<%
Set cn = CreateObject("ADODB.Connection")

'scn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\docs\dbto.mdb"

MM_NDC2016_STRING = " Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("data/dbase.mdb")

cn.Open MM_NDC2016_STRING

sSQL = "INSERT INTO ElectionResults SELECT * FROM "
sSQL = sSQL & "[Excel 8.0;HDR=YES;IMEX=2;DATABASE=C:\inetpub\wwwroot\ele ction\Data\Dataupload.xls].[Sheet1$]"

cn.Execute sSQL, recs

MsgBox recs
%>

However, when i upload it online it does not work. I noticed is the connection from the Excel. I edited it to this way

<%
Set cn = Server.CreateObject("ADODB.Connection")

'scn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\docs\dbto.mdb"

MM_NDC2016_STRING = " Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("data/dbase.mdb")

cn.Open MM_NDC2016_STRING


sSQL = "INSERT INTO ElectionResults SELECT * FROM "
sSQL = sSQL & " Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("data/Dataupload.xls").[Sheet1$]


cn.Execute sSQL, recs

MsgBox recs
%>

and i'm getting this error

Microsoft VBScript runtime error '800a01a8'

Object required: '[string: "C:\inetpub\wwwroot\e"]'

/election/asp_upload.asp, line 21..

Can anyone help me out...

Thank you