Ciao mrdev,
in alcune pagine mi dà questo tipo di errore. Mi sai dire qualcosa?
-------------------------------------------------------------------
Informazioni tecniche (per il personale del supporto tecnico)
Tipo di errore:
ADODB.Recordset (0x800A0BCD)
Il record corrente corrisponde all'inizio o alla fine del file oppure è stato eliminato. Per eseguire l'operazione richiesta è necessario disporre di un record corrente.
/easytouritalia/p_mer_00_acc.asp, line 40
Tipo di browser:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322; InfoPath.1)
Pagina:
GET /easytouritalia/p_mer_00_acc.asp
------------------------------------------------------------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/Regioni.asp" -->
<%
Dim EasyTour
Dim EasyTour_numRows
' AGGIUNGI QUESTE RIGHE
showPage=5 'numero di pagine visualizzate
dim serie
serie=1
if len(trim(request.querystring("s")))>0 then
serie=cint(request.querystring("s"))
end if
dim page
if trim(request.querystring("page")) <> "" then
page = cint(request.querystring("page"))
else
page = (serie * showPage) - (showPage -1)
end if
'''''COMMENTA QUESTA RIGA (ho messo più ' per evidenziarla)
'''''showPage=5 'numero di pagine visualizzate
'showPage=5 'numero di pagine visualizzate
Set EasyTour = Server.CreateObject("ADODB.Recordset")
EasyTour.ActiveConnection = MM_Regioni_STRING
EasyTour.Source = "SELECT * FROM Mercatino WHERE dati='ok' and t like '%accessori%' ORDER BY Reg ASC, pr ASC"
EasyTour.CursorType = 3 ' = adOpenStatic
EasyTour.CursorLocation = 2
EasyTour.LockType = 1
EasyTour.Open()
EasyTour.PageSize = showPage
EasyTour.AbsolutePage = page
EasyTour_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 10
Repeat1__index = 0
EasyTour_numRows = EasyTour_numRows + Repeat1__numRows
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
Dim EasyTour_total
Dim EasyTour_first
Dim EasyTour_last
' set the record count
EasyTour_total = EasyTour.RecordCount
' set the number of rows displayed on this page
If (EasyTour_numRows < 0) Then
EasyTour_numRows = EasyTour_total
Elseif (EasyTour_numRows = 0) Then
EasyTour_numRows = 1
End If
' set the first and last displayed record
EasyTour_first = 1
EasyTour_last = EasyTour_first + EasyTour_numRows - 1
' if we have the correct record count, check the other stats
If (EasyTour_total <> -1) Then
If (EasyTour_first > EasyTour_total) Then
EasyTour_first = EasyTour_total
End If
If (EasyTour_last > EasyTour_total) Then
EasyTour_last = EasyTour_total
End If
If (EasyTour_numRows > EasyTour_total) Then
EasyTour_numRows = EasyTour_total
End If
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them
If (EasyTour_total = -1) Then
' count the total records by iterating through the recordset
EasyTour_total=0
While (Not EasyTour.EOF)
EasyTour_total = EasyTour_total + 1
EasyTour.MoveNext
Wend
' reset the cursor to the beginning
If (EasyTour.CursorType > 0) Then
EasyTour.MoveFirst
Else
EasyTour.Requery
End If
' set the number of rows displayed on this page
If (EasyTour_numRows < 0 Or EasyTour_numRows > EasyTour_total) Then
EasyTour_numRows = EasyTour_total
End If
' set the first and last displayed record
EasyTour_first = 1
EasyTour_last = EasyTour_first + EasyTour_numRows - 1
If (EasyTour_first > EasyTour_total) Then
EasyTour_first = EasyTour_total
End If
If (EasyTour_last > EasyTour_total) Then
EasyTour_last = EasyTour_total
End If
End If
%>
<%
Dim MM_paramName
%>
<%
' *** Move To Record and Go To Record: declare variables
Dim MM_rs
Dim MM_rsCount
Dim MM_size
Dim MM_uniqueCol
Dim MM_offset
Dim MM_atTotal
Dim MM_paramIsDefined
Dim MM_param
Dim MM_index
Set MM_rs = EasyTour
MM_rsCount = EasyTour_total
MM_size = EasyTour_numRows
MM_uniqueCol = ""
MM_paramName = ""
MM_offset = 0
MM_atTotal = false
MM_paramIsDefined = false
If (MM_paramName <> "") Then
MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")
End If
%>
<%
' *** Move To Record: handle 'index' or 'offset' parameter
if (Not MM_paramIsDefined And MM_rsCount <> 0) then
' use index parameter if defined, otherwise use offset parameter
MM_param = Request.QueryString("index")
If (MM_param = "") Then
MM_param = Request.QueryString("offset")
End If
If (MM_param <> "") Then
MM_offset = Int(MM_param)
End If
' if we have a record count, check if we are past the end of the recordset
If (MM_rsCount <> -1) Then
If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last
If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region
MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
Else
MM_offset = MM_rsCount - MM_size
End If
End If
End If
' move the cursor to the selected record
MM_index = 0
While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1))
MM_rs.MoveNext
MM_index = MM_index + 1
Wend
If (MM_rs.EOF) Then
MM_offset = MM_index ' set MM_offset to the last possible record
End If
End If
%>
<%
' *** Move To Record: if we dont know the record count, check the display range
If (MM_rsCount = -1) Then
' walk to the end of the display range for this page
MM_index = MM_offset
While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size))
MM_rs.MoveNext
MM_index = MM_index + 1
Wend
' if we walked off the end of the recordset, set MM_rsCount and MM_size
If (MM_rs.EOF) Then
MM_rsCount = MM_index
If (MM_size < 0 Or MM_size > MM_rsCount) Then
MM_size = MM_rsCount
End If
End If
' if we walked off the end, set the offset based on page size
If (MM_rs.EOF And Not MM_paramIsDefined) Then
If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then
If ((MM_rsCount Mod MM_size) > 0) Then
MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
Else
MM_offset = MM_rsCount - MM_size
End If
End If
End If
' reset the cursor to the beginning
If (MM_rs.CursorType > 0) Then
MM_rs.MoveFirst
Else
MM_rs.Requery
End If
' move the cursor to the selected record
MM_index = 0
While (Not MM_rs.EOF And MM_index < MM_offset)
MM_rs.MoveNext
MM_index = MM_index + 1
Wend
End If
%>
<%
' *** Move To Record: update recordset stats
' set the first and last displayed record
EasyTour_first = MM_offset + 1
EasyTour_last = MM_offset + MM_size
If (MM_rsCount <> -1) Then
If (EasyTour_first > MM_rsCount) Then
EasyTour_first = MM_rsCount
End If
If (EasyTour_last > MM_rsCount) Then
EasyTour_last = MM_rsCount
End If
End If
' set the boolean used by hide region to check if we are on the last record
MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
%>
<%
' *** 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
%>
<%
' *** Move To Record: set the strings for the first, last, next, and previous links
Dim MM_keepMove
Dim MM_moveParam
Dim MM_moveFirst
Dim MM_moveLast
Dim MM_moveNext
Dim MM_movePrev
Dim MM_urlStr
Dim MM_paramList
Dim MM_paramIndex
Dim MM_nextParam
MM_keepMove = MM_keepBoth
MM_moveParam = "index"
' if the page has a repeated region, remove 'offset' from the maintained parameters
If (MM_size > 1) Then
MM_moveParam = "offset"
If (MM_keepMove <> "") Then
MM_paramList = Split(MM_keepMove, "&")
MM_keepMove = ""
For MM_paramIndex = 0 To UBound(MM_paramList)
MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=") - 1)
If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then
MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex)
End If
Next
If (MM_keepMove <> "") Then
MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
End If
End If
End If
' set the strings for the move to links
If (MM_keepMove <> "") Then
MM_keepMove = Server.HTMLEncode(MM_keepMove) & "&"
End If
MM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="
MM_moveFirst = MM_urlStr & "0"
MM_moveLast = MM_urlStr & "-1"
MM_moveNext = MM_urlStr & CStr(MM_offset + MM_size)
If (MM_offset - MM_size < 0) Then
MM_movePrev = MM_urlStr & "0"
Else
MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size)
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="keywords" content="valle d'aosta,piemonte,liguria,lombardia,trentino,alto adige,friuli,venezia giulia,emilia,romagna,toscana,umbria,marche,abruzzo,molise,lazio,campania,puglia,basilicata,calabria,sicilia,sardegna,san marino,agriturismo,turismo,easy,crociere,roulotte,caravan,pick-up,camper,camper service,italia,campeggi,ristoranti,hotel,residence,villaggi,bed AND breakfast,b AND b,affittacamere,mercatino">
<META NAME =description CONTENT="EasyTourItalia.com: Il Portale del Turista. Tutto quello che vi interessa sul Turismo in Italia. Potrete inoltre trovare anche altri riferimenti su dove mangiare, dove dormire... turismo easy crociere roulotte caravan pick-up camper camper service italia campeggi ristoranti hotel agriturismo resicence villaggi bed & breakfast b&b affittacamere mercatino usato">
<META NAME ="revisit-after" content="1 weeks">
<META NAME ="robots" content="index,follow">
<META HTTP-EQUIV="keywords" CONTENT="valle d'aosta,piemonte,liguria,lombardia,trentino,alto adige,friuli,venezia giulia,emilia,romagna,toscana,umbria,marche,abruzzo,molise,lazio,campania,puglia,basilicata,calabria,sicilia,sardegna,san marino,agriturismo,turismo,easy,crociere,roulotte,caravan,pick-up,camper,camper service,italia,campeggi,ristoranti,hotel,residence,villaggi,bed AND breakfast,b AND b,affittacamere,mercatino">
<title>*** Easy Tour Italia - Il portale del Turista ***</title>
<style type="text/css">
<!--
.Stile1 {
font-size: 24px;
color: #FFFFFF;
font-weight: bold;
font-family: Arial, Helvetica, sans-serif;
}
.Stile3 {font-family: Arial, Helvetica, sans-serif}
.Stile5 {font-size: 12px; font-weight: bold; }
a:link {
color: #000099;
text-decoration: none;
}
a:visited {
color: #000099;
text-decoration: none;
}
a:hover {
color: #FF0000;
text-decoration: none;
}
a:active {
text-decoration: none;
}
.Stile9 {
font-family: Arial, Helvetica, sans-serif;
font-size: 12px;
font-weight: bold;
}
.Stile16 {font-size: 12px; font-weight: bold; color: #FF0000; }
.Stile18 {
color: #000099;
font-size: 24px;
font-weight: bold;
}
.Stile21 {font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold; color: #330099; }
.Stile22 {font-size: 24px; color: #330099; font-weight: bold; }
.Stile25 {color: #FF0000}
.Stile26 {color: #009999}
.Stile27 {
color: #999999;
font-weight: bold;
}
-->
</style>
<script src="Scripts/AC_RunActiveContent.js" type="text/javascript"></script>
</head>
<body>
<table width="100%" height="989" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr valign="middle" bgcolor="#CCFFCC">
<td height="19" colspan="3"><!--DWLayoutEmptyCell--> </td>
</tr>
<tr valign="middle">
<td height="19" colspan="3"><!--DWLayoutEmptyCell--> </td>
</tr>
<tr valign="middle">
<td height="70" colspan="3"> <div align="center">
<script type="text/javascript">
AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0','width','310','height','64','src','images/z_easytouritalia','quality','high','pluginspage','http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash','bgcolor','','movie','images/z_easytouritalia' ); //end AC code
</script><noscript><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="310" height="64">
<param name="BGCOLOR" value="">
<param name="movie" value="images/z_easytouritalia.swf">
<param name="quality" value="high">
<embed src="images/z_easytouritalia.swf" quality="high" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="310" height="64" ></embed>
</object></noscript>
</div></td>
</tr>
<tr valign="middle">
<td height="19" colspan="3"><!--DWLayoutEmptyCell--> </td>
</tr>
<tr valign="middle" bgcolor="#CCFFCC">
<td height="19" colspan="3"> <div align="right"><span class="Stile1"><span class="Stile26">Italia</span> - Marcatino - <span class="Stile25">Accessori</span> </span></div></td>
</tr>
<tr valign="middle">
<td height="19" colspan="3"><!--DWLayoutEmptyCell--> </td>
</tr>
<tr>
<td width="15%" height="780" valign="top"><table width="118%" border="0" cellpadding="0" cellspacing="0" bordercolor="#CCFFFF">
<!--DWLayoutTable-->
<tr>
<td width="137" height="696" valign="top" bordercolor="#CCFFFF"><table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#CCFFCC">
<tr>
<td height="19" align="left" valign="middle" bgcolor="#CCFFCC" class="Stile5 Stile3"><div align="center">Regioni</div></td>
</tr>
<tr>
<td height="15" align="left" valign="middle"><div align="center" class="Stile3">
<div align="center"><span class="Stile5 Stile3"><a href="p_riv_01_acc.asp">Valle d'Aosta </a></span></div>
</div></td>
</tr>
<tr>
<td height="15" align="left" valign="middle"><div align="center"><span class="Stile5 Stile3"><a href="p_riv_02_acc.asp">Piemonte</a></span></div></td>
</tr>
<tr>
<td height="15" align="left" valign="middle"><div align="center"><span class="Stile5 Stile3"><a href="p_riv_03_acc.asp">Liguria</a></span></div></td>
</tr>
<tr>
<td height="15" align="left" valign="middle"><div align="center"><span class="Stile5 Stile3"><a href="p_riv_04_acc.asp">Lombardia</a></span></div></td>
</tr>
<tr>
<td height="15" align="left" valign="middle"><div align="center"><span class="Stile5 Stile3"><a href="p_riv_05_acc.asp">Veneto</a></span></div></td>
</tr>
<tr>
<td height="15" align="left" valign="middle"><div align="center"><span class="Stile5 Stile3"><a href="p_riv_07_acc.asp">Friuli Venezia Giulia </a></span></div></td>
</tr>
<tr>
<td height="15" align="left" valign="middle"><div align="center"><span class="Stile5 Stile3"><a href="p_riv_06_acc.asp">Trentino Alto Adige </a></span></div></td>
</tr>
<tr>
<td height="15" align="left" valign="middle"><div align="center"><span class="Stile5 Stile3"><a href="p_riv_08_acc.asp">Emilia Romagna </a></span></div></td>
</tr>
<tr>
<td height="15" align="left" valign="middle"><div align="center"><span class="Stile5 Stile3"><a href="p_riv_09_acc.asp">Toscana</a></span></div></td>
</tr>
<tr>
<td height="15" align="left" valign="middle"><div align="center"><span class="Stile5 Stile3"><a href="p_riv_10_acc.asp">Umbria</a></span></div></td>
</tr>
<tr>
<td height="15" align="left" valign="middle"><div align="center"><span class="Stile5 Stile3"><a href="p_riv_11_acc.asp">Marche</a></span></div></td>
</tr>
<tr>
<td height="15" align="left" valign="middle"><div align="center"><span class="Stile5 Stile3"><a href="p_riv_12_acc.asp">Abruzzo</a></span></div></td>
</tr>
<tr>
<td height="15" align="left" valign="middle"><div align="center"><span class="Stile5 Stile3"><a href="p_riv_13_acc.asp">Molise</a></span></div></td>
</tr>
<tr>
<td height="15" align="left" valign="middle"><div align="center"><span class="Stile5 Stile3"><a href="p_riv_14_acc.asp">Lazio</a></span></div></td>
</tr>
<tr>
<td height="15" align="left" valign="middle"><div align="center"><span class="Stile5 Stile3"><a href="p_riv_15_acc.asp">Campania</a></span></div></td>
</tr>
<tr>
<td height="15" align="left" valign="middle"><div align="center"><span class="Stile5 Stile3"><a href="p_riv_16_acc.asp">Puglia</a></span></div></td>
</tr>
<tr>
<td height="15" align="left" valign="middle"><div align="center"><span class="Stile5 Stile3"><a href="p_riv_17_acc.asp">Basilicata</a></span></div></td>
</tr>
<tr>
<td height="15" align="left" valign="middle"><div align="center"><span class="Stile5 Stile3"><a href="p_riv_18_acc.asp">Calabria</a></span></div></td>
</tr>
<tr>
<td height="15" align="left" valign="middle"><div align="center"><span class="Stile5 Stile3"><a href="p_riv_19_acc.asp">Sicilia</a></span></div></td>
</tr>
<tr>
<td height="15" align="left" valign="middle"><div align="center"><span class="Stile5 Stile3"><a href="p_riv_20_acc.asp">Sardegna</a></span></div></td>
</tr>
<tr>
<td bgcolor="#CCFFCC" class="Stile3"><div align="center" class="Stile5 Stile3">Cambia Tipo </div></td>
</tr>
<tr>
<td height="15" align="left" valign="middle" class="Stile21"><div align="center"><a href="p_mer_00_cam.asp" target="_self" class="Stile21">Camper</a></div></td>
</tr>
<tr>
<td height="15" align="left" valign="middle" class="Stile21"><div align="center"><a href="p_mer_00_car.asp" target="_self" class="Stile21">Caravan</a></div></td>
</tr>
<tr>
<td height="15" align="left" valign="middle" class="Stile21"><div align="center"><a href="p_mer_00_pck.asp" target="_self" class="Stile21">Pick-Up</a></div></td>
</tr>
<tr>
<td height="15" align="left" valign="middle" class="Stile21"><div align="center"><a href="p_mer_00_ten.asp" target="_self" class="Stile21">Tende</a></div></td>
</tr>
<tr>
<td height="15" align="left" valign="middle" class="Stile21"><div align="center"><span class="Stile22"><a href="p_mer_00_bar.asp" target="_self" class="Stile21">Barche</a></span></div></td>
</tr>
<tr>
<td height="15" align="left" valign="middle" class="Stile21"><div align="center"><span class="Stile21"><a href="p_mer_00_acc.asp">Accessori</a></span></div></td>
</tr>
<tr>
<td class="Stile21"><div align="center"><a href="p_mer_00_cas.asp">Case Vacanza </a></div></td>
</tr>
<tr>
<td class="Stile3"> </td>
</tr>
<tr>
<td class="Stile3"><div align="center" class="Stile16 Stile3">
<div align="center"><a href="index.htm">Home</a></div>
</div></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="700" valign="top"> <p align="center" class="Stile18"><span class="Stile22">Scegli a sinistra la Regione di Tuo interesse... </span></p>
<hr width="76%" class="Stile18">
<p> </p>
<table width="95%" height="236" align="center" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<%
While ((Repeat1__numRows <> 0) AND (NOT EasyTour.EOF))
%>
<tr>
<td width="95%" height="234" align="center" valign="top"> <table width="80%" border="1" cellpadding="0" cellspacing="0" bordercolor="#CCFFCC">
<tr valign="top">
<td width="26%" height="21"><div align="left" class="Stile21"><strong>Tipo</strong></div></td>
<td width="74%"><div align="left" class="Stile16"><%=(EasyTour.Fields.Item("T").Value)%></div></td>
</tr>
</table>
<table width="80%" border="1" cellpadding="0" cellspacing="0" bordercolor="#CCFFCC">
<tr valign="top">
<td width="26%"><div align="left" class="Stile21">Regione</div></td>
<td width="74%"><div align="left" class="Stile9"><%=(EasyTour.Fields.Item("Reg").Value)%></div></td>
</tr>
</table>
<table width="80%" border="1" cellpadding="0" cellspacing="0" bordercolor="#CCFFCC">
<tr valign="top">
<td width="26%"><div align="left" class="Stile21">Comune</div></td>
<td width="74%"><div align="left" class="Stile9"><%=(EasyTour.Fields.Item("Comune").Value)%></div></td>
</tr>
</table>
<table width="80%" border="1" cellpadding="0" cellspacing="0" bordercolor="#CCFFCC">
<tr valign="top">
<td width="26%"><div align="left" class="Stile21">Prov.</div></td>
<td width="74%"><div align="left" class="Stile9"><%=(EasyTour.Fields.Item("Pr").Value)%></div></td>
</tr>
</table>
<table width="80%" border="1" cellpadding="0" cellspacing="0" bordercolor="#CCFFCC">
<tr>
<td colspan="2" valign="top"><div align="left" class="Stile21">Descrizione dell'Oggetto :</div></td>
</tr>
<tr>
<td height="30" colspan="2" valign="top"><div align="left" class="Stile9"><%=(EasyTour.Fields.Item("Descr").Value)%></div></td>
</tr>
<tr>
<td width="26%" height="21" valign="top" class="Stile21"><div align="left">Prezzo in Euro </div></td>
<td width="74%" valign="top"><div align="right" class="Stile27"><%=(EasyTour.Fields.Item("Prezzo").Value)%></div></td>
</tr>
</table>
<table width="80%" border="1" cellpadding="0" cellspacing="0" bordercolor="#CCFFCC">
<tr valign="top">
<td width="26%"><div align="left" class="Stile21">Tel.</div></td>
<td width="74%"><div align="left" class="Stile9"><%=(EasyTour.Fields.Item("Tel").Value)%></div></td>
</tr>
<tr valign="top">
<td><div align="left" class="Stile21">Mail</div></td>
<td><div align="left" class="Stile9"><%=(EasyTour.Fields.Item("E_Mail").Value)%></div></td>
</tr>
</table>
<hr width="80%" class="Stile18">
<table width="80%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
EasyTour.MoveNext()
Wend
%>
</table>
<table border="0" width="50%" align="center">
</table>
<div align="center">
<p>
<%
'dim serie
'serie=1
'if len(trim(request.querystring("s")))>0 then
'serie=cint(request.querystring("s"))
'end if
'dim page
'if trim(request.querystring("pag")) <> "" then
' page = cint(request.querystring("page"))
'else
' page = 1
'end if
%>
<%
'''' COMMENTA QUESTE RIGHE (serie viene calcolata all'inizio)
'dim serie
'serie=1
'if len(trim(request.querystring("s")))>0 then
'serie=cint(request.querystring("s"))
'end if
'showPage=5 'numero di pagine visualizzate
dim lpage,tpage
lpage=((serie*showPage)-showPage)+1
tpage=serie*showPage
if page<lpage then page=lpage
if serie>1 then response.write "<a href=""?s=" & serie-1 & """> Precedenti . </a>"
for i=lpage to tpage
if i=page then
response.write i
else
response.write " . <a href=""?page=" & i & "&s=" & serie & """>" & i & "</a> . "
end if
next
response.write "<a href=""?s=" & serie+1 & """> . Successive</a>"
%>
</p>
</div></td>
<td width="15%" valign="top"><table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#CCFFCC">
<!--DWLayoutTable-->
<tr>
<td width="144" height="60" align="center" valign="middle"> <div align="center"><img src="images/c_r00_italia.gif" width="98" height="120"></div></td>
</tr>
<tr>
<td width="120" height="60" align="center" valign="middle"><div align="center" class="Stile9">Metti qui il Tuo Logo</div></td>
</tr>
<tr>
<td width="120" height="60" align="center" valign="middle"><div align="center"><span class="Stile9">Metti qui il Tuo Logo</span></div></td>
</tr>
<tr>
<td width="120" height="60" align="center" valign="middle"><div align="center"><span class="Stile9">Metti qui il Tuo Logo</span></div></td>
</tr>
<tr>
<td width="120" height="60" align="center" valign="middle"><div align="center"><span class="Stile9">Metti qui il Tuo Logo</span></div></td>
</tr>
<tr>
<td width="120" height="60" align="center" valign="middle"><div align="center"><span class="Stile9">Metti qui il Tuo Logo</span></div></td>
</tr>
<tr>
<td width="120" height="60" align="center" valign="middle"><div align="center"><span class="Stile9">Metti qui il Tuo Logo</span></div></td>
</tr>
<tr>
<td width="120" height="60" align="center" valign="middle"><div align="center"><span class="Stile9">Metti qui il Tuo Logo</span></div></td>
</tr>
<tr>
<td width="120" height="60" align="center" valign="middle"><div align="center"><span class="Stile9">Metti qui il Tuo Logo</span></div></td>
</tr>
<tr>
<td width="120" height="60" align="center" valign="middle"><div align="center"><span class="Stile9">Metti qui il Tuo Logo</span></div></td>
</tr>
<tr>
<td width="120" height="60" align="center" valign="middle"><div align="center"><span class="Stile9">Metti qui il Tuo Logo</span></div></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
<%
EasyTour.Close()
Set EasyTour = Nothing
%>
---------------------------------------------------------------------
Ciao
