sql insert

[pip19]

mi ci date un occhiata?? Non riesco a capire cosa non vada in questo sql...

Nome = request.Form("Nome")
Cognome = request.Form("Cognome")
Sesso = request.Form("Sesso")
DataNascita = request.Form("DataNascita")
LuogoNascita = request.Form("LuogoNascita")
PaeseNascita = request.Form("PaeseNascita")
CodiceFiscale = request.Form("CodiceFiscale")
Documento = request.Form("Documento")
PartitaIVA = request.Form("PartitaIVA")
ResidenzaVia = request.Form("ResidenzaVia")
ResidenzaCAP = request.Form("ResidenzaCAP")
ResidenzaCitta = request.Form("ResidenzaCitta")
ResidenzaProvincia = request.Form("ResidenzaProvincia")
ResidenzaPaese = request.Form("ResidenzaPaese")
DomicilioVia = request.Form("DomicilioVia")
DomicilioCAP = request.Form("DomicilioCAP")
DomicilioCitta = request.Form("DomicilioCitta")
DomicilioProvincia = request.Form("DomicilioProvincia")
DomicilioPaese = request.Form("DomicilioPaese")
Telefono = request.Form("Telefono")
Fax = request.Form("Fax")
Cellulare1 = request.Form("Cellulare1")
Cellulare2 = request.Form("Cellulare2")
Mail = request.Form("Mail")
Altezza = request.Form("Altezza")
Peso = request.Form("Peso")
Taglia = request.Form("Taglia")
Scarpe = request.Form("Scarpe")
SenoPetto = request.Form("SenoPetto")
Vita = request.Form("Vita")
Fianchi = request.Form("Fianchi")
Capelli = request.Form("Capelli")
Occhi = request.Form("Occhi")
Intestazione = request.Form("Intestazione")
Banca = request.Form("Banca")
Filiale = request.Form("Filiale")
ContoCorrente = request.Form("ContoCorrente")
ABI = request.Form("ABI")
CAB = request.Form("CAB")
Modalita = request.Form("Modalita")
Annotazioni = request.Form("Annotazioni")
User = request.Form("User")
Pass = request.Form("Pass")



sql = "INSERT INTO TblModelli(
Nome,Cognome,Sesso,
DataNascita,LugoNascita,
PaeseNascita,CodiceFiscale,
Documento,PartitaIVA,ResidenzaVia,
ResidenzaCAP,ResidenzaCitta,
ResidenzaProvincia,ResidenzaPaese,
DomicilioVia,DomicilioCAP,DomicilioCitta,
DomicilioProvincia,DomicilioPaese,
Telefono,Fax,Cellulare1,Cellulare2,
Mail,Altezza,Peso,Taglia,Scarpe,SenoPetto,
Vita,Fianchi,Capelli,Occhi,Intestazione,
Banca,Filiale,ContoCorrente,ABI,CAB,
Modalita,Annotazioni,User,Pass)
VALUES ('"
&Nome&"','"&Cognome&"','"&Sesso&"','"
&DataNascita&"','"&LuogoNascita&"','"
&PaeseNascita&"','"&CodiceFiscale&"','"
&Documento&"','"&PartitaIVA&"','"&ResidenzaVia&"', '"
&ResidenzaCAP&"','"&ResidenzaCitta&"','"
&ResidenzaProvincia&"','"&ResidenzaPaese&"','"
&DomicilioVia&"','"&DomicilioCAP&"','"&DomicilioCi tta&"','"
&DomicilioProvincia&"','"&DomicilioPaese&"','"
&Telefono&"','"&Fax&"','"&Cellulare1&"','"&Cellula re2&"','"
&Mail&"','"&Altezza&"','"&Peso&"','"&Taglia&"','"& Scarpe&"','"&SenoPetto&"','"
&Vita&"','"&Fianchi&"','"&Capelli&"','"&Occhi&"',' "&Intestazione&"','"
&Banca&"','"&Filiale&"','"&ContoCorrente&"','"&ABI &"','"&CAB&"','"
&Modalita&"','"&Annotazioni&"','"&User&"', '"&Pass&"')"

[luigi2005]

che errore ti dà?

[pip19]

stranissimo

Microsoft JET Database Engine (0x80040E14)
Errore di sintassi nell'istruzione INSERT INTO.
/olimpoeventi/inserimento_modelli.asp, line 85

è semplicemente la open
rs.Open sql, conn, 3, 3

HELPPP NON CAPISCOOO!!

[Roby_72]

Stampa la query prima di eseguirla altrimenti non lo capirai mai.
Non vedo neppure una replace comunque...

Roby

[pip19]

la stampa dell'sql sembra vada bene

INSERT INTO TblModelli(Nome,Cognome,Sesso,DataNascita,LugoNasc ita,PaeseNascita,CodiceFiscale,Documento,PartitaIV A,ResidenzaVia,ResidenzaCAP,ResidenzaCitta,Residen zaProvincia,ResidenzaPaese,DomicilioVia,DomicilioC AP,DomicilioCitta,DomicilioProvincia,DomicilioPaes e,Telefono,Fax,Cellulare1,Cellulare2,Mail,Altezza, Peso,Taglia,Scarpe,SenoPetto,Vita,Fianchi,Capelli, Occhi,Intestazione,Banca,Filiale,ContoCorrente,ABI ,CAB,Modalita,Annotazioni,User,Pass) VALUES ('asdfasdf','asdfasdf','M','','','','','','','','' ,'','','','','','','','','','','','','','','','',' ','','','','','','','','','','','','','','', '')

in effetti non ci sono replace... utilità??

[Roby_72]

1) Assicurati che i campi accettino lunghezza 0.
2) Metti il campo User tra parentesi quadre nella query
3) La replace serve a non bloccare la query nel caso in cui la stringa che inserisci contenga
apici
4) Varie

