[Resolvido] Ler XLS

Olá pessoal, estou tentando ler um xls para salvar no banco de dados, porém o mesmo não é lido é da timeout no asp.

alguém poderia me ajudar?

Dim Conn, RS
Dim Campos, contador

'// CONECTAMOS COM O BANCO DE DADOS
Set Conn = CreateObject("ADODB.Connection")
With Conn
.Provider = "Microsoft.Jet.OLEDB.4.0"

'// Nesta linha perca que a conexão indica que utilizaremos um arquivo do Excel
.ConnectionString = "Data Source="& Server.MapPath("scharbel\v2\painel\upload\excel\"&NomeArquivo) &";Extended Properties=Excel 8.0;"
.Open
End With

'// AO CRIAR O RECORDSET, O SELECT INDICA O NOME DA PLANILHA DO ARQUIVO
Set RS = Conn.Execute("SELECT * FROM [Plan1$] ")

'// CONTAMOS QUANTAS LINHAS EXISTEM NO ARQUIVO
Campos = RS.Fields.Count

'// INICIAMOS O LOOP
response.write "<table border=""1"">"
Do While RS.EOF = False
response.write "<tr>"
'// Aqui informamos os nomes das colunas para então lista os resultados

response.write "<td><font size=1 face=verdana><b>" & RS("c1") & "</td>"
response.write "<td><font size=1 face=verdana><b>" & RS("c2") & "</td>"
response.write "<td><font size=1 face=verdana><b>" & RS("c3") & "</td>"
response.write "<td><font size=1 face=verdana><b>" & RS("c4") & "</td>"
response.write "<td><font size=1 face=verdana><b>" & RS("c5") & "</td>"
response.write "<td><font size=1 face=verdana><b>" & RS("c6") & "</td>"
response.write "</tr>"

vc1 = RS("c1")
vc2 = RS("c2")
vc3 = RS("c3")
vc4 = RS("c4")
vc5 = RS("c5")
vc6 = RS("c6")

'cmd.CommandText="insert into tabela (c1,c2,c3,c4,c5,c6) values (?,?,?,?,?,?)"
'Cmd.Execute quant,Array(vc1,vc2,vc3,vc4,vc5,vc6)

RS.MoveNext
Loop
response.write "</table>"

'// EXIBIMOS A QUANTIDADE DE REGISTROS ENCONTRADOS
response.write campos

'// FECHAMOS E DESCONECTAMOS O RECORDSET E A CONEXÃO UTILIZADA
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing