Overførsel af access tabel til SQL tabel via en webside

Er der nogen der kan anbefale noget kode til at Overførsel af access tabel til SQL tabel via en webside.
Jeg har lavet følgende men det er meget ustabilt.
Evt. kan i kigge koden igennem og se om der er fejl.

<!--#includes file=\"Header.asp\"-->
<!--#includes file=\"../connect.asp\"-->
<%
If session(\"user\") = \"\" Then
    Response.redirect \"default.asp\"
End If

If Request(\"mode\") = \"newinput\" Then

    set Conn = GetDataConnection
   
    \'Connect til den uploadede access database
    DBConnLogin = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"uploads/access/ulykkestal.mdb\")
    set connect = server.createobject(\"ADODB.connection\")
    Connect.Open DBConnLogin
   
    \'slet alt i tblUlykkestal tabellen (på SQL-Server)
    Set DelAll = Conn.Execute(\"DELETE FROM tblUlykkestal\")
   
    \'Hent info fra tabellen i access database
    Query = \"SELECT * FROM pskuh2\"
   
    Set RS = Server.CreateObject(\"ADODB.RecordSet\")
    RS.open Query, Connect
   
    \'Indsæt ny info fra access til Sql
    Do until RS.EOF
    SQL = \"INSERT INTO tblUlykkestal (Year,TransportType,AgeGroup,Killed,Hurt,Accident) VALUES(\"
    SQL = SQL & RS(\"årstal\")
    SQL = SQL & \",\" & RS(\"trafikanttype\")
    SQL = SQL & \",\" & RS(\"aldersgruppe\")
    SQL = SQL & \",\" & RS(\"dræbte\")
    SQL = SQL & \",\" & RS(\"tilskadekomne\")
    SQL = SQL & \",\" & RS(\"uheld\")
    SQL = SQL & \")\"
    \'Response.Write SQL
    \'Response.End
    Set SQLAddRS = Conn.Execute(SQL)
    RS.MoveNext
    Loop
End IF

DoHeader(\"Få svar på\")
%>
<script>
  function imagewin(indhold,NameofWindow)
{
  msgWindow=window.open(indhold,NameofWindow,\"toolbar=no,width=600,height=340,directories=no,status=no,scrollbars=auto,resizable=yes,menubar=no\");
      msgWindow.focus();
}

</SCRIPT>
<table cellspacing=\"0\" cellpadding=\"0\" border=\"0\" width=\"100%\" height=\"100%\">
<tr>
    <td width=\"241\" height=\"100%\" valign=\"top\" bgcolor=\"#d7d7d7\"><!--#includes file=\"menu.asp\"--></td>
    <td width=\"10\">&nbsp;</td>
    <td height=\"100%\" valign=\"top\">
    <br>
    <table cellpadding=\"2\" cellspacing=\"0\" border=\"0\">
    <form name=\"omraadet\" method=\"post\">
    <input type=\"hidden\" name=\"mode\" value=\"newinput\">
    <tr><td colspan=\"3\" class=\"bodyoverskrift\">Ulykkestal</td></tr>
    <tr><td>&nbsp;</td></tr>
    <tr><td>&nbsp;</td></tr>
    <tr><td valign=\"top\"><input type=\"Button\" value=\"Upload access databsen til webserveren\" class=\"forms\"  onClick=\"imagewin(\'form.asp\',\'\')\" ID=Button1><br>
    Husk at Access databasen skal have filnavnet  [<b>ulykkestal.mdb</b>]
    </td></tr>   
    <tr><td>&nbsp;</td></tr>
    <tr><td>&nbsp;</td></tr>
    <tr><td><input type=\"submit\" name=\"submit\"  value=\"Indsæt tallene fra access databasen i SQL-serveren\" class=\"forms\"></td></tr>
   
    </form>
    </table>   
    </td>
    </tr>
    </table>

<%
DoFooter(\"Home\")
%>