Argomenti in conflitto

[simoza]

mmm, mi da sempre lo stesso errore nella stessa riga.
Non è possibile che sbagli: guarda postto tutta la pagina che magari ci sono chicche che mi sono perso... qualche end if magari

...Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.PageSize = iPageSize
objRS.CacheSize = iPageSize
objRS.Open strSQL, Conn, adOpenStatic, adLockReadOnly, adCmdText
if rs.eof then
' manda a cagare l'utente
end if

			reccount = objRS.recordcount
			iPageCount = objRS.PageCount

			If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
			If iPageCurrent < 1 Then iPageCurrent = 1

			If iPageCount = 0 Then
				Response.Write "


<table><td><font class=""titolo"">Non ci sono prenotazioni!!!</td></table></p>"
			Else
				objRS.AbsolutePage = iPageCurrent
				iRecordsShown = 0
				%>
				<table cellpadding="0" cellspacing="0" border="0">
					<tr>
						
						<td bgcolor="#006699"> 
							<table width="890" border="0">
								<tr bgcolor="#5A7387" height="22">
									<td class="testoprint">Nome</td>
									<td class="testoprint">img</td>
									<td class="testoprint">data</td>
									<td class="testoprint">€</td>
									<td class="testoprint">€ U</td>
									<td class="testoprint">€ D</td>
									<td class="testoprint">serata</td>
									<td class="testoprint">desc</td>
									<td class="testoprint">€ T</td>
									<td class="testoprint">p.xT</td>
									<td class="testoprint">bott</td>
									<td class="testoprint">da</td>
									<td class="testoprint">a</td>
									<td class="testoprint">€ C</td>
									<td class="testoprint">€ MP</td>
								</tr>
								<%
								'SI VISUALIZZA IL CONTENUTO DELLA STRINGA SQL
								'ALL'INTERNO DELLA TABELLA PRIMA DEFINITA
								cont=1
								Do While iRecordsShown < iPageSize And Not objRS.EOF
									Dim Rig, bg
									Rig = Rig + 1
									If Rig Mod 2 = 0 then
										bg = "#6e8491"
									Else
										bg = "#006699"	
									End if	
									Response.Write "<tr bgcolor = " & bg & "><td class=""padddxdx testo"">" & objRS("nome_locale") & "</td>"
									Response.Write "<td class=""padddxdx testo"">" & objRS("image") & "</td>"
									Response.Write "<td class=""padddxdx testo"" align='center'>" & objRS("data") & "</td>"
									Response.Write "<td class=""padddxdx testo"">"& objRS("prezzo") &"</td>"
									Response.Write "<td class=""padddxdx testo"">"& objRS("prezzouomo") &"</td>"
									Response.Write "<td class=""padddxdx testo"">"& objRS("prezzodonna") &"</td>"
									Response.Write "<td class=""padddxdx testo"">"& objRS("n_serata") &"</td>"
									Response.Write "<td class=""padddxdx testo"">"& objRS("desc_serata") &"</td>"
									Response.Write "<td class=""padddxdx testo"">"& objRS("costo_tav") &"</td>"
									Response.Write "<td class=""padddxdx testo"">"& objRS("pers_x_tav") &"</td>"
									Response.Write "<td class=""padddxdx testo"">"& objRS("n_bot") &"</td>"
									Response.Write "<td class=""padddxdx testo"">"& objRS("da") &"</td>"
									Response.Write "<td class=""padddxdx testo"">"& objRS("a") &"</td>"
									Response.Write "<td class=""padddxdx testo"">"& objRS("costo_cena_intero") &"</td>"
									Response.Write "<td class=""padddxdx testo"">"& objRS("costo_cena_MP") &"</td>"
									Cont = Cont + 1
									'POSIZIONAMENTO ALLA RIGA SUCCESSIVA DEL DB
									iRecordsShown = iRecordsShown + 1
									objRS.MoveNext
								Loop
								'PULIZIA DEGLI OGGETTI ADO
								objRS.Close
								Set objRS = Nothing
								%>
							</table>
						</td>
					</tr>
				</table>
			<%End if%>			


			<%If ipagecount <> 1 Then%>
				<center>
				<table>
					<tr valign="middle">
						<td width="50%" align="center" valign="middle">
							<font face="verdana" size="1"><span class="testo">[</span></font><font face="verdana" size="1" color="#000000">							
							<%if iPageCurrent-2 > 0 and iPageCurrent > 2 then%>
								[img]immagini/first.gif[/img]
							    <%end if%>
							    <%if iPageCurrent > 1 then%>
								[img]immagini/pre.gif[/img]
							    <%end if%>
							    <%if iPageCount > 2 then
								if iPageCurrent-2 < 1 then da_pag = 1 else da_pag = iPageCurrent-2
								if iPageCurrent+2 > iPageCount then fino_a_pag = iPageCount else fino_a_pag = iPageCurrent+2
							else
								da_pag = 1
								fino_a_pag = iPageCount
							end if%>
							    <%for i = da_pag to fino_a_pag%>
								<%if i = iPageCurrent then%>
									<font class="testo"><%=i%></font>
								    <%else%>	
									<%=i%>
								    <%end if%>	
							        <%next%>
							        <%if iPageCurrent > 0 and iPageCurrent < iPageCount then%>
								[img]immagini/next.gif[/img]
							    <%end if%>	
							    <%if iPageCurrent+1 < iPageCount then%>
								[img]immagini/last.gif[/img]
							    <%end if%>	
							</font><font face="verdana" size="1">    <span class="testo">]</span></font>						    </td>
					</tr>
					<tr>
						<td colspan="2" align="center"><font face="verdana" size="1" color="#000000">
							<center class="testo">
							Pagina
								<font class="testo"><%=iPageCurrent%></font>
								di
								<font class="testo"><%=iPageCount%></font>
							</center>
						</font></td>
					</tr>
				</table>
				</center>
				<% end if 
				rs.close
				set rs = nothing
				End If
				conn.close
				set conn = nothing
				%>