Tenho um formulario que preciso inserir 10 registros ao mesmo para ganhar tempo. Os campos são Nome e Cidade. não consigo montar funcao que inserar na tabela adequadamente, Nome = request("Nome") Cidade = request("Cidade") set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("controle.mdb")) a=split(Nome,",") for iLoop=LBound(a) to UBound(a) Nome=Trim(a(iLoop)) ab=split(Cidade,",") for i =LBound(ab) to UBound(ab) Cidade=Trim(ab(i)) sql = "INSERT INTO Cadastro (Nome,Cidade) VALUES ('" & Nome & "','" & Cidade & "')" conn.Execute sql next next conn.Close set conn=nothing
