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> 

[zeweb]

nessuno che mi può aiutare ?

[dwb]

In che senso non vedi le news?Qualche dettaglio in più?

P.S. Non può trattarsi di un probleme relativo ai nomi di variabili, dato che in una pagina non ve ne può essere più di una con lo stesso nome, altrimenti quando mandi in esecuzione ti viene fuori l'errore di variabile ridefinita.