Roby

[pip19]

1) i campi accettano tutti lunghezza 0 e non sono obbligatori
2) ho pensato anche io che la parola user potesse essere riservata...
3) grazie!


ora funzionaa!!! mi sa che era proprio da mettere le quadre!!

grazie robby!

[renganz]

Ciao a tutti!

Scusate ma anche io ho un problema simile...non riesco a trovare l'errore.
Quando usavo il metodo get con request.querystring andava tutto bene adesso che sono passato al metodo post mi dà questo errore:

# Tipo di errore:
Microsoft JET Database Engine (0x80040E14)
Errore di sintassi nell'istruzione INSERT INTO.
/prova/inserisci.asp, line 28

<%
dim i 'Indice per trovare l'ID dell'ultimo record

selTitolo = Request.Form("Titolo")
selLibro = Request.Form("Libro")
selAbbr = Request.Form("Abbr")
selLuogo = Request.Form("Luogo")
selYear = Request.Form("Year")
selMonth = Request.Form("Month")
selTipo = Request.Form("Tipo")
selTopic = Request.Form("Topic")
selPDFLink = Request.Form("PDFLink")
selAbstract = Request.Form("Abstract")
selBibTeX = Request.Form("BibTeX")

'Seleziono i dati nel database
set objConn = Server.CreateObject("ADODB.Connection")
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.Mappath("/pub/pub.mdb")
objConn.Open strConn

'Seleziono l'ultimo record
Set rsLast = objConn.Execute ("SELECT * FROM pub")
do while not rsLast.eof
i = i +1
rsLast.movenext
loop

objConn.Execute ("INSERT INTO pub (ID,Titolo,Libro,Abbr,Luogo,Year,Month,Tipo,Topic, PDFLink,Abstract,BibTeX) VALUES ('" & i+1 &_
"', '" & selTitolo &_
"', '" & selLibro &_
"', '" & selAbbr &_
"', '" & selLuogo &_
"', '" & selYear &_
"', '" & selMonth &_
"', '" & selTipo &_
"', '" & selTopic &_
"', '" & selPDFLink &_
"', '" & selAbstract &_
"', '" & selBibTeX & "')")

%>

Potete aiutarmi? Grazie

[renganz]

OK mi sono risposto da solo...dovevo mettere le parentesi quadre anche io. grazie lo stesso! ciao

[renganz]

...ho cantato vittoria troppo presto...

Allora ho un file che si chiama INSERISCI.ASP fatto in questo modo:

<%
inserimento = Request.QueryString("Inserimento")

dim i 'Indice per trovare l'ID dell'ultimo record

selAutore1 = Request.Form("Autore1")
selAutore2 = Request.Form("Autore2")
selAutore3 = Request.Form("Autore3")
selAutore4 = Request.Form("Autore4")
selAutore5 = Request.Form("Autore5")
selnewAutore1 = Request.Form("newAutore1")
selnewAutore2 = Request.Form("newAutore2")
selnewAutore3 = Request.Form("newAutore3")
selnewAutore4 = Request.Form("newAutore4")
selnewAutore5 = Request.Form("newAutore5")
selTitolo = Request.Form("Titolo")
selLibro = Request.Form("Libro")
selAbbr = Request.Form("Abbr")
selLuogo = Request.Form("Luogo")
selYear = Request.Form("Year")
selMonth = Request.Form("Month")
selTipo = Request.Form("Tipo")
selnewTipo = Request.Form("newTipo")
selTopic = Request.Form("Topic")
selnewTopic = Request.Form("newTopic")
selPDFLink = Request.Form("PDFLink")
selAbstract = Request.Form("Abstract")
selBibTeX = Request.Form("BibTeX")

'Seleziono i dati nel database
set objConn = Server.CreateObject("ADODB.Connection")
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.Mappath("/pub/pub.mdb")
objConn.Open strConn

'Seleziono l'ultimo record
Set rsLast = objConn.Execute ("SELECT * FROM pub")
do while not rsLast.eof
i = i + 1
rsLast.movenext
loop

rsLast.Close
Set rsLast = Nothing

if (not inserimento) then
%>
<div align=center>Vuoi continuare con l'operazione?
<form action='inserisci.asp?inserimento=true' method='get' name='Inserimento'>
<input type='submit' value='Continua' name='Action'>
</form></div>
<%
else
objConn.Execute ("INSERT INTO pub ([ID],[Titolo],[Libro],[Abbr],[Luogo],[Year],[Month],[Tipo],[Topic],[PDFLink],[Abstract],[BibTeX]) VALUES ('" & i+1 &_
"', '" & selTitolo &_
"', '" & selLibro &_
"', '" & selAbbr &_
"', '" & selLuogo &_
"', '" & selYear &_
"', '" & selMonth &_
"', '" & selTipo &_
"', '" & selTopic &_
"', '" & selPDFLink &_
"', '" & selAbstract &_
"', '" & selBibTeX & "')")

Response.Write("Dati inseriti")
end if

%>

ho due grossi problemi:

1) Non mi esegue l'else infatti la URL dopo aver cliccato su 'Continua' è così: _http://localhost/prova/inserisci.asp?Action=Continua

2) Se provo a forzare l'URL in questo modo: _http://localhost/prova/inserisci.asp?inserimento=true
forzando l'else mi viene fuori un altro errore

Tipo di errore:
Microsoft JET Database Engine (0x80040E07)
Tipi di dati non corrispondenti nell'espressione criterio.
/prova/inserisci.asp, line 53

...eppure mi pare che i dati inseriti vadino bene.

Qualche consiglio? Grazie