Dichiarare un altra variabile

[ffilogamo]

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

[Roby_72]

:master:

[santino83]

tra le due parti metti questo:

objRS.close

[ffilogamo]

Originariamente inviato da santino83
tra le due parti metti questo:

objRS.close

lo messo Giorgio ma da errore:

Tipo di errore:
ADODB.Recordset (0x800A0E78)
L'operazione non è consentita se l'oggetto è chiuso.
default3.asp, line 223

linea 223:<%objRS.close%>

[santino83]

ah è vero c'era già non l'avevo visto


scusa ma perchè devi dichiarare un'altra variabile? che errore ti da?

[ffilogamo]

Originariamente inviato da Roby_72
:master:

mi da questo errore:

Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A0411)
Nome ridefinito
default.asp, line 229, column 4
dim differenzaDate
---^

[santino83]

il dim differenzadate mettilo solo ad inizio pagina e toglilo da ogni script

[ffilogamo]

Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A0411)
Nome ridefinito
/b/default3.asp, line 230, column 4
dim page
---^

[Roby_72]

Lo stesso.
In ogni pagina le variabile devono essere definite una sola volta quindi conviene farlo in alto e via.

Roby

[ffilogamo]

Originariamente inviato da Roby_72
Lo stesso.
In ogni pagina le variabile devono essere definite una sola volta quindi conviene farlo in alto e via.

Roby

emh... :master: sarebbe?