Argomenti in conflitto

[simoza]

<% 
iPageSize = 15 
If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" &_
"DBQ="& Server.MapPath("../database/mpdb.mdb")  
strSQL = "SELECT * FROM pr ORDER BY nome_locale Desc" 
set rs = conn.execute(strSQL)
if not rs.eof then
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.PageSize = iPageSize
objRS.CacheSize = iPageSize
objRS.Open strSQL, Conn, adOpenStatic, adLockReadOnly, adCmdText
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">
<%
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>"
...

Mi da errore in riga blu di: Gli argomenti non sono di tipo valido, non sono compresi nell'intervallo consentito o sono in conflitto.
Come mai? Io ho già questa pagina cosi strutturata che mi fnziona. Qui ho solo cambiato la tabella da cui pescare i dati

[Corinna]

E' una mia impressione o apri due recordset con la stessa stringa?

[simoza]

Intendi che scrivo già
Set rs = conn.execute....???

Ok ma allora dove imposto l'rs che viene richiesto?

[Corinna]

Facciamo un passo indietro... Lo scopo qual è?
Hai creato una stringa, hai aperto un recordset e se quello è pieno ne crei un altro uguale? Per ora fai questo ma non capisco il motivo.

[simoza]

Il mio scopo è quello di mostrare tutti i record della tabella pr; utilizzando la paginazione se supera un max di 10 record mostrati e in più di cambiare il colora alla <tr>, riga si riga no.
questo codice lo avevo già usato in precedenza. Ma ora non capisco perchè fa i capricci. Secondo te posso eliminare qualcosa?
Mi sa che rs è stato creato per fare il controllo if not e mostare del testo nel caso non ci siano record da mostrare mmmhhh
che dici?

[Corinna]

strSQL = "SELECT * FROM pr ORDER BY nome_locale Desc" 
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
'tutto il resto. 
reccount = objRS.recordcount

[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
				%>

[simoza]

qualcuno è disposto a darmi l'ultima chicca?