problemi inserimento dati in db access

[volerevolare02]

Da una pagina con form di inserimento passo le variabili a questa script inserito in una pagina asp:



<%

On Error Resume Next
Response.Buffer = True

data = request.form("data")
orario = request.form("orario")
operatore = request.form("operatore")
chiamante_nome = request.form("chiamante_nome")
chiamante_tel = request.form("chiamante_tel")
chiamante_comune = request.form("chiamante_comune")
motivo = request.form("motivo")
settore = request.form("settore")

Set objconn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("../mdb-database/call_center.mdb"))


sql="INSERT INTO inserzioni ( data, orario, operatore, chiamante_nome, chiamante_tel, chiamante_comune, motivo, settore ) Values('" & data & "','" & orario & "','" & operatore & "','" & chiamante_nome & "','" & chiamante_tel & "','" & chiamante_comune & "','" & motivo & "','" & settore & "')"

Set objrs = Server.CreateObject("ADODB.recordset")
objrs.open sql, objconn

If Err <> 0 Then
Response.Redirect "ko.htm"
Else
Response.Redirect "ok.htm"
End If

%>



mi reindirizza sempre nella pagina KO e mai OK

[maximum]

Opera le modifiche che ti ho indicato e riprova la pagina.

<% 

On Error Resume Next 
Response.Buffer = True 

data = request.form("data") 
orario = request.form("orario") 
operatore = request.form("operatore") 
chiamante_nome = request.form("chiamante_nome") 
chiamante_tel = request.form("chiamante_tel") 
chiamante_comune = request.form("chiamante_comune") 
motivo = request.form("motivo") 
settore = request.form("settore") 

Set objconn = Server.CreateObject("ADODB.Connection") 
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("../mdb-database/call_center.mdb")) 


sql="INSERT INTO inserzioni ( data, orario, operatore, chiamante_nome, chiamante_tel, chiamante_comune, motivo, settore ) Values('" & data & "','" & orario & "','" & operatore & "','" & chiamante_nome & "','" & chiamante_tel & "','" & chiamante_comune & "','" & motivo & "','" & settore & "')" 

STAMPA LA QUERY DI INSERT - INIZIO
response.write(sql)
response.end 
STAMPA LA QUERY DI INSERT - FINE 

A CHE TI SERVE????? INIZIO
Set objrs = Server.CreateObject("ADODB.recordset") 
objrs.open sql, objconn   
A CHE TI SERVE????? FINE 

If Err <> 0 Then 
Response.Redirect "ko.htm" 
Else 
Response.Redirect "ok.htm" 
End If 

%>

[volerevolare02]

sono un po' ignorante (sono alle prima armi) :-(

Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A0401)
Prevista fine istruzione
/call_center/call_center/telefonate_insert2.asp, line 29, column 10
STAMPA LA QUERY DI INSERT - INIZIO

[maximum]

Scusa, prova adesso:

<% 

On Error Resume Next 
Response.Buffer = True 

data = request.form("data") 
orario = request.form("orario") 
operatore = request.form("operatore") 
chiamante_nome = request.form("chiamante_nome") 
chiamante_tel = request.form("chiamante_tel") 
chiamante_comune = request.form("chiamante_comune") 
motivo = request.form("motivo") 
settore = request.form("settore") 

Set objconn = Server.CreateObject("ADODB.Connection") 
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("../mdb-database/call_center.mdb")) 


sql="INSERT INTO inserzioni ( [data], orario, operatore, chiamante_nome, chiamante_tel, chiamante_comune, motivo, settore ) Values('" & data & "','" & orario & "','" & operatore & "','" & chiamante_nome & "','" & chiamante_tel & "','" & chiamante_comune & "','" & motivo & "','" & settore & "')" 

'STAMPA LA QUERY DI INSERT - INIZIO
response.write(sql)
response.end 
'STAMPA LA QUERY DI INSERT - FINE 

'A CHE TI SERVE????? INIZIO
'Set objrs = Server.CreateObject("ADODB.recordset") 
'objrs.open sql, objconn   
'A CHE TI SERVE????? FINE 

If Err <> 0 Then 
Response.Redirect "ko.htm" 
Else 
Response.Redirect "ok.htm" 
End If 

%>

[volerevolare02]

INSERT INTO inserzioni ( [data], orario, operatore, chiamante_nome, chiamante_tel, chiamante_comune, motivo, settore ) Values('22/11/05','12:00','marco','mario rossi','079000000','oristano','info','consulenza')


nella pagina appare questo testo

[volerevolare02]

ho rimosso la parte del test e mi dirige nella parte ok.htm
come se vado tutto ok... però nel db non mi ritrovo i dati inseriti

[maximum]

INSERT INTO inserzioni ( [data], orario, operatore, chiamante_nome, chiamante_tel, chiamante_comune, motivo, settore ) Values('22/11/05','12:00','marco','mario rossi','079000000','oristano','info','consulenza')

Della tabella inserzioni, serve sapere il tipo di dato di ogni colonna.
Mi spiego meglio, mi servirebbe sapere, per ogni colonna, se si tratta di campo testo, numerico, data, o memo.

1)data (testo, numerico, data, memo?)
2)orario (testo, numerico, data, memo?)
3)operatore (testo, numerico, data, memo?)
4)chiamante_nome (testo, numerico, data, memo?)
5)chiamante_tel (testo, numerico, data, memo?)
6)chiamante_comune (testo, numerico, data, memo?)
7)motivo (testo, numerico, data, memo?)
8)settore (testo, numerico, data, memo?)

[volerevolare02]

tutti campi di testo :-)

[volerevolare02]

e c'è il primo campo contatore automatico (classico di access)

[maximum]

Togli dal codice i:

response.write(sql)
response.end

ed esegui la pagina.

Dimmi se ti dà ancora l'errore.

Insomma, questo:

<% 

On Error Resume Next 
Response.Buffer = True 

data = request.form("data") 
orario = request.form("orario") 
operatore = request.form("operatore") 
chiamante_nome = request.form("chiamante_nome") 
chiamante_tel = request.form("chiamante_tel") 
chiamante_comune = request.form("chiamante_comune") 
motivo = request.form("motivo") 
settore = request.form("settore") 

Set objconn = Server.CreateObject("ADODB.Connection") 
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("../mdb-database/call_center.mdb")) 


sql="INSERT INTO inserzioni ( [data], orario, operatore, chiamante_nome, chiamante_tel, chiamante_comune, motivo, settore ) Values('" & data & "','" & orario & "','" & operatore & "','" & chiamante_nome & "','" & chiamante_tel & "','" & chiamante_comune & "','" & motivo & "','" & settore & "')" 

If Err <> 0 Then 
Response.Redirect "ko.htm" 
Else 
Response.Redirect "ok.htm" 
End If 

%>