acooper

Caro, tenho esse script que cria uma tabela no Acess está funcionando, só adaptar nas suas necessidades.

Set Conexao1 = Server.CreateObject("ADODB.Connection")
Set Conexao2 = Server.CreateObject("ADODB.Connection")

Conexao1.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("excel.mdb")

Set cria = Conexao1.execute("Create table Import_Excel (Nome varchar(255), Origem varchar(255), NrDiscado varchar(255), DialPlan varchar(255), ChannelNo varchar(255), Channel varchar(255), Comando varchar(255), H varchar(255), Datachamada varchar(255), DataAtend varchar(255), Datatermino varchar(255), L varchar(255), M varchar(255), N varchar(255), O varchar(255), P varchar(255), Q varchar(255))")
Set cria = Nothing

Conexao2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("29012009.xls") & ";Extended Properties=""Excel 8.0;HDR=Yes;"";"

Set excel = Conexao2.Execute("SELECT * FROM [29012009$]")
Do Until excel.EOF

Set insere = Conexao1.execute("insert into Import_Excel (Nome, Origem, NrDiscado, DialPlan, ChannelNo, Channel, Comando, H, Datachamada, DataAtend, Datatermino, L, M, N, O, P, Q) values ('"&excel("Nome")&"','"&excel("Origem")&"','"&excel("Nr Discado")&"','"&excel("Dial Plan")&"','"&excel("Channel + No")&"','"&excel("Channel")&"','"&excel("Comando")&"','"&excel("H")&"','"&excel("Data chamada")&"','"&excel("Data Atend.")&"','"&excel("Data término")&"','"&excel("L")&"','"&excel("M")&"','"&excel("N")&"','"&excel("O")&"','"&excel("P")&"','"&excel("Q")&"')")
Set insere = nothing


excel.MoveNext
Loop

Set excel = nothing

Conexao2.Close
Set Conexao2 = nothing

Conexao1.Close
Set Conexao1 = nothing

Caro, já tinha pesquisado nesse site, mas ainda não consegui chegar na solução pq não estou usando ADODB.connection

Caro, vê se ajuda.

if ag.ATIVO = true then
v = "checked"
end if
Response.Write("<input type='checkbox' name='checkbox' value='checkbox' "&v&">")

Solução:
http://forum.wmonlin...o...9&hl=Oracle

Solução:
http://forum.wmonlin...o...9&hl=Oracle