Mega problema con import excel su access

[devil946]

Giusto, infatti funziona, maora si blocca qui dove sbaglio, adesso?

dim SQL
dim NumeroPIvaExcel
Dim ConnDown1 
Dim SQL3
Dim RECDown


NumeroPIvaExcel = request.QueryString("PI") &".xls"


SQL = "SELECT * from [Foglio1$]"
strProvider="Driver={Microsoft Excel Driver (*.xls)};DBQ=" & Server.MapPath("mdb-database\" & NumeroPIvaExcel) 
Set rs = Server.CreateObject("ADODB.recordset") 
rs.Open SQL, strProvider 


Do while not rs.eof 
Set ConnDown1=Server.CreateObject("ADODB.Connection")
ConnDown1.Open conn 
SQL3 =  "INSERT INTO "&NumeroPIva&" (N_Pod, Tipo_Pod, Indirizzo, Comune, Cap, Provincia) VALUES  (' "& rs("N_Pod") &" ',' "& rs("Tipo_Pod") &" ',' "& rs("Indirizzo") &" ',' "& rs("Comune") &" ',' "& rs("Cap") &" ',' "& rs("Provincia") &" ' )"
set RECdown = conn.execute(sql3) 


rs.movenext 
Loop

Grazie, non ne posso piu'

[Vincent.Zeno]

non ne posso piu'

ma se sei solo all'inizio!

che vuol dire "si blocca"?

[devil946]

Errore di sintassi nell espressione INSERT:

SQL3 =  "INSERT INTO "&NumeroPIva&" (N_Pod, Tipo_Pod, Indirizzo, Comune, Cap, Provincia) VALUES ('"& rs.Fields("N_Pod").Value &"','"& rs.Fields("Tipo_Pod").Value &"','"& rs.Fields("Indirizzo").Value &"','"& rs.Fields("Comune").Value &"','"& rs.Fields("Cap").Value &"','"& rs.Fields("Provincia").Value &"')"

[devil946]

Necessario oggetto: 'conn'

[devil946]

E' il nome della tabella che non gli piace, infatti se ci inserisco il nome direttamente funziona alla grande, come glielo devo passare sto benedetto nome, eppure per le altre query gli è piaciuto.
Grazie

[devil946]

Risolto, grazie lo stesso, mi ero dimenticato di dichiarare la variabile NumeroPIva.
Per adesso tutto funziona

[Vincent.Zeno]

stampa a video la query e vedi che nome hai passato
intanto ti sto verificando altre cose....


edit:
a ecco

ma cerca di verificare l'insieme: mi sembra ridondante (magari sbaglio...)