salve a tutti,

codice:
Microsoft JET Database Engine error '80040e07' 

Data type mismatch in criteria expression. 

/ins_striscia_reg2.asp, line 33
e la linea 33 è:

codice:
    myConn.Execute(strInsertFoto)
mentre il codice comprelto è:

codice:
<%

    quando = Session("data")
	Titolo = Session("Titolo")
	Articolo = Session("Articolo")
	NumeroArticolo = Session("NumArticolo")
	NumeroEdizione = Session("NumED")
	FormapoPagina = Session("Format")
	FotoEsiste = Session("Fotos")
    Filename = request.QueryString("filename")
	
	'response.write(quando)
	'response.end()

	Set myConn = Server.CreateObject("ADODB.Connection")
	strConnDb = ""
	strConnDb = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & server.mappath("/mdb-database/StrisciaEquitazione.mdb")
	myConn.Open(strConnDb)

    strInsertFoto = ""
    strInsertFoto = "insert into editoriale (Quando,Titolo,Articolo,NumED,NumArt,FormaPag,Fotoesiste,Percorso) values (':1:',':2:',':3:',':4:',':5:',':6:',':7:',':8:')"
    strInsertFoto = replace(strInsertFoto,":1:",replace(cstr(quando),"'","''",1,-1))
    strInsertFoto = replace(strInsertFoto,":2:",replace(cstr(titolo),"'","''",1,-1))
    strInsertFoto = replace(strInsertFoto,":3:",replace(cstr(Articolo),"'","''",1,-1))
    strInsertFoto = replace(strInsertFoto,":4:",replace(cstr(NumeroEdizione),"'","''",1,-1))
    strInsertFoto = replace(strInsertFoto,":5:",replace(cstr(NumeroArticolo),"'","''",1,-1))
    strInsertFoto = replace(strInsertFoto,":6:",replace(cstr(FormatoPagina),"'","''",1,-1))
    strInsertFoto = replace(strInsertFoto,":7:",replace(cstr(FotoEsiste),"'","''",1,-1))
    strInsertFoto = replace(strInsertFoto,":8:",replace(cstr(Filename),"'","''",1,-1))
				
    myConn.Execute(strInsertFoto)

    response.redirect("inserimento_striscia2_ok.asp")

	myConn.Close
	set myConn=nothing


%>
ma che accidenti ha sto bischero...???