Dichiarare un altra variabile

[Roby_72]

Sarebbe che metti

Dim page

all'inizio della pagina e basta!

Roby

[santino83]

in sostanza il

dim nomevariabile

per ogni variabile deve comparire solo una volta nella pagina. Quindi tutti i dim mettili ad inizio pagina e toglili dai singoli script

avrai ad esempio

dim page
dim perPagina
dim tuo_nonno_in_cariola_con_le_scarpe_viola

etc

e poi tutti gli script senza il dim

[ffilogamo]

Originariamente inviato da Roby_72
Sarebbe che metti

Dim page

all'inizio della pagina e basta!

Roby

dici cosi:

<%
if not objRS.EOF then
dim differenzaDate

dim page
page=1
if request.QueryString("pag")<>"" then
page=int(request.QueryString("pag"))
end if

dim perPagina
perPagina=5

objRS.pageSize=perPagina

objRS.absolutePage=page
for i=1 to perPagina
if not objRS.eof then



Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & _
Server.MapPath("mdb-database/login.mdb")

Dim objRS
Set objRS = Server.CreateObject("ADODB.RecordSet")
sSQL="SELECT * FROM tblNews WHERE (tblNews.tipo=1 AND tblNews.attiva=True) ORDER BY tblNews.Timestamp;"
objRS.Open sSQL, objConn, 3, 3
%>

[santino83]

no!

solo le righe che iniziano per dim vanno spostate

le altre lasciale al loro posto

[Roby_72]

Ad inizio pagina:

dim differenzaDate 
dim page 
dim perPagina 
...
...

Roby

[ffilogamo]

cosi:

<%
dim pagina
pagina=1
if request.querystring("pag")<>"" then
pagina=int(request.querystring("pag"))
end if

if not objRS.EOF then
dim differenzaDate

dim page
page=1
if request.QueryString("pag")<>"" then
page=int(request.QueryString("pag"))
end if

dim perPagina
perPagina=5

Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & _
Server.MapPath("mdb-database/login.mdb")

Dim objRS
Set objRS = Server.CreateObject("ADODB.RecordSet")

sSQL="SELECT * FROM tblNews WHERE (tblNews.tipo=1 AND tblNews.attiva=True) ORDER BY tblNews.Timestamp;"
objRS.Open sSQL, objConn, 3, 3
%>

<%

objRS.pageSize=perPagina

objRS.absolutePage=page
for i=1 to perPagina
if not objRS.eof then

ID=objRS("ID")
Heading=objRS("Heading")
Timestamp=objRS("Timestamp")
Content= left(objRS("Content"),90) & " ...[continua]"
PostedBy=objRS("PostedBy")

differenzaDate = DateDiff("d", objRS("Timestamp"), Date)
if (objRS("giorni") = 0) or ( differenzaDate <= objRS("giorni") ) then
%>

<%if objRS("img")= true Then
Response.Write ("[img]imgNews/" & objRS("ID") & ".jpg[/img]")
end if
%>

<%=Heading%>
<%=Timestamp%>
<%=Content%>
<%=PostedBy%>
<%
end if
objRS.movenext
end if
next

response.write "
Vedi :"
for i=1 to objRS.pagecount
if i<>page then
%> - <%= i %> - <%
else
%><%= i %> <%
end if
next

else
%>
Nessun record trovato
<%
end if
objRS.Close
%>

<%
sSQL="SELECT * FROM tblNews WHERE (tblNews.tipo=2 AND tblNews.attiva=True) ORDER BY tblNews.Timestamp;"
objRS.Open sSQL, objConn, 3, 3
%>

<%

objRS.pageSize=perPagina

objRS.absolutePage=page
for i=1 to perPagina
if not objRS.eof then

ID=objRS("ID")
Heading=objRS("Heading")
Timestamp=objRS("Timestamp")
Content= left(objRS("Content"),90) & " ...[continua]"
PostedBy=objRS("PostedBy")

differenzaDate = DateDiff("d", objRS("Timestamp"), Date)
if (objRS("giorni") = 0) or ( differenzaDate <= objRS("giorni") ) then
%>

<%if objRS("img")= true Then
Response.Write ("[img]imgNews/" & objRS("ID") & ".jpg[/img]")
end if
%>

<%=Heading%>
<%=Timestamp%>
<%=Content%>
<%=PostedBy%>
<%
end if
objRS.movenext
end if
next

