Inserir varios registros

[melaosp]

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

[bareta]

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,",")
ab=split(Cidade,",")
for iLoop=LBound(a) to UBound(a)
Nome=Trim(a(iLoop))
Cidade=Trim(a(iLoop))
sql = "INSERT INTO Cadastro (Nome,Cidade) VALUES ('" & Nome & "','" & Cidade & "')"
conn.Execute sql
next
conn.Close
set conn=nothing