Inserção de dados 100 registros a cada 5 segundos

[ricardo coelho designer 0]

Pessoal, bom dia estou aqui para pedir uma luz para vcs...

 

Bom preciso importar uma base de dados do excel para access, até aqui sem problemas, só que preciso inserir isso de 100 em 100 até cadastrar todos, ou seja preciso paginar a inserção alguém teria um tutorial ou dica de como posso fazer isso?

[hargon 64]

Qual a sua dúvida mais especificamente. Consegue paginar? Pq se consegue, é só colocar um response.redirect após as 100 inserções e informar a página correta.

[ricardo coelho designer 0]

Qual a sua dúvida mais especificamente. Consegue paginar? Pq se consegue, é só colocar um response.redirect após as 100 inserções e informar a página correta.

 

Hagon esse é o código que estou usando para cadastrar poderia me ensinar como executo essa paginação?

 

<!--#include file = "conexaolog_b.asp"-->
<%'gera codigo para cada usuario
Function GerarSenha(MaxNum,Tipo)
If Tipo = 1 Then var_valores =    "0,1,2,3,4,5,6,7,8,9,"&_
                            "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z"
If Tipo = 2 Then var_valores =    "0,1,2,3,4,5,6,7,8,9"
If Tipo = 3 Then var_valores =    "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z"
xArray = Split(var_valores,",")
Randomize
Do While Len(chave) < MaxNum
num = xArray(Int(Ubound(xArray) * Rnd ))
chave = chave + num
Loop
GerarSenha = Trim(chave)
End Function %>

<%lerdados = Request.QueryString ("lerdados")
if lerdados = "" then%>
Nenhum arquivo solicitado voltar e escolher outro
<%else%>

<%set Cmd=server.CreateObject("ADODB.COMMAND")
Cmd.ActiveConnection="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminhogeral&"\dados\bdrecord-dados.mdb"
'Cmd.ActiveConnection="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\inetpub\wwwroot\23-06-2009\dados\bdrecord-dados.mdb"
'Cmd.ActiveConnection="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\Inetpub\wwwroot\10-06-2009\23-06-2009\dados\bdrecord-dados.mdb"%>
<%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("lista/"&lerdados) &";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
codcadastros = GerarSenha(16,1)

response.write "<td><font size=1 face=verdana><b>" & codcadastros & "</td>"
response.write "<td><font size=1 face=verdana><b>" & RS("nome") & "</td>"
response.write "<td><font size=1 face=verdana><b>" & RS("email") & "</td>"
response.write "<td><font size=1 face=verdana><b>" & Request.QueryString("codimportar") & "</td>"
response.write "<td><font size=1 face=verdana><b>" & request.servervariables("REMOTE_ADDR") & "</td>"
response.write "<td><font size=1 face=verdana><b>" & now & "</td>"
response.write "</tr>"

vc1 = codcadastros
vc2 = RS("nome")
vc3 = RS("email")
vc4 = Request.QueryString("codimportar")
vc5 = request.servervariables("REMOTE_ADDR")
vc6 = now

cmd.CommandText="insert into cadastros (codcadastros, nome , email, codimportar, ip, data_cadastro) 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%>
<%set Cmd = nothing%>
<%end if%>

<%if err = 0 Then
Response.write "Dados Cadastrados com Sucesso!"
response.write "<br><br>você será redirecionado.<br>"
response.write "<meta http-equiv='refresh' content='1; url=newsletter_importar_view_access.asp?codimportar="&Request.QueryString("codimportar")&"'/>"
else
Response.Write "Ocorreu um erro inesperado (" & Err.number & " - " & err.Description & ")"
end if%>