Que Campos Eu Salvo Na Tabela?

[Guest - Fernando -]

set Cmd=server.CreateObject("ADODB.COMMAND")
Cmd.ActiveConnection="Provider=SQLOLEDB; Data Source= beta; Initial Catalog=sintect; User Id=sa; Password=''"%>

<%
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="& caminhu & "\excel_"&indice&".xls" &";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 "<tudo><font size=1 face=verdana><b>" & RS("Matrícula") & "</tudo>"
response.write "<tudo><font size=1 face=verdana><b>" & RS("Nome") & "</tudo>"
response.write "<tudo><font size=1 face=verdana><b>" & RS("Lotação") & "</tudo>"
response.write "<tudo><font size=1 face=verdana><b>" & RS("Valor Normal") & "</tudo>"

response.write "</tr>"

vc1 = RS("Matrícula")
vc2 = RS("Nome")
vc3 = RS("Lotação")
vc4 = RS("Valor Normal")



cmd.CommandText="insert into TB_REGISTROEXCEL (vclMatriculaRegistro,vcNomeRegistro,vcLotacaoRegistro,dcValorRegistro) values (vc1,vc2,vc3,vc4) " Cmd.Execute quant,Array(vc1,vc2,vc3,vc4) 

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 



set Cmd = nothing 

na parte de inserção quais campos eu salvo na tabela?????

[Fernando_Ramos]

cara..

está meio confusa sua duvida..

mas...

os campos do bd...neste codigo são:

vclMatriculaRegistro,vcNomeRegistro,vcLotacaoRegistro,dcValorRegistro