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:
ho provato ma nn mi va mi da quest'errore all'interno del div: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 %>
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 quaNella quale nn ho ben capito cosa devo modificare evidentmente, anche se probabilmente nn è l'unica parte che va sistemata.codice:'visualizzione records news sTxt = sTxt & sHtml1 & "Date :" & rsNews("publishDate") & sHtml2 & _ rsNews("articleID") & sHtml3 &" "& rsNews("headline") & sHtml4 rsNews.movenext
Qualunque tipo di aiuto, consiglio, suggerimento o altre soluzioni è molto ben accetto...grazie mille
![]()

Rispondi quotando
ehe grazie era proprio quello più 2 cosine nel richiamare le tabelle giuste..ora funzia tutto!
