collegamento quey

[forte78]

<%
Dim cod
Dim SQL,Rec
Dim oCon
Dim oCon1
Dim oRS
Dim oRS1

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

cod=Request.Querystring("cod")
sql = "SELECT * FROM immobili WHERE codice =" & cod
Set Rec=Conn.Execute(SQL)

oCon.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("/public/datab111.mdb")
Set oRS = oCon.Execute("select Indice from doc1 where Codice=" & cod & " and pubblica<>0 order by indice")

%>


ciao questa query collega 2 tabelle di un 2 db praticamente prende il campo codice e lo confronta con la 1 sql e poi con la 2

vorrei aggiungere un3 legame come posso fare ho aggiunto questo


Set oRS1 = oCon.Execute("select * from logodoc where nota1=" & cod & " order by id")

ma ho sicuramente sbagliato qualcosa


Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/test/visualizzacantiere.asp, line 113


aiutatemi a correggerlo ho bisogno di aiuto

[optime]

----------------------------------------------------
impariamo a fare un po' di debug

SQL="select * from logodoc where nota1=" & cod & " order by id"
Response.Write "maGGica SQL...: " & sql
Response.Flush
Set oRS1 = oCon.Execute(SQL)

*subito* dopo la composizione della stringa SQL metti


poi posta quello che viene a video
----------------------------------------------------