Ciao, non riesco a venire a capo di un problema con una pagina dalla quale, attraverso più include, recupero dati da tabelle appartenenti a tre database diversi.
Lo schema è questo:
Homepage
>include NEWS (le ultime 4 prese da database News)
>include EVENTS (gli ultimi 4, da altro database Resources)
>include LAST 5 FORUM POSTS (da database Snitz Forum)
e potrei finire la pagina, come da richiesta del cliente, aggiungendo due altri include, se non avessi il bel messaggio:
Ho impostato gli include con un'area ripetuta in MX 2004, capisco che l'errore si trova su events-bottom.asp, ma più mi scervello, meno capisco come sbloccare la situazione.Microsoft VBScript compilation error '800a0411'
Name redefined
/pages/events-bottom.asp, line 20
Dim Repeat1__numRows
----^
Posto il codice e ringrazio in anticipo chi mi vorrà aiutare a capire:
Questo è il codice del primo include,homepage
<html>
<head>
<title>Welcome to lightingdesigners.eu</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<META content=en name=content-language>
<link rel="stylesheet" href="styles/style.css" type="text/css">
<script language="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[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>
</head>
<body onLoad="MM_preloadImages('img-menu/menu-about-1.gif','img-menu/menu-home-1.gif','img-menu/menu-jobs-1.gif','img-menu/menu-news-1.gif','img-menu/menu-resources-1.gif','img-menu/menu-upclose-1.gif')">
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0" class="tablebkg" bgcolor="#E8E8E8">
<tr>
<td colspan="9"></td>
</tr>
<tr>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
</tr>
<tr>
<td colspan="2"> </td>
<td colspan="5" align="center" class="testo"> </td>
<td colspan="2" valign="middle" align="center" class="news"><font face="Verdana, Arial, Helvetica, sans-serif"
size=1><font
face="Verdana, Arial, Helvetica, sans-serif" size=1>
</font></font></td>
</tr>
<tr>
<td colspan="2" valign="top" rowspan="2">
<p align="center"></p>
</p> </td>
<td colspan="5">
<table border="0" cellpadding="5" cellspacing="0" bgcolor="#E8E8E8">
<tr>
<td valign="top"><table width="100%" border="0">
<tr>
<td>
<div align="center"><span class="titoloBlu">[img]img-menu/section-news.jpg[/img]</span></div>
</td>
</tr>
<tr>
<td> <div align="center">
<table width="480" border="0">
<tr>
<td align="right" valign="middle"><span class="testopiccologrigio">check the archives for more headlines</span> [img]img-menu/menu-next.gif[/img]</td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td>[img]img-menu/section-events.jpg[/img]</td>
</tr>
<tr>
<td height="17">
<table width="480" border="0">
<tr>
<td align="right" valign="middle"><span class="testopiccologrigio">check the archives for more events</span> [img]img-menu/menu-next.gif[/img]</td>
</tr>
</table>
</td>
</tr>
<tr>
<td>[img]img-menu/section-forum.jpg[/img] </td>
</tr>
<tr>
<td class="testo">
</td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td>[img]img-menu/section-resources.jpg[/img]</td>
</tr>
<tr>
<td>
<table width="480" border="0">
<tr>
<td align="right" valign="middle"><span class="testopiccologrigio">check the archives for more resources</span> [img]img-menu/menu-next.gif[/img]</td>
</tr>
</table>
</td>
</tr>
</table>
<div align="right">
<p class="testo"></p>
</div> </td>
</tr>
</table>
</td>
<td colspan="2" valign="top" rowspan="2">
<table cellspacing=0 cellpadding=0 width="100%"
border=0>
<tbody>
<tr>
<td bgcolor=#FFFFFF>
<table cellspacing=1 cellpadding=0 width="100%"
border=0>
<tbody>
<tr>
<td bgcolor=#e5e6ea>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
<p align="center"></p>
<p align="center">
</td>
</tr>
<tr>
<td colspan="5"></td>
</tr>
<tr>
<td colspan="9" height="10"></td>
</tr>
<tr>
<td colspan="2" align="center"></td>
<td colspan="5" class="copyright">
</p>
</td>
<td colspan="2" valign="middle" align="center"></td>
</tr></table>
</body>
</html>
e questo è quello del secondonews-top4.asp
<%
Dim MM_connTopNews_STRING
MM_connTopNews_STRING = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/mdb-database/1256789s.mdb")
%>
<%
Dim rsTopNews
Dim rsTopNews_numRows
Set rsTopNews = Server.CreateObject("ADODB.Recordset")
rsTopNews.ActiveConnection = MM_connTopNews_STRING
rsTopNews.Source = "SELECT TOP 4 * FROM tblQNArticles ORDER BY ArticleActive DESC"
rsTopNews.CursorType = 0
rsTopNews.CursorLocation = 2
rsTopNews.LockType = 1
rsTopNews.Open()
rsTopNews_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 10
Repeat1__index = 0
rsTopNews_numRows = rsTopNews_numRows + Repeat1__numRows
%>
<link href="../styles/style.css" rel="stylesheet" type="text/css">
<%
While ((Repeat1__numRows <> 0) AND (NOT rsTopNews.EOF))
%>
<table width="480" border="0" class="tabledot">
<tr>
<td width="10"></td>
<td width="152" rowspan="3" align="left" valign="top">
" target="_blank">[img]<%=(rsTopNews.Fields.Item([/img]" border="0" alt="<%=(rsTopNews.Fields.Item("ArticleName").Valu e)%>"> <div align="center"><span class="testo"> </span></div></td>
<td width="10"></td>
<td><div align="left"><span class="titoloRisorse"><%=(rsTopNews.Fields.Item("A rticleName").Value)%></span></div>
</td>
<td width="10"></td>
</tr>
<tr>
<td width="10"></td>
<td width="10"></td>
<td class="testo" valign="top"><div align="left"><span class="testopiccologrigio"><%=(rsTopNews.Fields.It em("ArticleActive").Value)%></span></div></td>
<td width="10"></td>
</tr>
<tr>
<td width="10" height="10"></td>
<td width="10" height="10"></td>
<td height="10"><div align="left"><span class="testo"><%=(rsTopNews.Fields.Item("ArticleDa ta").Value)%> [" class="linkregular" target="_blank">read more] </span></div></td>
<td width="10" height="10"></td>
</tr>
<tr>
<td width="10"></td>
<td colspan="3" valign="middle" class="testo"><div align="center"> </div></td>
<td width="10"></td>
</tr>
</table>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsTopNews.MoveNext()
Wend
%>
<%
rsTopNews.Close()
Set rsTopNews = Nothing
%>
events-bottom.asp
<%
Dim MM_connEvents_STRING
MM_connEvents_STRING = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/mdb-database/resources.mdb")
%>
<%
Dim rsEvents
Dim rsEvents_numRows
Set rsEvents = Server.CreateObject("ADODB.Recordset")
rsEvents.ActiveConnection = MM_connEvents_STRING
rsEvents.Source = "SELECT TOP 5 * FROM events ORDER BY DDMMYY DESC"
rsEvents.CursorType = 0
rsEvents.CursorLocation = 2
rsEvents.LockType = 1
rsEvents.Open()
rsEvents_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 10
Repeat1__index = 0
rsEvents_numRows = rsEvents_numRows + Repeat1__numRows
%>
<%
While ((Repeat1__numRows <> 0) AND (NOT rsEvents.EOF))
%>
<table width="480" border="0" class="tabledot">
<tr>
<td width="10"></td>
<td width="152" rowspan="3" align="left" valign="top"> " target="_blank">[img]<%=(rsEvents.Fields.Item([/img]" border="0" alt="<%=(rsEvents.Fields.Item("Titolo").Value)%>">
<div align="center"><span class="testo"> </span></div></td>
<td width="10"></td>
<td><div align="left"><span class="titoloRisorse"><%=(rsEvents.Fields.Item("Ti tolo").Value)%></span></div></td>
<td width="10"></td>
</tr>
<tr>
<td width="10"></td>
<td width="10"></td>
<td class="testo" valign="top"><div align="left"><span class="testopiccologrigio"><%=(rsEvents.Fields.Ite m("DDMMYY").Value)%></span></div></td>
<td width="10"></td>
</tr>
<tr>
<td width="10" height="10"></td>
<td width="10" height="10"></td>
<td height="10"><div align="left"><span class="testo"><%=(rsEvents.Fields.Item("Descrizion eENG").Value)%> [" class="linkregular" target="_blank">more] </span></div></td>
<td width="10" height="10"></td>
</tr>
<tr>
<td width="10"></td>
<td colspan="3" valign="middle" class="testo"><div align="center"> </div></td>
<td width="10"></td>
</tr>
</table>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsEvents.MoveNext()
Wend
%>
<%
rsEvents.Close()
Set rsEvents = Nothing
%>
Ogni consiglio è gradito, grazie in aticipo
Rispondi quotando
