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