ASP Y EXCEL

hola chicos mirentoy trantando de adjuntar un arcghivo excel mediante una
pagina .asp y no se por que no me sale esta codigo , me sale errores q no
puedo examinar , espero que me puedan ayudar les agredeceria



<%

Path=Server.MapPath("libro1.xls")

Set ConexionBD = Server.CreateObject("ADODB.Connection")

ConexionBD.Open "DRIVER={Microsoft Excel DRIVER (*.xls)};DBQ=" & Path

Set rsVac = Server.CreateObject("ADODB.Recordset")

rsVac.Open "Select * From A1:C3 ", ConexionBD,3,3

rsVac.MoveFirst

Response.Write "<table>"

Response.Write "<th>" & rsVac.Fields.Item(0).Name & "</th>" & vbCrLf

Response.Write "<th>" & rsVac.Fields.Item(1).Name & "</th>" & vbCrLf

Response.Write "<th>" & rsVac.Fields.Item(2).Name & "</th>" & vbCrLf

Set ConexionDBSql = Server.CreateObject("ADODB.Connection")

ConexionDBSql.Open "DRIVER={SQL
Server};Server=PCINF12;SOURCE=lista;UID=sa;PWD="

Set sql = Server.CreateObject("ADODB.command")

sql.ActiveConnection = ConexionDBSql

Do While Not rsVac.EOF

Response.Write "<tr>" & vbCrLf

'Response.Write "<td>" & rsVac(0) & "</td>"

'Response.Write "<td>" & rsVac(1) & "</td>"

'Response.Write "<td>" & rsVac(2) & "</td>"


sql.CommandText = "INSERT INTO
ConexionDBSql.relacion(nombre,direccion,correo) VALUES (" & rsVac(0) & ","
&
rsVac(1) & "," & rsVac(2) & ")"

sql.execute

Response.Write "</tr>" & vbCrLf

rsVac.MoveNext

Loop

Response.Write "</table>"

ConexionBD.Close

ConexionDBSql.Close

Set ConexionBD = Nothing

Set ConexionDBSql = Nothing

%>