Forum 

Forum AspNuke.it - Il tuo Portale OpenSource in ASP

Forum
  SUPPORTO TECNICO 2.07
      MODULI AGGIUNTIVI
         aspnuke e snitz forum

aspnuke e snitz forum

Autore Messaggio
bayles

Amatore
Amatore
24 Discussioni


Profilo - bayles 		01 gennaio 2005 alle 14:44:15 Profilo - baylesInvia un messaggio privato Rispondi quotando
ragzzi sto cercando di far apparire nella home di aspnuke al posto degli ultimi post del forum aspnuke quelli dello snitz.. ho trovato sto mod. ma mi da errore alla seconda linea. da ke dipende? mi sapete aiutare?
questo è il codice x creare il file last.asp da far rikiamare in default5inc.asp. ma quando ci provo mi da errore connstring... bhòòòòòò

<%
ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/mdb-database/nome.mdb")
function getlast_topics(numdays)
set tConn= Server.CreateObject("ADODB.Connection")
tConn.Open ConnString

strSql = "SELECT TOP "&numdays&" T_SUBJECT,TOPIC_ID,T_MESSAGE,T_AUTHOR,T_LAST_POST,T_LAST_POST_AUTHOR,T_REPLIES from FORUM_TOPICS order by T_LAST_POST DESC"
CColor=strForumCellColor
set rss = tConn.Execute (strSql)

do until rss.eof
tID=rss("TOPIC_ID")
tSUBJECT=rss("T_SUBJECT")
tMESSAGE=Left(rss("T_MESSAGE"),60)
tAUTHOR=rss("T_AUTHOR")
strSql="SELECT M_NAME FROM FORUM_MEMBERS WHERE MEMBER_ID=" & tAUTHOR
set nome =tConn.Execute (strSql)
tAUTHOR=nome("M_NAME")
Set nome=Nothing
tLASTPOST=rss("T_LAST_POST")
tLASTPOST=Mid(tLASTPOST,7,2) & "/" & Mid(tLASTPOST,5,2) & "/" & Mid(tLASTPOST,1,4) & " ORE " & Mid(tLASTPOST,9,2) & ":" & Mid(tLASTPOST,11,2) & ":" & Mid(tLASTPOST,13,2)
tLASTPOSTAUTHOR=rss("T_LAST_POST_AUTHOR")
strSql="SELECT M_NAME FROM FORUM_MEMBERS WHERE MEMBER_ID=" & tLASTPOSTAUTHOR
set nome =tConn.Execute (strSql)
tLASTPOSTAUTHOR=nome("M_NAME")
Set nome=Nothing
tREPLIES=rss("T_REPLIES")
strlast =strlast & "<tr><td width=""100%""><img border=""0"" src=""segueblu.gif"" width=""15"" height=""15""><font size=""2"" face=""Verdana"">"
strlast =strlast &"<A> Titolo: </A>" & tSUBJECT & "<br>"
strlast =strlast & "<img border=""0"" src=""autore.gif"" width=""15"" height=""15""><font size=""2"" face=""Verdana"">"
strlast =strlast & "<A> Autore: </A>" & tAUTHOR & "<BR>"
strlast =strlast & "<img border=""0"" src=""ultimarispota.gif"" width=""15"" height=""15""><font size=""2"" face=""Verdana"">"
strlast =strlast & " Ultima risposta di " & tLASTPOSTAUTHOR & " il " & tLASTPOST & "<BR>"
strlast =strlast & "<img border=""0"" src=""testo.gif"" width=""15"" height=""15""><font size=""2"" face=""Verdana"">"
strlast =strlast & " " & tMESSAGE & "<BR>"
strlast =strlast & "[<a href=""/forum/link.asp?TOPIC_ID=" & tID & """>Leggi tutto</a> | " & tREPLIES & " risposta/e]</font></td></tr>"&vbcrlf

rss.movenext
loop

rss.close
set rss=nothing
tConn.close
set tConn=nothing
getlast_topics=strlast
end function
%>
gspix

Principiante
Principiante
1 Discussione


Profilo - gspix 		02 gennaio 2005 alle 13:33:54 Profilo - gspixInvia un messaggio privato Rispondi quotando
Lo script funziona perfettamente devi solo dichiarare le variabili all'inizio del file.

Dim ConnString,Tconn,strSql,rss,strlast
Dim tID,tSUBJECT,tMESSAGE,tAUTHOR,tLASTPOST,nome,tLASTPOSTAUTHOR,tREPLIES
Dim strForumCellColor,CColor

E nel Default5-Inc.asp chiami la funzione Getlast_Topics.
response.Write(getlast_topics(5))
bayles

Amatore
Amatore
24 Discussioni


Profilo - bayles 		02 gennaio 2005 alle 14:00:09 Profilo - baylesInvia un messaggio privato Rispondi quotando
grazie.. ora ha superato il primo scoglio..e mi da quest'altro errore:
Microsoft VB Script runtime error '800a01f4'
Variable is undefined: 'tPOSTER'

/includes/last.asp, line 15
djveleno

Amministratore

Esperto
Esperto
1025 Discussioni


Profilo - djveleno 		02 gennaio 2005 alle 16:16:02 Profilo - djvelenoInvia un messaggio privato Rispondi quotando
Aspnuke funziona con Option Explicit dichiarato, ciò significa che, tutte le variabili vanno dichiarate esplicitamente, quindi, se una o più variabili non sono dichiarate, verrà riportato l'errore dove, viene indicata la pagina e la variabile non dichiarata, ad ogni errore, edita la pagina ed inserisci, all'apertura del codice la relativa variabile...
ad esempio Dim miavariabile.
Questo, è un suggerimento in generale, ma, che vuole essere indicativo per tutti, chi vuole implementare programmi esterni ad AspNuke, devo postare in Off Topics, e non nel forum ufficiale, a meno che, non sia lo staff a proporre nuovi moduli.
Ciauzz DJ
---------------
A lavare la testa ai somari, ci si rimette l'acqua e il sapone!

http://aspnuke208.somee.com/Default.asp
bayles

Amatore
Amatore
24 Discussioni


Profilo - bayles 		03 gennaio 2005 alle 11:10:34 Profilo - baylesInvia un messaggio privato Rispondi quotando
ops.. ragione sull'off topic..sorry..
ma pensavo fosse un argomento ke potesse interessare tutti gli utilizzatori di aspnuke...

Log in

Login
Password
Memorizza i tuoi dati:

Cerca

 

Sostieni AspNuke

Un piccolo gesto per aiutarci a mantenere AspNuke.it online

Promo

MusicWebItalia.it
Video Testi Traduzioni Spot Colonne sonore Accordi e Spartiti gratis.

Visitatori

Visitatori Correnti : 105
Membri : 0 offline Anna

Iscritti

 Utenti: 18940
Ultimo iscritto : glauco
Lista iscritti
Messaggi privati: 3373 Commenti: 2210 Immagini: 39 Downloads: 144 Articoli: 49 Pagine: 101 Siti web: 558 Notizie: 180 Sondaggi: 11 Preferiti: 5685281 Post sui forum: 51195 Libro degli ospiti: 4 Eventi: 7

Versioni

Temi