Impaginazione molto incasinata 2 la vendetta

[nm2002]

COSA C'E' DI SBAGLIATO IN QUESTA IMPAGINAZIONE?
MI CREA IL LINK MA NON VISUALIZZA I RECORDS

---------------------------------------------------
<%@ LANGUAGE = "VBScript" %>


<%
catcode=request.querystring("catcode")
custid=request.querystring("custid")

'Numero di record visualizzati per pagina
Record_Pagina = 4
'Numero di Pagine visualizzate nei link
Numerazione_Max = 7

'Creo la connessione al database
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "db"

'sql2 = "SELECT * FROM book ORDER BY " & strOrderBy & " DESC;"

sql= "SELECT price, ( price * ( 100 - scontoperc)) / 100 AS sconto, * FROM clientiart RIGHT JOIN products ON clientiart.productid=products.productid WHERE (((products.catcode)="&catcode&") AND ((clientiart.custid)="&custid&" Or (clientiart.custid) Is Null) AND ((clientiart.codcategoria)="&catcode&" Or (clientiart.codcategoria) Is Null))"

'Scrivo la mia query sql
'sql = "SELECT * FROM nome_tabella"

'E creo il recordset
Set Rec = Server.CreateObject ("ADODB.Recordset")
Rec.PageSize = Record_Pagina
Rec.Open sql, Conn, 3, 3

'Recupero il numero della pagina corrente
Pag = CInt(Request.Querystring("pag"))

'Controllo che il numero di pagina sia corretto
If (Not Rec.Eof) Then
If Pag>Rec.PageCount Then
Pag = Rec.PageCount
End If
If Pag = 0 Then
Pag = 1
End If

'Setto la pagina corrente
Rec.AbsolutePage = Pag

'Ora prepariamo i link alle pagine
indice_inizio = pag-(Numerazione_Max/2)
If (indice_inizio>(Rec.PageCount-Numerazione_Max)) Then
indice_inizio = Rec.PageCount-Numerazione_Max+1
End If
If (indice_inizio<=0) Then
indice_inizio = 1
End if
indice_fine=indice_inizio+Numerazione_Max-1
If (indice_fine>Rec.PageCount) Then
indice_fine = Rec.PageCount
End If
'Link alla prima pagina
Link = "<| "

'Link alle pagine precedenti
If (indice_inizio<>1) Then
Link=Link&"<a href=""?pag="&(indice_inizio-1)&""">... "
End If
For i=indice_inizio to indice_fine

'Pagina attuale
If (i=pag) then
Link = Link&"]"&i&"[ "
'Link alle altre pagine
Else
Link = Link&"<a href=""?pag="&i&""">["&i&"] "
End If
Next

'Link alle pagine successive
If (indice_fine<Rec.PageCount-1) Then
Link = Link&"<a href=""?pag="&(indice_fine+1)&""">... "
End If

'Link all'ultima pagina
Link=Link&"<a href=""?pag="&Rec.PageCount&""">|> "
End If

'I link sono pronti,ora stampiamo i record ..
i=0
While (NOT rec.EOF)and(i<Record_Pagina)
i = i+1
Response.Write( rec("name")&"
" )
rec.MoveNext
WEnd
'e ora finalmente stampiamo i link alle altre pagine
Response.Write(Link)
%>


__________________________________________________ _

[index]

Sono un ASP Programmer, se mi mandi il quesito per bene su info@filanninomichele.com ti risponderò molto volientieri!

Ciao.