vi mostro il codice



Function GetLastFoto(ByVal sCodiceimmobile)
Dim oCon
Dim oRS

Set oCon = Server.CreateObject("ADODB.Connection")
Set oRS = Server.CreateObject("ADODB.Recordset")

oCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../public/databaseimm.mdb") & ";Mode=ReadWrite"
Set oRS = oCon.Execute("select top 1 Indice from fotoimmobili2 where CodiceImmobile=" & sCodiceimmobile & " and Pubblica = '-1' order by [FotoImmobiliID] desc")
If Not oRS.Eof Then
GetLastFoto = oRS("foto")
Else
GetLastFoto = ""
End If

oRS.Close
oCon.Close

Set oRS = Nothing
Set oCon = Nothing

End Function

%>


errore


Microsoft JET Database Engine error '80040e07'

Data type mismatch in criteria expression.

/ddd324/pubblicita_risultato.asp, line 412




fatemi sapere