Forum 

Forum AspNuke.it - Il tuo Portale OpenSource in ASP

Forum
  SUPPORTO TECNICO VECCHIE VERSIONI
      FUNZIONALITA' BASE
         Blocco ISCRITTI sparito

Blocco ISCRITTI sparito

Autore Messaggio
Antonino

Utente
Utente
70 Discussioni


Profilo - Antonino 		14 aprile 2004 alle 20:16:21 Profilo - AntoninoInvia un messaggio privato Rispondi quotando
Sarò diventato scemo, ma non riesco in alcun modo a rendere visibile il blocco ISCRITTI.
ippocampo

Avanzato
Avanzato
162 Discussioni


Profilo - ippocampo 		14 aprile 2004 alle 20:18:43 Profilo - ippocampoInvia un messaggio privato Rispondi quotando
Posta l'url del sito, vediamo cosa non va! [lo]
---------------
Notepad Forever......
Antonino

Utente
Utente
70 Discussioni


Profilo - Antonino 		14 aprile 2004 alle 20:36:19 Profilo - AntoninoInvia un messaggio privato Rispondi quotando
http://www.latheotokos.it
ippocampo

Avanzato
Avanzato
162 Discussioni


Profilo - ippocampo 		14 aprile 2004 alle 20:48:04 Profilo - ippocampoInvia un messaggio privato Rispondi quotando
Allora, controlla nel display-inc.asp e cerca la seguente sub:
Sub DisplayAccountsInfo()
appena la trovi postala qui nel forum. Tutta per intero fino a end sub!
---------------
Notepad Forever......
Antonino

Utente
Utente
70 Discussioni


Profilo - Antonino 		14 aprile 2004 alle 20:56:45 Profilo - AntoninoInvia un messaggio privato Rispondi quotando
Sub DisplayAccountsInfo()
If bDisplayAccounts Then
Dim oCn, oRs, rSQL

CreateTopTable "Accounts", GetTranslation("LANG_ACCOUNTS")

Set oCn = DBConnexion(DB_MAIN)
rSQL = "SELECT Count(*) AS Nb FROM users"
Set oRs = DBRecordSet(oCn, rSQL)

Response.Write Replace(GetTranslation("LANG_ACCOUNTS_INFO"), "%1%", oRs(0))

