Non c'è nessun apostrofo.
Sulla sintassi non saprei cosa dire: utilizzo dreamweaver che fa tutto da solo e di solito senza problemi.
Ma il problema della ripetizione del testo di un campo è ricorrente.
Inserisco tutto il codice della pagina sperando che qualcuno mi sappia dire dov'è l'errore.
codice:
<%@LANGUAGE="VBSCRIPT"%>
<%
Dim foto__MMColParam
foto__MMColParam = "1"
If (Request.QueryString("IdRecord") <> "") Then
foto__MMColParam = Request.QueryString("IdRecord")
End If
%>
<%
Dim foto
Dim foto_numRows
Set foto = Server.CreateObject("ADODB.Recordset")
foto.ActiveConnection = MM_amici_STRING
foto.Source = "SELECT * FROM foto WHERE IdRecord = '" + Replace(foto__MMColParam, "'", "''") + "'"
foto.CursorType = 0
foto.CursorLocation = 2
foto.LockType = 1
foto.Open()
foto_numRows = 0
%>
<%
Dim miniature
Dim miniature_numRows
Set miniature = Server.CreateObject("ADODB.Recordset")
miniature.ActiveConnection = MM_amici_STRING
miniature.Source = "SELECT * FROM foto"
miniature.CursorType = 0
miniature.CursorLocation = 2
miniature.LockType = 1
miniature.Open()
miniature_numRows = 0
%>
<%
Dim HLooper1__numRows
HLooper1__numRows = 4
Dim HLooper1__index
HLooper1__index = 0
miniature_numRows = miniature_numRows + HLooper1__numRows
%>
<%
Dim MM_paramName
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth
Dim MM_removeList
Dim MM_item
Dim MM_nextItem
' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If
MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""
' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
End If
Next
' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
End If
Next
' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then
MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "") Then
MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If
' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
If (firstItem <> "") Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>
<% Dim rrSource_miniature, rrRecCount_miniature, re_miniature
Set re_miniature = New regexp
re_miniature.Pattern = "SELECT (.*) FROM "
re_miniature.Global = False
re_miniature.IgnoreCase = True
rrSource_miniature="Select Count(*) as RecCount From " & re_miniature.Replace(miniature.Source,"")
rrRecCount_miniature=CInt(miniature.ActiveConnection.Execute(rrSource_miniature)("RecCount"))
Set rrSource_miniature = Nothing
Set re_miniature = Nothing
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Disabili mentali: amici senza limiti</title>
<meta name="keywords" content="disabili mentali persone con disabilità handicap gli amici comunità di sant'egidio abbasso il grigio il vangelo per tutti trattoria degli amici" />
<meta name="description" content="Sito de Gli Amici il movimento dei disabili mentali della comunit´ di Sant'Egidio" />
<script language="text/javascript" src="../script/script.js" type="text/javascript"></script>
<link href="../stili/tag.css" rel="stylesheet" type="text/css" />
<link href="../stili/comune.css" rel="stylesheet" type="text/css" />
<link href="../stili/sezioni.css" rel="stylesheet" type="text/css" />
<script language="JavaScript" type="text/javascript" src="../script/script.js"></script>
<link href="../stili/print.css" rel="stylesheet" type="text/css" media="print" />
<meta name="robots" content="INDEX, FOLLOW" />
<meta name="revisit-after" content="3 days" />
<meta name="document-state" content="Dynamic" />
</head>
<body>
<div id="contenitore">
<div id="menuservizio"> News Rassegna stampaDocumentiImmaginiLinkCerca Contattaci
Dimensione testo a a a
<div id="linksolotestoyes">Solo testo</div>
<div id="linksolotestono">Navigazione normale</div> </div>
<div id="header">
<div id="logo">
[img]../handicap/logo/fabio.jpg[/img]</p>
Home page</p>
</div>
<div id="cta">[img]../handicap/logo/logocta.gif[/img]
</div>
<div id="testata">[img]../handicap/it_testata.gif[/img] </div>
<div id="testatasolotesto"><h1>Disabili mentali: amici senza limiti
La voce degli Amic</h1></div>
<div align="left"></div>
</div>
<div id="menusezioni">
<div class="titsezioni"><a href="http://www.santegidio.org/it/index.html" target="_blank">La Comunità
di Sant'Egidio </a> </div>
<div class="titsezionecorrente"><a href="../index.asp"> La voce
degli Amici </a> </div>
<div class="titsezioni"><a href="../egidio/index.htm">Sant'Egidio
e i disabili</a> </div>
<div class="titsezioni"><a href="../amici/index.htm">Gli Amici
</a> </div>
<div class="titsezioni"><a href="../vangelo/index.htm">Il Vangelo
e i disabili</a> </div>
<div class="titsezioni"><a href="../abbassoilgrigio/index.htm">Abbasso
il grigio!</a> </div>
<div class="titsezioni"><a href="../trattoria/index.htm">La trattoria
degli Amici</a> </div>
</div>
<div id="contenitoresezioni">
<div id="navigation">
<div class="navbasic">
<h2><a href="../index.asp">La voce
degli Amici</a> </h2>
News</p>
Rassegna stampa </p>
Documenti</p>
Immagini</p>
Link</p>
<h3>Rubriche</h3>
<a href="indexdomenica.asp">La domenica
con Gesù</a></p>
L'artista della settimana</p>
Anche le foto parlano</p>
Un'idea per... </p>
</div>
</div>
<div id="content2col">
<div align="center">
<h2 >Anche le foto parlano </h2>
[img]../handicap/fotoparlano/<%=(foto.Fields.Item([/img]" alt="<%=(foto.Fields.Item("Titolo").Value)%>" />
<h3 align="center"><%=(foto.Fields.Item("Titolo").Value)%></h3>
<p align="center"><%=(foto.Fields.Item("Sottotitolo").Value)%></p>
<p align="center"></p>
<p align="center"><%=(foto.Fields.Item("Autore").Value)%></p>
<p align="center"><%=(foto.Fields.Item("Agenzia").Value)%></p>
<p align="center"><%=(foto.Fields.Item("collana").Value)%></p>
<p align="center"></p>
<% miniature.MoveFirst
Randomize
miniature.Move(Int((rrRecCount_miniature * Rnd) + 0)) %>
<table>
<%
startrw = 0
endrw = HLooper1__index
numberColumns = 2
numrows = 2
while((numrows <> 0) AND (Not miniature.EOF))
startrw = endrw + 1
endrw = endrw + numberColumns
%>
<tr align="center" valign="top">
<%
While ((startrw <= endrw) AND (Not miniature.EOF))
%>
<td><p align="center">
">[img]../handicap/fotoparlano/<%=(miniature.Fields.Item([/img]" alt="<%=(miniature.Fields.Item("Titolo archivio").Value)%>" class="miniaturefoto" />
</p></td>
<%
startrw = startrw + 1
miniature.MoveNext()
Wend
%>
</tr>
<%
numrows=numrows-1
Wend
%>
</table><% miniature.MoveFirst 'RandomRecord_tail miniature %></p>
<p align="center"></p>
</div>
</div>
</div>
</div>
<div id="footer"> Copyright Comunità di Sant'Egidio 1999 - 2006<span>
</span>
</div>
<div id="linkalsito"><h3>Hai stampato una pagina del sito www.santegidio.org</h3></div>
<script src="http://www.google-analytics.com/urchin.js" type="text/javascript">
</script>
<script type="text/javascript">
_uacct = "UA-130689-6";
urchinTracker();
</script>
</body>
</html>
<%
foto.Close()
Set foto = Nothing
%>
<%
miniature.Close()
Set miniature = Nothing
%>