+ include in una pagina

[whois]

salve,
ho provato a inserire più include in una pagina.
si è generato un errore "name refined" che a quanto mi sembra di capire dipende dal fatto che entrambi gli include aprono e chiudono la stessa connessione.

come posso risolvere?

[fabiosh75]

Forse inserendo apertura e chiusura della conessione nella pagina dove inserisci gli include e togliendola dalle pagine include? :master:

[whois]

:master: sembra non andare, mi da impossibile visualizzare la pagina. :master:

[Baol74]

Hai inclusso la stessa definizione di variabile per 2 o più volte volte

Per fare un esempio, il tuo errore è generato da questa situazione

<%
Dim Var1
Dim Var1
%>

[nadia79]

sembra non andare, mi da impossibile visualizzare la pagina.

non specifica nessun errore in particolare?

[lufo5]

Originariamente inviato da whois
salve,
ho provato a inserire più include in una pagina.
si è generato un errore "name refined" che a quanto mi sembra di capire dipende dal fatto che entrambi gli include aprono e chiudono la stessa connessione.

come posso risolvere?

cambia il nome di una delle due connessioni. Oppure sposta l'apertura e chiusura della connessione nella pagina principale e toglila dagli include.

[Baol74]

Si possono fare tutte le ipotesi di questo mondo (metti , togli copia incolla, cancella cambia)

Ma il punto è che va tolta una doppia definizione della stessa variabile o della stessa costante magari causato dalla doppia inclusione dello stesso file

[whois]

ecco i codici, magari mi date una mano
******primo file da includere********

<%
Dim Conn

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

conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/fpdb/sau.mdb")

Dim rs

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select TOP 3 * from news order by id DESC", conn
Do while NOT RS.EOF
%>

<%

Dim link

link=rs("link")

%>[img]images/BLU.gif[/img]
<% id1=rs("id") %>
<a href="news/scheda.asp?id=<% response.write(id1) %>" target="centrale" class="link3"> 
<%

response.write(link)

%>
</a> 


<%

RS.MoveNext

Loop
RS.Close

Set RS = Nothing

conn.Close

Set conn=Nothing
%>

******secondo file da includere********

<%

Dim Conn

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

conne.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/fpdb/sau.mdb")

Dim rs

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select TOP 1 * from virus order by id DESC", conn
Do while NOT RS.EOF
%>


<%

Dim link

link=rs("link")

%>
<% id1=rs("id") %>
<a href="virusalert/scheda.asp?id=<% response.write(id1) %>" target="centrale" class="link3"> 
<%

response.write(link)

%>
</a> 

<%

RS.MoveNext

Loop
RS.Close

Set RS = Nothing

conn.Close

Set conn=Nothing

%>

dovrei inserirli in una terza pagina. che ne dite?

[Baol74]

Primo: leggi le risposte che ti vengono date.
Secondo: Perchè non fai una funzione?

[whois]

quale funzione manca?

le risposte le ho lette