rSQL = "SELECT TOP 1 uLogin FROM users ORDER BY uDate DESC"
Set oRs = DBRecordSet(oCn, rSQL)
If Not oRs.EOF Then Response.Write "<br><span class=""small"">" & GetTranslation("LANG_LAST_ACCOUNT") & " : <a href=""" & GLOBAL_SITE_PATH & GLOBAL_SITE_PROFILE_PAGE & "?id=" & Server.URLEncode(oRs(0)) & """>" & Server.HTMLEncode(oRs(0)) & "</a><br>" & vbCRLF
Response.Write "<a href=""" & GLOBAL_SITE_PATH & GLOBAL_SITE_MEMBERSLIST_PAGE & """>" & GetTranslation("LANG_TITLE_MEMBERSLIST") & "</a></span>" & vbCRLF
CreateBottomTable ""

oCn.Close
Set oCn = Nothing
Set oRs = Nothing
End If
End Sub
JoeSerpe

Principiante
Principiante
14 Discussioni


Profilo - JoeSerpe 		22 aprile 2004 alle 13:12:00 Profilo - JoeSerpeInvia un messaggio privato Rispondi quotando
questa routine è ok, ma ti è scomparso di colpo? senza nessun motivo, senza aver fatto alcuna modifica?
JoeSerpe

Principiante
Principiante
14 Discussioni


Profilo - JoeSerpe 		22 aprile 2004 alle 13:20:56 Profilo - JoeSerpeInvia un messaggio privato Rispondi quotando
fai questo tentativo:

tra
Sub DisplayAccountsInfo()

e
If bDisplayAccounts Then


metti questa riga:
bDisplayAccounts = True


praticamente il risultato finale sarà questo:

Sub DisplayAccountsInfo()
bDisplayAccounts = True
If bDisplayAccounts Then
Dim oCn, oRs, rSQL

CreateTopTable "Accounts", GetTranslation("LANG_ACCOUNTS")

Set oCn = DBConnexion(DB_MAIN)
rSQL = "SELECT Count(*) AS Nb FROM users"
Set oRs = DBRecordSet(oCn, rSQL)

Response.Write Replace(GetTranslation("LANG_ACCOUNTS_INFO"), "%1%", oRs(0))

rSQL = "SELECT TOP 1 uLogin FROM users ORDER BY uDate DESC"
Set oRs = DBRecordSet(oCn, rSQL)
If Not oRs.EOF Then Response.Write "<br><span class=""small"">" & GetTranslation("LANG_LAST_ACCOUNT") & " : <a href=""" & GLOBAL_SITE_PATH & GLOBAL_SITE_PROFILE_PAGE & "?id=" & Server.URLEncode(oRs(0)) & """>" & Server.HTMLEncode(oRs(0)) & "</a><br>" & vbCRLF
Response.Write "<a href=""" & GLOBAL_SITE_PATH & GLOBAL_SITE_MEMBERSLIST_PAGE & """>" & GetTranslation("LANG_TITLE_MEMBERSLIST") & "</a></span>" & vbCRLF
CreateBottomTable ""

oCn.Close
Set oCn = Nothing
Set oRs = Nothing
End If
End Sub
djveleno

Amministratore

Esperto
Esperto
1025 Discussioni


Profilo - djveleno 		22 aprile 2004 alle 13:59:16 Profilo - djvelenoInvia un messaggio privato Rispondi quotando
Io non mi stancherò mai di ripeterlo, quando effettuate una modifica sostanziale, fate un back-up dei files prima della modifica, e, tenete traccia di cosa andate a modificare....
Antonino, tu hai modificato AspNuke in modo estremamente radicale, aggiungendo una quantità industriale di mod, ora, hai eliminato l'onlinemembers, se non ricordo male, devi tornare indietro a quella che era la situazione precedente, ovvero, il mod whoisonline prevedeva alcune modifiche al file display-inc.asp, esattamente:
la Sub DisplayDynamicCounter() andava sostituita con quella inserita nel file TXT e, andava commentata o sostituita questa riga di codice, Response.Write " <a href=""" & GLOBAL_SITE_PATH & GLOBAL_SITE_PRIVATE_MESSAGES_PAGE & """><img src=""" & GLOBAL_SITE_IMAGES_PATH & "pmnew.gif"" border=""0"" alt=""" & GetTranslation("LANG_NEW_PRIVATE_MESSAGES") & """ hspace=""3""></a>"
Nel file toppage-inc.asp, andava poi commentata questa riga, DisplayNewPrivateMessages(sPseudo).
Andava aggiunto il file newpmessage.asp e il file avviso.wav, entrambi in root.
In pratica, e mi riferisco solo a questa modifica, devi sostituire il file display-inc.asp con l'originale dello zip di AspNuke, togliere il commento davanti alla stringa del toppage-inc.asp (DisplayNewPrivateMessages(sPseudo)), eventualmente eliminare i 2 files aggiunti in root.
Credo che, se non hai eseguito altre modifiche ai files citati, non vi siano altri impedimenti alla normale visualizzazione, io ho testato in locale il tuo problema, e, non ho riscontrato errori o mancate visualizzazioni.
Ciauzz DJ
---------------
A lavare la testa ai somari, ci si rimette l'acqua e il sapone!

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

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 : 113
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: 425 Notizie: 180 Sondaggi: 11 Preferiti: 202273 Post sui forum: 51195 Libro degli ospiti: 4 Eventi: 7

Versioni

Temi