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

Rispondi quotando
