<% next %> & <% rec.MoveNext %>

[webdesigning]

ho un problema nello script credo nell'identificazione della posizione di

<%next%>

e

<%rec.MoveNext%>

all'interno di questo scritpt..
ovvero lo script mi restituisce sempre lo stesso record del database (il primo che legge) e non tutti quelli compresi dal primo a n

n=request.querystring("n")

SQL="SELECT TOP " &n& " * FROM layout WHERE X='I' AND Y mod 2 = 0 AND stato=False ORDER BY X,Y"
Set rec = Server.CreateObject("ADODB.Recordset")
Set Rec=Conn.Execute(SQL)
While Not rec.EOF
%>
<%
recX=rec("X")
recY=rec("Y")

dim ArrLeggiX()
dim ArrLeggiY()
redim preserve ArrLeggiX(n-1)
redim preserve ArrLeggiY(n-1)
	response.write("page.asp?")
	
for i = 1 to n
	ArrLeggiX(i-1) = response.write("X" & i & "="& recX)
	ArrLeggiY(i-1) = response.write("&Y" & i & "="& recY)
%>


<%rec.MoveNext
next
response.write("&n="& n)
Wend
rec.close%>

Spero possiate aiutarmi
Grazie in anticipo

[albis]

<%
n=request.querystring("n")

SQL="SELECT TOP " &n& " * FROM layout WHERE X='I' AND Y mod 2 = 0 AND stato=False ORDER BY X,Y"
Set rec = Server.CreateObject("ADODB.Recordset")
Set Rec=Conn.Execute(SQL)
dim ArrLeggiX()
dim ArrLeggiY()
While Not rec.EOF
%>
<%
recX=rec("X")
recY=rec("Y")


redim preserve ArrLeggiX(n-1)
redim preserve ArrLeggiY(n-1)
	response.write("page.asp?")
	
for i = 1 to n
	ArrLeggiX(i-1) = response.write("X" & i & "="& recX)
	ArrLeggiY(i-1) = response.write("&Y" & i & "="& recY)
next
%>


<%
	response.write("&n="& n)
	rec.MoveNext
Wend
rec.close%>

[webdesigning]

WOW!
Ma facendo cosi' mi stampa a video questo (nel caso che n=2)

page.asp?X1=I&Y1=06X2=I&Y2=06&n=2page.asp?X1=I&Y1=08X2=I&Y2=08&n=2

mentre io vorrei

page.asp?X1=I&Y1=06X2=I&Y2=08&n=2

Spero si capisca...

[albis]

<%
n=request.querystring("n")

SQL="SELECT TOP " &n& " * FROM layout WHERE X='I' AND Y mod 2 = 0 AND stato=False ORDER BY X,Y"
Set rec = Server.CreateObject("ADODB.Recordset")
Set Rec=Conn.Execute(SQL)
dim ArrLeggiX()
dim ArrLeggiY()
response.write("page.asp?")
While Not rec.EOF
%>
<%
recX=rec("X")
recY=rec("Y")


redim preserve ArrLeggiX(n-1)
redim preserve ArrLeggiY(n-1)


for i = 1 to n
ArrLeggiX(i-1) = response.write("X" & i & "="& recX)
ArrLeggiY(i-1) = response.write("&Y" & i & "="& recY)
next
%>


<%
response.write("&n="& n)
rec.MoveNext
Wend
rec.close%>

[webdesigning]

Ci siamo quasi!
Il problema è che viene ripetuto il record n volte (in base al valore assunto da n)

Questo è il risultato
X1=I&Y1=06X2=I&Y2=06&n=2X1=I&Y1=08X2=I&Y2=08&n=2
Come puoi notare X1=I e Y1=06 poi X2=I e Y2=06 mentre dovrebbe essere il record successivo ovvero X2=I e Y2=08

Grazie ancora dell'aiuto

[albis]

<%
SQL="SELECT TOP " &n& " * FROM layout WHERE X='I' AND Y mod 2 = 0 AND stato=False ORDER BY X,Y"
Set rec = Server.CreateObject("ADODB.Recordset")
Set Rec=Conn.Execute(SQL)

dim conta
conta = 1
n=request.querystring("n")
response.write("page.asp?n="& n)

While Not rec.EOF
%>
<%
recX=rec("X")
recY=rec("Y")
response.write("&X" & conta & "="& recX)
response.write("&Y" & conta & "="& recY)
conta = conta + 1
rec.MoveNext
Wend

rec.close%>

[webdesigning]

PERFETTO

GRAZIE!