Visualizzazione dei risultati da 1 a 5 su 5
  1. #1

    Visualizzare (scroll)news in home da script ASP/access

    Ciao ragazzi, espongo il mio problema:

    Praticamente ho utilizzato uno script news piuttosto completo in asp trovato tramite questo stesso sito, lo script in particolare è Active News Manager.
    Ora dopo il tempo impiegato per modifcare lo script in grafica e funzionalità in base alle mie esigenze, mi manca il passo finale, cioè poter includere in un div della homepage (index.asp) le ultime 5/10 news inserite. Visualizzando però solo la headline, data, e riassunto, con link poi riportante alla pagina con la news completa. Ho visto che dreamweaver fa cose del genere ma non capire ciò che succede non mi piace, vorrei muovere i primi passi verso l'uso di asp.

    Dopo il primo passo, avrei inoltre necessità che le news scrollassero in automatico e si stoppassero al mouseover. Qui immagino vada integrato con un javascript.

    Dopo svariate ricerche in un topic su questo forum ho trovato il seguente codice che dovrebbe fare al caso mio:

    codice:
         <%
    'Connessione DB
    Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("mdb-database/activeNews.mdb") 
    Set conn = Server.CreateObject("ADODB.Connection")
    conn.open Conn_String
    'Apertura recorset
    Set rsNews = Server.CreateObject("ADODB.Recordset")
    	strSQL_New = "SELECT summary FROM activeNews_Articles ORDER BY publishDate ASC" 
    	Set rsNews = conn.Execute(strSQL_New)
    	sHtml1 = "<FONT face='verdana' SIZE='1' COLOR='Black'>"
    	sHtml2 = "<A HREF='activenews_view.asp?articleID="
    	sHtml3 = "'>"
    	sHtml4 = "</A></FONT>
    
    "
    	sTxt = ""
    'Verifica recordset
    If rsNews.EOF Then
       Response.Write "<center><FONT Face='Arial' SIZE='1'>Non ci sono nuove News</font></center>" 
    Else
       rsNews.movefirst
       
    'Mostra le prime 5 News
      i=0
    do until i=5 or rsNews.EOF
      i=i+1
    'visualizzione records news  
     sTxt = sTxt & sHtml1 & "Date :" & rsNews("publishDate") &  sHtml2 & _
     rsNews("articleID") & sHtml3 &"
    "& rsNews("headline") & sHtml4
     rsNews.movenext
    Loop
    'Setto i valori della tabella velocita larghezza altezza
     iSpeed = 85 	
     iTop = 0		
     iLeft = 0		
     iWidth = 145	 
     iHeight = 110
     sMarquee="<MARQUEE onmouseover='this.stop();' " & _
     "onmouseout='this.start();'direction='up' scrollamount='1' " & _
     "scrolldelay='" & iSpeed & "' Top='" & iTop & "' left='" & iLeft & _
     "' width='" & iWidth & "' height='" & iHeight & "'>" & sTxt & "</MARQUEE>"
    End IF
    'visualizzo il tutto
     Response.Write "<table border='0' width='8%' height='1' cellspacing='0' cellpadding='0'>"
     Response.Write "<tr><td width='100%' height='1' bgcolor='#98A0B8'>[img]immagini/News.gif[/img]"
     Response.Write "</td></tr><tr><td width='100%' height='1' align='center' bgcolor='#EDF8FE'>"& sMarquee & "[img]immagini/separatore.gif[/img]</td></tr></table>"
    'distruggo il recorset
    rsNews.Close
    Set rsNews = Nothing
    
    %>
    ho provato ma nn mi va mi da quest'errore all'interno del div:

    ADODB.Recordset error '800a0cc1'

    Item cannot be found in the collection corresponding to the requested name or ordinal.

    /index.asp, line 60


    L'errore credo stia in questa parte qua
    codice:
    'visualizzione records news  
     sTxt = sTxt & sHtml1 & "Date :" & rsNews("publishDate") &  sHtml2 & _
     rsNews("articleID") & sHtml3 &"
    "& rsNews("headline") & sHtml4
     rsNews.movenext
    Nella quale nn ho ben capito cosa devo modificare evidentmente, anche se probabilmente nn è l'unica parte che va sistemata.

    Qualunque tipo di aiuto, consiglio, suggerimento o altre soluzioni è molto ben accetto...grazie mille


  2. #2
    Quelli tra virgolette sono i nomi dei campi della tabella richiamata nella sql.

  3. #3
    Ok questo l'avevo intuito infatti molte modifiche le ho apportate io, vorrei capire cosa sbaglio però visto che mi resituisce l'errore.

    Allora il database è strutturato in questo modo:





    Come dovrei dunque modificare le parti


    codice:
    strSQL_New = "SELECT summary FROM activeNews_Articles ORDER BY publishDate ASC"
    e

    codice:
    'visualizzione records news  
     sTxt = sTxt & sHtml1 & "Date :" & rsNews("publishDate") &  sHtml2 & _
     rsNews("articleID") & sHtml3 &"
    "& rsNews("headline") & sHtml4
     rsNews.movenext

    Se io volessi per esempio visualizzare solo la Data, l'Headline (il titolo), e il summary?

    A parte tutto è uno script adeguato al mio scopo? Esistono metodi migliori?

    Ciao grazie della disponibilità

  4. #4
    codice:
    strSQL_New = "SELECT * FROM activeNews_Articles ORDER BY publishDate ASC"

  5. #5
    mmm conciso ma preciso ehe grazie era proprio quello più 2 cosine nel richiamare le tabelle giuste..ora funzia tutto!

    ciao grazie

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.