Si ma me lo ripete per sette volte
vedi il cod completo:

codice:
Set naveRec = Server.CreateObject("ADODB.RecordSet")
if giorno = "" then
naveSQL = "SELECT * FROM traghetti WHERE linkid = " & linkrec("linkid") & " ORDER BY orapartenza ASC;"
else
naveSQL = "SELECT * FROM traghetti WHERE linkid = " & linkrec("linkid") & " and datadal <= #" & giornosql &"# and dataal >= #" & giornosql &"# ORDER BY orapartenza ASC;"
end if

naveRec.Open naveSQL, objConn, 3, 3, 1
If not naveRec.BOF then
Response.Write ("<table class=""bordo space testo"" id=""nave"&linkrec("linkid")&"""><tr>"&vbnewline)
Response.Write ("<td style=""width:150px;"">Orario valido dal - al")
Response.Write ("<td style=""width:120px;"">Partenza - Arrivo</td>")
Response.Write ("<td style=""width:60px;"">Durata</td>")
Response.Write ("<td style=""width:130px;"">Tratta</td>")
Response.Write ("<td style=""width:160px;"">Note</td>")
Response.Write ("<td style=""width:60px;"">Prenota</td>")
Response.Write ("</tr>"&vbnewline)
else
if not giorno = "" then
Response.Write ("<p style=""font-size:10pt"">E' possibile che nella data scelta non siano disponibili partenze o che non siano stati pubblicati gli orari per questa compagnia di traghetti</p>"&vbnewline)
'response.write navesql
end if
End If
i=0
Do While Not naveRec.EOF
NoResults = False
if pagina = "principale" then
%><tr id="nave<%=naveRec("traghettiid")%>">
<td><%=naveRec("datadal")%> - <%=naveRec("dataal")%></td>
<td><%=formatDateTime(naveRec("orapartenza"), vbShortTime)%> - <%=formatDateTime((naveRec("orapartenza") + naveRec("durata")), vbShortTime)%></td>
<td><%=formatDateTime(naveRec("durata"), vbShortTime)%></td>
<td><%=naveRec("portopartenza")%> - <%=naveRec("portoarrivo")%></td>
<td><% if naveRec("lunedi") = false then%>Non si effettua il luned&igrave;
<%else%><%end if%>
<% if naveRec("martedi") = false then%>Non si effettua il marted&igrave;
<%else%><%end if%>
<% if naveRec("mercoledi") = false then%>Non si effettua il mercoled&igrave;
<%else%><%end if%>
<% if naveRec("giovedi") = false then%>Non si effettua il gioved&igrave;
<%else%><%end if%>
<% if naveRec("venerdi") = false then%>Non si effettua il venerd&igrave;
<%else%><%end if%>
<% if naveRec("sabato") = false then%>Non si effettua il sabato
<%else%><%end if%>
<% if naveRec("domenica") = false then%>Non si effettua la domenica
<%else%><%end if%></td>
<td><% if naveRec("linkid") = "498" then%>">Prenota<%end if%></td>
</tr><% 
i=i+1
naveRec.MoveNext
Loop
If not naveRec.BOF then
Response.Write ("</table>" & vbnewline)
End If
naveRec.close
end if

'/traghetti

Response.Write ("</div>" & vbNewline )%><%
	linkRec.MoveNext
	linkcount = linkcount + 1
	Wend
	end if
	linkRec.Close
	Response.Write "
" & pgHTML
%>