variabili in conflitto ?

[zeweb]

Qualcuno mi aiuta a capire perchè non vedo le news a dx in questa pagina , forse qualche variabile che va in conflitto ?

<%

    response.buffer = true
    strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/database/db.mdb")
    
    Set objCon = Server.CreateObject ("ADODB.Connection")
    objCon.Open strCon
    objCon.close
    set objCon = nothing
%>
<%
    page = trim(request.querystring("page")) 
    Dim strLine
    If page = "" Then
    page = 1
    else
    page = cint(page)
    End If


    DisplayNum = 0

    Set oConn = Server.CreateObject ("ADODB.Connection")
    Set Rec = Server.CreateObject ("ADODB.Recordset")
    oConn.ConnectionString = strCon
    oConn.Open

    Rec.PageSize = 20
    Rec.CursorLocation = adUseClient        
    sql=("SELECT * FROM Gruppi ORDER BY gruppo ASC")
    Rec.Open sql, oConn
    if Rec.EOF OR Rec.BOF Then
    response.write  ""
    else
    ipage = Rec.PageCount    
    if page = 0 or page > ipage Then
    Rec.AbsolutePage = ipage
    else
    Rec.AbsolutePage = page
    end if
    do while not Rec.Eof AND i < 20%>

<ul>[*]<span class="company"><%response.write "[url=""]" & Rec("Gruppo") & "[/url]"%></span>[/list]
<%i = i + 1
    Rec.Movenext
    loop
    Rec.Close
    oConn.Close
    set Rec = nothing
    set oConn = nothing
    End if    
%>
<h6>News</h6>
<%
    page = trim(request.querystring("page")) 
    Dim strLine_2
    If page = "" Then
    page = 1
    else
    page = cint(page)
    End If


    DisplayNum = 0

    Set oConn = Server.CreateObject ("ADODB.Connection")
    Set Rec = Server.CreateObject ("ADODB.Recordset")
    oConn.ConnectionString = strCon
    oConn.Open

    Rec.PageSize = 3
    Rec.CursorLocation = adUseClient        
    sql="select TOP 3 id, Data, Titolo, attivo from news where attivo=true order by Data ASC"
    Rec.Open sql, oConn
    if Rec.EOF OR Rec.BOF Then
    response.write  "Non ci sono news in archivio."
    else
    ipage = Rec.PageCount    
    if page = 0 or page > ipage Then
    Rec.AbsolutePage = ipage
    else
    Rec.AbsolutePage = page
    end if
    do while not Rec.Eof AND i < 3%>

<p class="data"><%=FormatDateTime (Rec("Data"), vbLongDate)%></p>
<p class="company"><%response.write "[url=""]" & Rec("Titolo") & "[/url]"%></p>
<%i = i + 1
    Rec.Movenext
    loop
    Rec.Close
    oConn.Close
    set Rec = nothing
    set oConn = nothing
    End if    
%>
</div>
</body>
</html>