Query di inserimento

[albertoapoplex]

Ho un problema con le query di inserimento.
Questo è il codice della pagina:

<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = D:\inetpub\vhosts\db.mdb")

Set objRs = Server.CreateObject("ADODB.Recordset")

Parametro1=Request.Form("Campo1")
Parametro2=Request.Form("Campo2")
Parametro3=Request.Form("Campo3")

set objRs = objConn.Execute("INSERT INTO VIAGGIO (Codice_autorizzazione Data_autorizzazione Tipo_veicolo) VALUES ('"& PARAMETRO1 &"' '"& PARAMETRO2 &"' '"& PARAMETRO3 &"' ) ")

objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing %>

Il problema sta nella sintassi SQL oppure faccio qualche altro errore

GRAZIE PER L'AIUTO

[santino83_11_04]

INSERT INTO VIAGGIO (Codice_autorizzazione,Data_autorizzazione,Tipo_veicolo) VALUES ('"& PARAMETRO1 &"','"& PARAMETRO2 &"','"& PARAMETRO3 &"' )

ma le virgole per saparare i campi erano optional?

[albertoapoplex]

Ho provato in questa maniera ma mi dà sempre lo stesso errore

set objRs = objConn.Execute("INSERT INTO VIAGGIO (Codice_autorizzazione , Data_autorizzazione , Tipo_veicolo) VALUES ('"& PARAMETRO1 &"' , '"& PARAMETRO2 &"' , '"& PARAMETRO3 &"') ")

[santino83_11_04]

SQL="INSERT INTO VIAGGIO (Codice_autorizzazione , Data_autorizzazione , Tipo_veicolo) VALUES ('"& PARAMETRO1 &"' , '"& PARAMETRO2 &"' , '"& PARAMETRO3 &"') "

response.write SQL
response.end()

objConn.execute(SQL)

poi, se il campo Data_autorizzazione è un campo DATA, la query la devi riscrivere:

SQL="INSERT INTO VIAGGIO (Codice_autorizzazione , Data_autorizzazione , Tipo_veicolo) VALUES ('"& PARAMETRO1 &"' , #"& PARAMETRO2 &"# , '"& PARAMETRO3 &"') "

prova e dicci che stampa e poi la provi togliendo la riga RESPONSE.END e vedi se funziona

[albertoapoplex]

Con il response.end() mi dà questo risultato:

INSERT INTO VIAGGIO (Codice_autorizzazione , Data_autorizzazione , Tipo_veicolo , Targa , Luogo_prelievo , Previsto_prelievo , Prelievo_effettuato , Luogo_consegna , Prevista_consegna , Consegna_effettuata , Multiplo , Note) VALUES ('C28' , '07/10/2006' , 'fiat multipla' , 'az325xs' , 'Crosia' , '08/10/2006 ore 10.00' , '08/10/2006 ore 10.30' , 'Cosenza' , '09/10/2006 ore 10.00' , '09/10/2006 ore 10.00' , 'M254' , '')

(i campi sono 12, per semplicità nell'esempio ne avevo messi solo 3)


Se provo senza il response.end mi dà errore...

Ti ricopio tutto il codice..., non vorrei aver sbagliato da qualche altra parte...

<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = D:\inetpub\vhosts\crm.mdb")

Set objRs = Server.CreateObject("ADODB.Recordset")

Parametro1=Request.Form("Campo1")
Parametro2=Request.Form("Campo2")
Parametro3=Request.Form("Campo3")
Parametro4=Request.Form("Campo4")
Parametro5=Request.Form("Campo5")
Parametro6=Request.Form("Campo6")
Parametro7=Request.Form("Campo7")
Parametro8=Request.Form("Campo8")
Parametro9=Request.Form("Campo9")
Parametro10=Request.Form("Campo10")
Parametro11=Request.Form("Campo11")
Parametro12=Request.Form("Campo12")


SQL="INSERT INTO VIAGGIO (Codice_autorizzazione , Data_autorizzazione , Tipo_veicolo , Targa , Luogo_prelievo , Previsto_prelievo , Prelievo_effettuato , Luogo_consegna , Prevista_consegna , Consegna_effettuata , Multiplo , Note) VALUES ('"& PARAMETRO1 &"' , '"& PARAMETRO2 &"' , '"& PARAMETRO3 &"' , '"& PARAMETRO4 &"' , '"& PARAMETRO5 &"' , '"& PARAMETRO6 &"' , '"& PARAMETRO7 &"' , '"& PARAMETRO8 &"' , '"& PARAMETRO9 &"' , '"& PARAMETRO10 &"' , '"& PARAMETRO11 &"' , '"& PARAMETRO12 &"') "

response.write SQL
response.end()

objConn.execute(SQL)


objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing %>

[santino83_11_04]

allora,

quali sono i campi NUMERICI?
quali sono i campi DATA/ORA?
quali sono i campi TESTO?
qual'è l'errore preciso che da?

[albertoapoplex]

Sono tutti campi di TESTO.

L'errore che mi dà è questo:
Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.
Please contact the server administrator to inform of the time the error occurred and of anything you might have done that may have caused the error.

More information about this error may be available in the server error log.

[santino83_11_04]

in IE vai su strumenti->opzioni internet-> avanzate e togli la spunta da "mostra errori http brevi" e poi ricarica la pagina e vedi che errore dice

[cavicchiandrea]

<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = D:\inetpub\vhosts\db.mdb")

Parametro1=Request.Form("Campo1")
Parametro2=Request.Form("Campo2")
Parametro3=Request.Form("Campo3")

set objRs = objConn.Execute("INSERT INTO VIAGGIO (Codice_autorizzazione Data_autorizzazione Tipo_veicolo) VALUES ('"& PARAMETRO1 &"','"& PARAMETRO2 &"' ,"& PARAMETRO3 &"' ) ")

objConn.Close
Set objConn = Nothing %>

In pratica non apari il recorset che non serve eseguendo direttamente INSERT INTO con (execute) non sono sicuro che risolvi ma provare non costa niente.

[santino83_11_04]

aprire un recordset per una query di insert è inutile