response.write "
Vedi :"
for i=1 to objRS.pagecount
if i<>page then
%> - <%= i %> - <%
else
%><%= i %> <%
end if
next

else
%>
Nessun record trovato
<%
end if
objRS.Close
%>

[santino83]

qualcosa di simile

cmq stai attento:

praticamente ad ogni div tu estrai dei record con un particolare id, giusto?

allora visto che pagina e page sono uguali, vorrà dire che ogni recordset andrà alla pagina indicata dalla querystring("pag")

se il recordset con id=1 ha un numero inferiore di pagine del recordset con id=2 (che ne so fa 3 pagine contro 2), quando vai a pagina 3 lo script ti da errore

occhio a questa cosa

[ffilogamo]

non sono ancora riuscito a risolvere

[santino83]

come no?

cosa non hai risolto?

postami tutta la pagina

[ffilogamo]

Originariamente inviato da santino83
come no?

cosa non hai risolto?

postami tutta la pagina

Ecco Giorgio:

<%
dim pagina
pagina=1
if request.querystring("pag")<>"" then
pagina=int(request.querystring("pag"))
end if

Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & _
Server.MapPath("mdb-database/login.mdb")

Dim objRS
Set objRS = Server.CreateObject("ADODB.RecordSet")
sSQL="SELECT * FROM tblNews WHERE (tblNews.tipo=1 AND tblNews.attiva=True) ORDER BY tblNews.Timestamp;"
objRS.Open sSQL, objConn, 3, 3
%>

<div ="1">
<%
if not objRS.EOF then
dim differenzaDate

dim page
page=1
if request.QueryString("pag")<>"" then
page=int(request.QueryString("pag"))
end if

dim perPagina
perPagina=5

objRS.pageSize=perPagina

objRS.absolutePage=page
for i=1 to perPagina
if not objRS.eof then

ID=objRS("ID")
Heading=objRS("Heading")
Timestamp=objRS("Timestamp")
Content= left(objRS("Content"),90) & " ...[continua]"
PostedBy=objRS("PostedBy")

differenzaDate = DateDiff("d", objRS("Timestamp"), Date)
if (objRS("giorni") = 0) or ( differenzaDate <= objRS("giorni") ) then
%>


<%if objRS("img")= true Then
Response.Write ("<div id='news'><div id='newsdx'>[img]imgNews/" & objRS("ID") & ".jpg[/img]</div>")
end if
%>


<%=Heading%>
<%=Timestamp%>
<%=Content%>
<%=PostedBy%>
<%
end if
objRS.movenext
end if
next

response.write "
Vedi:"
for i=1 to objRS.pagecount
if i<>page then
%> - <%= i %> - <%
else
%><%= i %> <%
end if
next

else
%>
Nessun record trovato
<%
end if
objRS.Close
%>
</div>



"qui sotto devo dichiarare un altra variabile poichè quella che ho scritto io è identica"



<div id="2">

<%
sSQL="SELECT * FROM tblNews WHERE (tblNews.tipo=2 AND tblNews.attiva=True) ORDER BY tblNews.Timestamp;"
objRS.Open sSQL, objConn, 3, 3
%>

<%
if not objRS.EOF then
dim differenzaDate

dim page
page=1
if request.QueryString("pag")<>"" then
page=int(request.QueryString("pag"))
end if

dim perPagina
perPagina=5

objRS.pageSize=perPagina

objRS.absolutePage=page
for i=1 to perPagina
if not objRS.eof then

ID=objRS("ID")
Heading=objRS("Heading")
Timestamp=objRS("Timestamp")
Content= left(objRS("Content"),90) & " ...[continua]"
PostedBy=objRS("PostedBy")

differenzaDate = DateDiff("d", objRS("Timestamp"), Date)
if (objRS("giorni") = 0) or ( differenzaDate <= objRS("giorni") ) then
%>


<%if objRS("img")= true Then
Response.Write ("<div id='news'><div id='newsdx'>[img]imgNews/" & objRS("ID") & ".jpg[/img]</div>")
end if
%>


<%=Heading%>
<%=Timestamp%>
<%=Content%>
<%=PostedBy%>
<%
end if
objRS.movenext
end if
next

response.write "
Vedi:"
for i=1 to objRS.pagecount
if i<>page then
%> - <%= i %> - <%
else
%><%= i %> <%
end if
next

else
%>
Nessun record trovato
<%
end if
objRS.Close
%>
</div>