aprire un link in un frame da db access

**fabiusriders** · 01-10-2011, 01:50

Salve,
vorrei aprire un link utilizzando una pagina di frame, utilizzando ID del db, mi spiego:
es.
il link di riferimento sarà: www.***.it/fram.asp?cadid=14 a questo id corrisponde un link che dovrà essere aperta nella pagina fram.asp
ho tirato fuori il seguente codice ma mi da errore "Type mismatch"
alla riga ""indirizzo = REC("cadlink").Value""
dove sta l'errore?? potete aiutarmi? grazie

<%
Dim sc, cn, rs, SQL, REC
sc = ""
sc = sc & "driver={Microsoft Access Driver (*.mdb)};"
sc = sc & "dbq=" & Server.MapPath("../mdb-database/QuickClassifieds.mdb")

Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")

cn.Open sc

Dim codice
codice = Request.Querystring("cadid")

SQL="select * from tblQCAds where cadid="&codice
Dim indirizzo
indirizzo = REC("cadlink").Value
Session("ind") = indirizzo

%>
<frameset rows="80,*" framespacing="1">
<frame name="intestazione" scrolling="no" noresize target="principale" src="su.asp">
<frame name="principale" src="<%=indirizzo%>" marginwidth="12" marginheight="1" scrolling="auto">
<noframes>
<body>

La pagina corrente utilizza i frame. Questa caratteristica non è supportata
dal browser in uso.</p>
</body>
</noframes> </frameset>
<%
REC.Close
Conn.Close
Set REC=Nothing
Set Conn=Nothing

%>indirizzo = REC("cadlink").Value red

**br1** · 01-10-2011, 08:58

Dov'e' l'apertura del recordset?

**fabiusriders** · 01-10-2011, 14:04

ho aggiunto
SQL="select * from tblQCAds where cadid="&codice
Set REC=Conn.Execute(SQL)
Conn.Execute(SQL)

ma l'errore è: Object required: 'Conn' sulla riga Set REC=Conn.Execute(SQL)
non riesco a capire dove sbaglio

**br1** · 01-10-2011, 14:33

Non l'hai chiamato Conn ma cn

Set cn = Server.CreateObject("ADODB.Connection")

**fabiusriders** · 01-10-2011, 14:46

madoooo come ho fatto a sbagliare e non accorgemene

grazie mille ho risolto e funziona

appena setto tutto posto il codice anche per gli altri

**fabiusriders** · 01-10-2011, 17:30

ciao eccomi di nuovo sto apportando delle modifiche, sto aggiungendo il comando cont per incrementare un contatore di clic

vi posto la parte di codice che ho inserito, ho creato un nuovo campo nel db chiamato HIT ma non incrementa..
sapete darmi una mano?

SQL="select * from tblQCAds where cadid="&codice
Set REC=Cn.Execute(SQL)

cont=REC("HIT")
cont=cont+1
SQL="update tblQCAds set HIT="&cont&" where cadid="&codice

Dim indirizzo

**optime** · 01-10-2011, 17:33

fa' fare il lavoro sporco all'animale

SQL="update tblQCAds set HIT=HIT+1 where cadid="&codice

**fabiusriders** · 01-10-2011, 17:37

ciao eccomi di nuovo sto apportando delle modifiche, sto aggiungendo il comando cont per incrementare un contatore di clic

vi posto la parte di codice che ho inserito, ho creato un nuovo campo nel db chiamato HIT ma non incrementa..
sapete darmi una mano?

Dim sc, cn, rs, SQL, REC, cont
..
..
..
SQL="select * from tblQCAds where cadid="&codice
Set REC=Cn.Execute(SQL)

cont=REC("HIT")
cont=cont+1
SQL="update tblQCAds set HIT="&cont&" where cadid="&codice

Dim indirizzo

**optime** · 01-10-2011, 17:41

fa' fare il lavoro sporco all'animale

SQL="update tblQCAds set HIT=HIT+1 where cadid="&codice

**fabiusriders** · 01-10-2011, 17:46

ciao eccomi di nuovo sto apportando delle modifiche, sto aggiungendo il comando cont per incrementare un contatore di clic

vi posto la parte di codice che ho inserito, ho creato un nuovo campo nel db chiamato HIT ma non incrementa..
sapete darmi una mano?

Dim sc, cn, rs, SQL, REC, cont
..
..
..
SQL="select * from tblQCAds where cadid="&codice
Set REC=Cn.Execute(SQL)

cont=REC("HIT")
cont=cont+1
SQL="update tblQCAds set HIT="&cont&" where cadid="&codice

Dim indirizzo

Discussione: aprire un link in un frame da db access

Strumenti discussione

Ricerca discussione

Visualizza

aprire un link in un frame da db access

Permessi di invio