Importer fra Excel til Access db via ASP

Evt. sådan her: http://www.html.dk/artikler/00039/

Prøv det her:

<%
Option Explicit

'*** Dette er indholdet i asp-filen

Dim strExcelArk
Dim mdbConn,mdbSQL,xlsConn,xlsRS,xlsSQL
   
    strExcelArk = "excelark.xls"
    strExcelArk = left(strExcelArk, len(strExcelArk)-4)
       
      ' *** Opret forbindelse til Excel arket der skal indlæses i Databasen.
      Set xlsConn = CreateObject("ADODB.Connection")
      xlsConn.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & Server.MapPath(strExcelArk) & ".xls"
     
      ' *** Opret forbindelse til Databasen der skal modtage data fra Excel arket.
        Set mdbConn = Server.CreateObject("ADODB.Connection")
        mdbConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db.mdb")
                       
          ' *** Hent data fra excel-ark, til indskrivning i DB
          xlsSQL="[A:Z]"
            set xlsRS = xlsConn.execute(xlsSQL)
       
          do while not xlsRS.EOF
                                                   
                        ' *** Skriv data til DB
                        mdbSQL = "INSERT INTO tabel1(Fornavn, Efternavn, Adresse, Post_Nr, Bynavn) VALUES('" & xlsRS(0) & "', '" & xlsRS(1) & "', '" & xlsRS(2) & "', '" & xlsRS(3) & "', '" & xlsRS(4) & "')"
                        mdbConn.Execute(mdbSQL)
                                   
            xlsRS.movenext
                               
            loop
   
        mdbConn.Close
        Set mdbConn = Nothing
        xlsRS.Close
        Set xlsRS = Nothing
        xlsConn.Close
        Set xlsConn = Nothing       
%>

Excel-filen(excelark.xls) ligger i samme mappe som asp-filen.
Access-filen(db.mdb) skal ligge i samme mappe som asp-filen.
Access indeholder en tabel der hedder tabel1. Som igen indeholder følgende feltnavne(alle sammen er tekstfelter):
Fornavn, Efternavn, Adresse, Post_Nr, Bynavn

/Kurt

Hvad siger du til det?

/Kurt