Salve, scrivo perchè ho un problema con una pagina in ASP del mio sito (http://www.gemonahomepage.it/avvenimenti_nel_gemonese.asp?idprodotto=92) che presenta due file inclusi, uno per l'intestazione (head_hp_N.htm) ed uno per il piè di pagina (foot_pag_N.htm). Come potete vedere dal link, al caricamento della pagina viene restituito un errore che mette in dubbio l'esattezza di una tabella del database. Ora, premesso che non sono per nulla un esperto e che mi sto barcamenando col codice, io penso che l'errore non sia quello, infatti se metto online la stessa pagina ma senza l'inclusione (<!--#include virtual="head_hp_N.htm"-->) il problema non si presenta e non sussiste nemmeno nella vecchia pagina (http://www.gemonahomepage.it/eventi.asp?idprodotto=92) in cui un file incluso per l'intestazione c'era seppur diverso.
Non posso pensare nemmeno che il problema stia nel file incluso (head_hp_N.htm) in quanto nelle altre pagine viene incluso senza problemi (più sotto trovate il codice anche di quest'ultima).
Spero che qualcuno voglia molto pazientemente e gentilmente darmi una mano!
Grazie
Qui sotto inserisco il codice della pagina "avvenimenti_nel_gemonese.asp":
------------------------------
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<!-- #include virtual="/inc/variabili.asp" -->
<title>
AVVENIMENTI NEL GEMONESE
</title>
<META NAME="description"
CONTENT="EVENTI in FRIULI VENEZIA GIULIA">
<META NAME="keywords"
CONTENT="Eventi Manifestazioni Incontri Mostre Avvenimenti Festeggiamenti Sagre Feste Musei Convegni Rassegne Spettacoli Cinema Teatri Concerti Esposizioni Gemona Venzone Moggio Bordano Trasaghis Osoppo Forgaria Buia Buja Majano Artegna Montenars Festa della Zucca Festa del Maiale Festa delle Castagne Festa del Formaggio Agosto Medievale Feste autunnali">
<meta name="category"
content="eventi, turismo, infomazioni">
<META name=revisit-after
content="2 day">
<META HTTP-EQUIV="Content-Language"
CONTENT="IT">
<META NAME=author
CONTENT="Emiliano Rossi, NEXT01 srl">
<meta name="Copyright"
content="Emiliano Rossi">
<meta name="Doc-rights"
content="Copywritten Work">
<META NAME="ROBOTS"
CONTENT="ALL">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a.indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a;}}
}
//-->
</script>
<link href="ghp.css" rel="stylesheet" type="text/css">
<%
sub ScriviRisultato()
dim idprodotto
idprodotto = Request("idprodotto")
dim cn, rs, strSQL
set cn = Server.CreateObject("Adodb.Connection")
cn.Open strConnect
set rs = Server.CreateObject("Adodb.Recordset")
strSQL = "SELECT * FROM T_prodotti where idprodotto =" & IDprodotto
rs.Open strSQL, cn
%>
<table width="100%" cellspacing="0" cellpadding="0" border="0" width="100%" >
<tr>
<td align="center">
<%
if Rs.EOF then
Response.Write "<h3>Nessun risultato</h3>" & vbCRLF
exit sub
end if
%>
</td>
</tr>
<tr valign="top">
<td width="80%">
<table width="100%" class="lista" border="0" cellspacing="0" cellpadding="2">
<tr align="top">
<td>
<img src="public/img_primopiano/<%=rs("foto1")%>" width="200" height="200" hspace="0" vspace="0" border="1">
<br>
<a align="top"><%=rs("nome")%></a>
<br>
<a align="top">Dove:</a><a> <%=rs("azienda")%></a>
<br>
<a align="top">Quando:</a><a> <%=rs("data")%></a>
<br>
<a align="top">Genere:</a><a> <%=rs("idcategoria")%></a>
</td>
</tr>
<tr align="top">
<td align="top"><br><%=rs("descrizione")%></td>
</tr>
<tr align="top">
<td class="proddesc"> </td>
</tr>
</table>
</td>
</tr>
<% if Len(session("id_utente")) <> 0 then %>
<tr bgcolor="#ff3424" align="left"><td colspan="2">
<table width="100%" class="lista" border="0" cellspacing="0" cellpadding="2">
<tr valign="middle">
<td class="login" colspan="2" valign="top"><img align="middle" src="images/carrello.gif" height="19" width="19" alt="Aggiungi questo prodotto al carrello"> <a class="next" href="carrello.asp?id=<%=Rs("idprodotto")%>">Aggiungi questo prodotto al carrello</a></td>
<td align="right" class="login"> Prezzo: <%=rs("prezzo")%> €</td>
</tr>
</table>
</td>
</tr>
<% end if %>
</table>
<%
rs.Close
set rs = nothing
end sub
%>
</head>
<body>
<!--#include virtual="head_hp_N.htm"-->
<table width="770" border="0" align="center" cellpadding="2" cellspacing="0" bgcolor="#FF0000">
<tr>
<td height="10" colspan="2" bgcolor="#FFFFFF"></td>
</tr>
<tr>
<td width="250" background="img/bg_tit_aziende.gif" class="link_categorieAZ">Ultime Notizie dal GEMONESE</td>
<td width="520" height="16" class="link_preferiti"><a class="link_preferiti" title="Torna indietro alla homepage" href="http://www.gemonahomepage.it">Torna alla homepage</a> | <a class="link_preferiti" title="Segnala questa notizia dal Gemonese ad un amico" href="mailto:">Segnala ad un amico</a> | <a class="link_preferiti" title="Stampa questa notizia dal Gemonese" href="javascript:window.print()">Stampa questa pagina</a></td>
</tr>
</table>
<table width="770" class="TABLE_evento_NOborder" border="0" align="center" cellpadding="3" cellspacing="0" bgcolor="#FFFFFF">
<tr valign="top">
<td width="250" class="testo_nero11"><table width="100%" border="0" cellpadding="3" cellspacing="0" class="TABLE_evento">
<tr>
<td height="19" valign="top"><table border="0" cellpadding="0" cellspacing="0" width="100%">
<%
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("/mdb-database/notizie.mdb")
sqlstmt = "SELECT * FROM journal ORDER BY id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlstmt, DSNtemp, 3, 3
TotalRecs = rs.recordcount
x = 0
For x = 1 to 6
If rs.eof then
Exit For
Else
date1 = rs("pdate")
id = rs("ID")
name1 = rs("pname")
link = date1
loc = rs("ploc")
description = "<a href='notizie_dal_gemonese.asp?id=" & id & "'>" & name1 & "</a>"
%>
<tr>
<td height="18" class="link_categorieAZ"><% =link%>
<br>
<% =description%>
<br>
<span class="loc_eventi_hp">[
<% =loc%>
]</span></td>
</tr>
<tr>
<td height="7"></td>
</tr>
<%
rs.MoveNext
End If
Next%>
</table>
</table></td>
<td width="520" class="testo_nero11"><table width="100%" class="TABLE_evento_NOborder" border="0" align="center" cellpadding="3" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td class="testo_nero11"><span class="tit_notizie"><span class="articoli_testo">
<% ScriviRisultato() %>
</span> </span></td>
</tr>
<tr>
<td height="30" valign="bottom" class="testo_nero11"> </td>
</tr>
</table></td>
</tr>
</table>
<!--#include virtual="foot_pag_N.htm"-->
</body>
</html>
------------------------------
Qui inserisco il codice della pagina "head_hp_N.asp":
-----------------------------
<html>
<head>
<!-- INIZIO SCRIPT Aggiungi ai preferiti -->
<script language="JavaScript1.2">
//configure the two variables below to match yoursite's own info
var bookmarkurl="http://www.gemonahomepage.it"
var bookmarktitle="GEMONA DEL FRIULI - Informazioni turistiche, gli eventi, le migliori aziende"
function addbookmark(){
if (document.all)
window.external.AddFavorite(bookmarkurl,bookmarktitle)}
</script>
<!-- FINE SCRIPT Aggiungi ai preferiti -->
<!-- INIZIO SCRIPT FLASHING LINK SCRIPT: Questo script fa lampeggiare il testo o lo sfondo (istruzioni all'url http://www.dynamicdrive.com/dynamicindex5/flashlink.htm)-->
<script language="JavaScript1.2" type="text/javascript">
/***********************************************
* Flashing Link Script- © Dynamic Drive (www.dynamicdrive.com)
* This notice must stay intact for use
* Visit http://www.dynamicdrive.com/ for full source code
***********************************************/
var flashlinks=new Array()
function changelinkcolor(){
for (i=0; i< flashlinks.length; i++){
var flashtype=document.getElementById? flashlinks.getAttribute("flashtype")*1 : flashlinks.flashtype*1
var flashcolor=document.getElementById? flashlinks.getAttribute("flashcolor") : flashlinks.flashcolor
if (flashtype==0){
if (flashlinks.style.color!=flashcolor)
flashlinks.style.color=flashcolor
else
flashlinks.style.color=''
}
else if (flashtype==1){
if (flashlinks.style.backgroundColor!=flashcolor)
flashlinks.style.backgroundColor=flashcolor
else
flashlinks.style.backgroundColor=''
}
}
}
function init(){
var i=0
if (document.all){
while (eval("document.all.flashlink"+i)!=null){
flashlinks= eval("document.all.flashlink"+i)
i++
}
}
else if (document.getElementById){
while (document.getElementById("flashlink"+i)!=null){
flashlinks= document.getElementById("flashlink"+i)
i++
}
}
setInterval("changelinkcolor()", 1000)
}
if (window.addEventListener)
window.addEventListener("load", init, false)
else if (window.attachEvent)
window.attachEvent("onload", init)
else if (document.all)
window.onload=init
</script>
<!-- FINE SCRIPT FLASHING LINK SCRIPT -->
</head>
<body>
<div align="center">
<table width="770" height="80" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#333333">
<tr>
<td height="50" align="center" valign="middle"><div align="center"><!--#include virtual="aziende/ad.asp" --></div></td>
</tr>
</table>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FF0000">
<tr>
<td height="16">
<table width="770" border="0" cellspacing="0" cellpadding="1">
<tr valign="middle">
<td height="20" class="link_preferiti">
<div align="left"><a HREF title="Fai di www.gemonahomepage.it la Tua pagina iniziale" style="cursor:hand" onClick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.gemonahomepage.it');">GHP come homepage</a> | <a class="link_preferiti" title="Inserisci www.gemonahomepage.it tra i tuoi siti preferiti" href="javascript:addbookmark()">GHP come preferito</a> | <a class="link_preferiti" title="Segnala www.gemonahomepage.it ad un Amico" href="mailto:" id="flashlink0" flashtype=0 flashcolor="black">Dillo ad un Amico</a></div>
<div align="center"></div></td>
</tr>
<tr>
<td height="5" bgcolor="#D90000"></td>
</tr>
<tr>
<td height="70" bgcolor="#FFFFFF"><a href="http://www.gemonahomepage.it"><img src="http://www.gemonahomepage.it/imagesHOME/logo_gemonadelfriuli.gif" alt="Sei sul portale www.gemonahomepage.it dedicato alla citta di Gemona del Friuli ed al suo territorio!" width="768" height="70" hspace="0" vspace="0" border="0" align="left"></a></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
<tr bgcolor="#EBEBEB">
<td width="350" height="24" align="left" valign="middle"> <img src="http://www.gemonahomepage.it/immagini/login_aziende.gif" width="16" height="16" align="absmiddle"> <a title="Login all'AREA RISERVATA per le Aziende del Gemonese" href="http://www.gemonahomepage.it/aziende/login.asp" class="link_categorieAZ">Login AZIENDE</a></td>
<td width="420" class="testo_nero11" valign="middle"><div align="right">
<div align="right">
<%
strConnect = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/mdb-database/") & "/commerciale.mdb"
set cn = Server.CreateObject("Adodb.Connection")
cn.Open strConnect
set rs = server.CreateObject("adodb.recordset")
strsql="SELECT count(IDAzienda) as conta FROM tblAziende WHERE tblAziende.IsKilledAz=False"
rs.open strsql,cn
con = rs("conta")
rs.close
%>
<img src="http://www.gemonahomepage.it/aziende/images/cubo_nero.jpg" width="6" height="6">
Ci sono <strong><%= con%> </strong> aziende online |
<img src="http://www.gemonahomepage.it/aziende/images/cubo_nero.jpg" width="6" height="6">
Ci sono<strong> <%=response.write(Application("visitors"))%></strong> utenti online
</div></td>
</tr>
</table>
</body>
</html>
--------------------------
Non posso pensare nemmeno che il problema stia nel file incluso (head_hp_N.htm) in quanto nelle altre pagine viene incluso senza problemi (più sotto trovate il codice anche di quest'ultima).
Spero che qualcuno voglia molto pazientemente e gentilmente darmi una mano!
Grazie
Qui sotto inserisco il codice della pagina "avvenimenti_nel_gemonese.asp":
------------------------------
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<!-- #include virtual="/inc/variabili.asp" -->
<title>
AVVENIMENTI NEL GEMONESE
</title>
<META NAME="description"
CONTENT="EVENTI in FRIULI VENEZIA GIULIA">
<META NAME="keywords"
CONTENT="Eventi Manifestazioni Incontri Mostre Avvenimenti Festeggiamenti Sagre Feste Musei Convegni Rassegne Spettacoli Cinema Teatri Concerti Esposizioni Gemona Venzone Moggio Bordano Trasaghis Osoppo Forgaria Buia Buja Majano Artegna Montenars Festa della Zucca Festa del Maiale Festa delle Castagne Festa del Formaggio Agosto Medievale Feste autunnali">
<meta name="category"
content="eventi, turismo, infomazioni">
<META name=revisit-after
content="2 day">
<META HTTP-EQUIV="Content-Language"
CONTENT="IT">
<META NAME=author
CONTENT="Emiliano Rossi, NEXT01 srl">
<meta name="Copyright"
content="Emiliano Rossi">
<meta name="Doc-rights"
content="Copywritten Work">
<META NAME="ROBOTS"
CONTENT="ALL">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a.indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a;}}
}
//-->
</script>
<link href="ghp.css" rel="stylesheet" type="text/css">
<%
sub ScriviRisultato()
dim idprodotto
idprodotto = Request("idprodotto")
dim cn, rs, strSQL
set cn = Server.CreateObject("Adodb.Connection")
cn.Open strConnect
set rs = Server.CreateObject("Adodb.Recordset")
strSQL = "SELECT * FROM T_prodotti where idprodotto =" & IDprodotto
rs.Open strSQL, cn
%>
<table width="100%" cellspacing="0" cellpadding="0" border="0" width="100%" >
<tr>
<td align="center">
<%
if Rs.EOF then
Response.Write "<h3>Nessun risultato</h3>" & vbCRLF
exit sub
end if
%>
</td>
</tr>
<tr valign="top">
<td width="80%">
<table width="100%" class="lista" border="0" cellspacing="0" cellpadding="2">
<tr align="top">
<td>
<img src="public/img_primopiano/<%=rs("foto1")%>" width="200" height="200" hspace="0" vspace="0" border="1">
<br>
<a align="top"><%=rs("nome")%></a>
<br>
<a align="top">Dove:</a><a> <%=rs("azienda")%></a>
<br>
<a align="top">Quando:</a><a> <%=rs("data")%></a>
<br>
<a align="top">Genere:</a><a> <%=rs("idcategoria")%></a>
</td>
</tr>
<tr align="top">
<td align="top"><br><%=rs("descrizione")%></td>
</tr>
<tr align="top">
<td class="proddesc"> </td>
</tr>
</table>
</td>
</tr>
<% if Len(session("id_utente")) <> 0 then %>
<tr bgcolor="#ff3424" align="left"><td colspan="2">
<table width="100%" class="lista" border="0" cellspacing="0" cellpadding="2">
<tr valign="middle">
<td class="login" colspan="2" valign="top"><img align="middle" src="images/carrello.gif" height="19" width="19" alt="Aggiungi questo prodotto al carrello"> <a class="next" href="carrello.asp?id=<%=Rs("idprodotto")%>">Aggiungi questo prodotto al carrello</a></td>
<td align="right" class="login"> Prezzo: <%=rs("prezzo")%> €</td>
</tr>
</table>
</td>
</tr>
<% end if %>
</table>
<%
rs.Close
set rs = nothing
end sub
%>
</head>
<body>
<!--#include virtual="head_hp_N.htm"-->
<table width="770" border="0" align="center" cellpadding="2" cellspacing="0" bgcolor="#FF0000">
<tr>
<td height="10" colspan="2" bgcolor="#FFFFFF"></td>
</tr>
<tr>
<td width="250" background="img/bg_tit_aziende.gif" class="link_categorieAZ">Ultime Notizie dal GEMONESE</td>
<td width="520" height="16" class="link_preferiti"><a class="link_preferiti" title="Torna indietro alla homepage" href="http://www.gemonahomepage.it">Torna alla homepage</a> | <a class="link_preferiti" title="Segnala questa notizia dal Gemonese ad un amico" href="mailto:">Segnala ad un amico</a> | <a class="link_preferiti" title="Stampa questa notizia dal Gemonese" href="javascript:window.print()">Stampa questa pagina</a></td>
</tr>
</table>
<table width="770" class="TABLE_evento_NOborder" border="0" align="center" cellpadding="3" cellspacing="0" bgcolor="#FFFFFF">
<tr valign="top">
<td width="250" class="testo_nero11"><table width="100%" border="0" cellpadding="3" cellspacing="0" class="TABLE_evento">
<tr>
<td height="19" valign="top"><table border="0" cellpadding="0" cellspacing="0" width="100%">
<%
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("/mdb-database/notizie.mdb")
sqlstmt = "SELECT * FROM journal ORDER BY id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlstmt, DSNtemp, 3, 3
TotalRecs = rs.recordcount
x = 0
For x = 1 to 6
If rs.eof then
Exit For
Else
date1 = rs("pdate")
id = rs("ID")
name1 = rs("pname")
link = date1
loc = rs("ploc")
description = "<a href='notizie_dal_gemonese.asp?id=" & id & "'>" & name1 & "</a>"
%>
<tr>
<td height="18" class="link_categorieAZ"><% =link%>
<br>
<% =description%>
<br>
<span class="loc_eventi_hp">[
<% =loc%>
]</span></td>
</tr>
<tr>
<td height="7"></td>
</tr>
<%
rs.MoveNext
End If
Next%>
</table>
</table></td>
<td width="520" class="testo_nero11"><table width="100%" class="TABLE_evento_NOborder" border="0" align="center" cellpadding="3" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td class="testo_nero11"><span class="tit_notizie"><span class="articoli_testo">
<% ScriviRisultato() %>
</span> </span></td>
</tr>
<tr>
<td height="30" valign="bottom" class="testo_nero11"> </td>
</tr>
</table></td>
</tr>
</table>
<!--#include virtual="foot_pag_N.htm"-->
</body>
</html>
------------------------------
Qui inserisco il codice della pagina "head_hp_N.asp":
-----------------------------
<html>
<head>
<!-- INIZIO SCRIPT Aggiungi ai preferiti -->
<script language="JavaScript1.2">
//configure the two variables below to match yoursite's own info
var bookmarkurl="http://www.gemonahomepage.it"
var bookmarktitle="GEMONA DEL FRIULI - Informazioni turistiche, gli eventi, le migliori aziende"
function addbookmark(){
if (document.all)
window.external.AddFavorite(bookmarkurl,bookmarktitle)}
</script>
<!-- FINE SCRIPT Aggiungi ai preferiti -->
<!-- INIZIO SCRIPT FLASHING LINK SCRIPT: Questo script fa lampeggiare il testo o lo sfondo (istruzioni all'url http://www.dynamicdrive.com/dynamicindex5/flashlink.htm)-->
<script language="JavaScript1.2" type="text/javascript">
/***********************************************
* Flashing Link Script- © Dynamic Drive (www.dynamicdrive.com)
* This notice must stay intact for use
* Visit http://www.dynamicdrive.com/ for full source code
***********************************************/
var flashlinks=new Array()
function changelinkcolor(){
for (i=0; i< flashlinks.length; i++){
var flashtype=document.getElementById? flashlinks.getAttribute("flashtype")*1 : flashlinks.flashtype*1
var flashcolor=document.getElementById? flashlinks.getAttribute("flashcolor") : flashlinks.flashcolor
if (flashtype==0){
if (flashlinks.style.color!=flashcolor)
flashlinks.style.color=flashcolor
else
flashlinks.style.color=''
}
else if (flashtype==1){
if (flashlinks.style.backgroundColor!=flashcolor)
flashlinks.style.backgroundColor=flashcolor
else
flashlinks.style.backgroundColor=''
}
}
}
function init(){
var i=0
if (document.all){
while (eval("document.all.flashlink"+i)!=null){
flashlinks= eval("document.all.flashlink"+i)
i++
}
}
else if (document.getElementById){
while (document.getElementById("flashlink"+i)!=null){
flashlinks= document.getElementById("flashlink"+i)
i++
}
}
setInterval("changelinkcolor()", 1000)
}
if (window.addEventListener)
window.addEventListener("load", init, false)
else if (window.attachEvent)
window.attachEvent("onload", init)
else if (document.all)
window.onload=init
</script>
<!-- FINE SCRIPT FLASHING LINK SCRIPT -->
</head>
<body>
<div align="center">
<table width="770" height="80" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#333333">
<tr>
<td height="50" align="center" valign="middle"><div align="center"><!--#include virtual="aziende/ad.asp" --></div></td>
</tr>
</table>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FF0000">
<tr>
<td height="16">
<table width="770" border="0" cellspacing="0" cellpadding="1">
<tr valign="middle">
<td height="20" class="link_preferiti">
<div align="left"><a HREF title="Fai di www.gemonahomepage.it la Tua pagina iniziale" style="cursor:hand" onClick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.gemonahomepage.it');">GHP come homepage</a> | <a class="link_preferiti" title="Inserisci www.gemonahomepage.it tra i tuoi siti preferiti" href="javascript:addbookmark()">GHP come preferito</a> | <a class="link_preferiti" title="Segnala www.gemonahomepage.it ad un Amico" href="mailto:" id="flashlink0" flashtype=0 flashcolor="black">Dillo ad un Amico</a></div>
<div align="center"></div></td>
</tr>
<tr>
<td height="5" bgcolor="#D90000"></td>
</tr>
<tr>
<td height="70" bgcolor="#FFFFFF"><a href="http://www.gemonahomepage.it"><img src="http://www.gemonahomepage.it/imagesHOME/logo_gemonadelfriuli.gif" alt="Sei sul portale www.gemonahomepage.it dedicato alla citta di Gemona del Friuli ed al suo territorio!" width="768" height="70" hspace="0" vspace="0" border="0" align="left"></a></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
<tr bgcolor="#EBEBEB">
<td width="350" height="24" align="left" valign="middle"> <img src="http://www.gemonahomepage.it/immagini/login_aziende.gif" width="16" height="16" align="absmiddle"> <a title="Login all'AREA RISERVATA per le Aziende del Gemonese" href="http://www.gemonahomepage.it/aziende/login.asp" class="link_categorieAZ">Login AZIENDE</a></td>
<td width="420" class="testo_nero11" valign="middle"><div align="right">
<div align="right">
<%
strConnect = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/mdb-database/") & "/commerciale.mdb"
set cn = Server.CreateObject("Adodb.Connection")
cn.Open strConnect
set rs = server.CreateObject("adodb.recordset")
strsql="SELECT count(IDAzienda) as conta FROM tblAziende WHERE tblAziende.IsKilledAz=False"
rs.open strsql,cn
con = rs("conta")
rs.close
%>
<img src="http://www.gemonahomepage.it/aziende/images/cubo_nero.jpg" width="6" height="6">
Ci sono <strong><%= con%> </strong> aziende online |
<img src="http://www.gemonahomepage.it/aziende/images/cubo_nero.jpg" width="6" height="6">
Ci sono<strong> <%=response.write(Application("visitors"))%></strong> utenti online
</div></td>
</tr>
</table>
</body>
</html>
--------------------------
