I hope that somebody can help me couse i didn't find a solution since two weeks...
bye bye
I have this problem:
Microsoft OLE DB Provider for ODBC Drivers error '80040e57'
[Microsoft][ODBC Microsoft Access Driver]Numeric value out of range (null)
/osserv/BusinessTravel/BT2005/BusinessTravel2008/questionarioIIsem2008Lungoctrl.asp, line 695
--------------------------------------------------------------------------------------
this is: questionarioIIsem2008Lungoctrl.asp:
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">
<title>Osservatorio Business Travel - Alma Mater Studiorum Università di Bologna - Sede di Rimini</title>
<%
'Giovanni.Angelini
Function SQLQuote(var)
If InStr(var, "'") <> 0 Then
var = Replace(var, "'", "''")
End If
SQLQuote = var
End Function
(................................................. ........)
if (y7_1Error = "true" Or y15aError = "true" Or y15bError = "true" Or y15cdError = "true") then
sql = "Insert Into Incompleto2009 ("
else
sql = "Insert Into Completo2009 ("
end If
sql = sql & "anno_sem,"
sql = sql & "indirizzoIP,"
sql = sql & "data,"
sql = sql & "y2aDestinazioneRegione,"
sql = sql & "y2bDestinazioneItalia,"
sql = sql & "y2cDestinazioneEu,"
sql = sql & "y2dDestinazioneMondo,"
sql = sql & "y3aMezzoAereo,"
sql = sql & "y3bMezzoTreno,"
sql = sql & "y3cMezzoAutoAz,"
sql = sql & "y3dMezzoAutoPr,"
sql = sql & "y3eMezzoAltro,"
sql = sql & "y4aDurata1g,"
sql = sql & "y4bDurata2_3g,"
sql = sql & "y4cDurata4piug,"
sql = sql & "y5NumeroViaggiatori,"
sql = sql & "y6aMotivoClientiFornitori,"
sql = sql & "y6bMotivoFiere,"
sql = sql & "y6cMotivoMeeting,"
sql = sql & "y6dMotivoFormazione,"
sql = sql & "y6eMotivoIncentive,"
sql = sql & "y7a1NumViaggi08,"
sql = sql & "y7b1SpesaViaggi08,"
sql = sql & "y7c1SpesaVoli08,"
sql = sql & "y2a1Spesa09,"
sql = sql & "y2b1Viaggi09,"
sql = sql & "y2a1Spesa10,"
sql = sql & "y2b1Viaggi10,"
sql = sql & "y8a1Clienti09,"
sql = sql & "y8b1NuoviClienti09,"
sql = sql & "y8c1Fiere09,"
sql = sql & "y8d1Incontri09,"
sql = sql & "y8e1CorsiCongressi09,"
sql = sql & "y8f1Incentive09,"
sql = sql & "y9a1Sostituzione,"
sql = sql & "y9b1Motivazione,"
sql = sql & "y10a1PosNeg,"
sql = sql & "y10b1PosNeg,"
sql = sql & "y11a1Prenotare,"
sql = sql & "y11b1ProcessiGes,"
sql = sql & "y11c1SistemiPag,"
sql = sql & "y11d1ComunicazioneDis,"
sql = sql & "y12a1TariffeMass,"
sql = sql & "y12b1Autorizzazioni,"
sql = sql & "y12c1VerificaContr,"
sql = sql & "y12d1NegoziazioneForn,"
sql = sql & "y13a1GenerBT,"
sql = sql & "y14a1Agenzia,"
sql = sql & "y14b1Altro,"
sql = sql & "y15a1SuoPuntoVista,"
sql = sql & "y15b1Viaggiatori,"
sql = sql & "y15c1PuntoForza,"
sql = sql & "y15d1PuntoCritico,"
sql = sql & "y16a1Monitoraggio,"
sql = sql & "y17a1PrevGara,"
sql = sql & "y15aIdAzienda,"
sql = sql & "y15bNumAddetti,"
sql = sql & "y15cProdPrincipale,"
sql = sql & "y15dSettPrincipale,"
sql = sql & "y15eKapDetenuto,"
sql = sql & "y15fFatturatoAzienda,"
sql = sql & "y15hNomeCompilatore,"
sql = sql & "y15IfunzioneCompilatore,"
sql = sql & "y15jEmail,"
sql = sql & "y15kFax"
sql = sql & ") "
sql = sql & "Values ("
sql = sql & "'" & anno_sem & "',"
sql = sql & "'" & indirizzoIP & "',"
sql = sql & "'" & data & "',"
sql = sql & "'" & SQLQuote(y2aDestinazioneRegione) & "',"
sql = sql & "'" & SQLQuote(y2bDestinazioneItalia) & "',"
sql = sql & "'" & SQLQuote(y2cDestinazioneEu) & "',"
sql = sql & "'" & SQLQuote(y2dDestinazioneMondo) & "',"
sql = sql & "'" & SQLQuote(y3aMezzoAereo) & "',"
sql = sql & "'" & SQLQuote(y3bMezzoTreno) & "',"
sql = sql & "'" & SQLQuote(y3cMezzoAutoAz) & "',"
sql = sql & "'" & SQLQuote(y3dMezzoAutoPr) & "',"
sql = sql & "'" & SQLQuote(y3eMezzoAltro) & "',"
sql = sql & "'" & SQLQuote(y4aDurata1g) & "',"
sql = sql & "'" & SQLQuote(y4bDurata2_3g) & "',"
sql = sql & "'" & SQLQuote(y4cDurata4piug) & "',"
sql = sql & "'" & SQLQuote(y5NumeroViaggiatori) & "',"
sql = sql & "'" & SQLQuote(y6aMotivoClientiFornitori) & "',"
sql = sql & "'" & SQLQuote(y6bMotivoFiere) & "',"
sql = sql & "'" & SQLQuote(y6cMotivoMeeting) & "',"
sql = sql & "'" & SQLQuote(y6dMotivoFormazione) & "',"
sql = sql & "'" & SQLQuote(y6eMotivoIncentive) & "',"
sql = sql & "'" & SQLQuote(y7a1NumViaggi08) & "',"
sql = sql & "'" & SQLQuote(y7b1SpesaViaggi08) & "',"
sql = sql & "'" & SQLQuote(y7c1SpesaVoli08) & "',"
sql = sql & "'" & SQLQuote(y2a1Spesa09) & "',"
sql = sql & "'" & SQLQuote(y2b1Viaggi09) & "',"
sql = sql & "'" & SQLQuote(y2a1Spesa10) & "',"
sql = sql & "'" & SQLQuote(y2b1Viaggi10) & "',"
sql = sql & "'" & SQLQuote(y8a1Clienti09) & "',"
sql = sql & "'" & SQLQuote(y8b1NuoviClienti09) & "',"
sql = sql & "'" & SQLQuote(y8c1Fiere09) & "',"
sql = sql & "'" & SQLQuote(y8d1Incontri09) & "',"
sql = sql & "'" & SQLQuote(y8e1CorsiCongressi09) & "',"
sql = sql & "'" & SQLQuote(y8f1Incentive09) & "',"
sql = sql & "'" & SQLQuote(y9a1Sostituzione) & "',"
sql = sql & "'" & SQLQuote(y9b1Motivazione) & "',"
sql = sql & "'" & SQLQuote(y10a1PosNeg) & "',"
sql = sql & "'" & SQLQuote(y10b1PosNeg) & "',"
sql = sql & "'" & SQLQuote(y11a1Prenotare) & "',"
sql = sql & "'" & SQLQuote(y11b1ProcessiGes) & "',"
sql = sql & "'" & SQLQuote(y11c1SistemiPag) & "',"
sql = sql & "'" & SQLQuote(y11d1ComunicazioneDis) & "',"
sql = sql & "'" & SQLQuote(y12a1TariffeMass) & "',"
sql = sql & "'" & SQLQuote(y12b1Autorizzazioni) & "',"
sql = sql & "'" & SQLQuote(y12c1VerificaContr) & "',"
sql = sql & "'" & SQLQuote(y12d1NegoziazioneForn) & "',"
sql = sql & "'" & SQLQuote(y13a1GenerBT) & "',"
sql = sql & "'" & SQLQuote(y14a1Agenzia) & "',"
sql = sql & "'" & SQLQuote(y14b1Altro) & "',"
sql = sql & "'" & SQLQuote(y15a1SuoPuntoVista) & "',"
sql = sql & "'" & SQLQuote(y15b1Viaggiatori) & "',"
sql = sql & "'" & SQLQuote(y15c1PuntoForza) & "',"
sql = sql & "'" & SQLQuote(y15d1PuntoCritico) & "',"
sql = sql & "'" & SQLQuote(y16a1Monitoraggio) & "',"
sql = sql & "'" & SQLQuote(y17a1PrevGara) & "',"
sql = sql & "'" & SQLQuote(y15aIdAzienda) & "',"
sql = sql & "'" & SQLQuote(y15bNumAddetti) & "',"
sql = sql & "'" & SQLQuote(y15cProdPrincipale) & "',"
sql = sql & "'" & SQLQuote(y15dSettPrincipale) & "',"'
sql = sql & "'" & SQLQuote(y15eKapDetenuto) & "',"
sql = sql & "'" & SQLQuote(y15fFatturatoAzienda) & "',"
sql = sql & "'" & SQLQuote(y15hNomeCompilatore) & "',"
sql = sql & "'" & SQLQuote(y15IfunzioneCompilatore) & "',"
sql = sql & "'" & SQLQuote(y15jEmail) & "',"
sql = sql & "'" & SQLQuote(y15kFax) & "'"
sql = sql & ");"
'Response.write sql
'Response.End
sDBName = "driver={Microsoft Access Driver (*.mdb)};dbq=D:\data\rimini\html\osserv\BusinessTr avel\BT2005\BusinessTravel2008\IIsem.mdb"
Set objDB = Server.CreateObject("ADODB.Connection")
objDB.Open sDBName
'Response.write sql
objDB.Execute(sql)
'Response.write sql
'if (y2Error = "false" And y3Error = "false" And y4Error = "false" And y6Error = "false" And y7_1Error = "false" And y15aError = "false" And y15bError = "false" And y15cdError = "false") then
'Response.Redirect(forwardPage)
'Response.End
'end if
'Response.Redirect(forwardPage)
'Response.write sql
'Response.End
objDB.Close
%>