| Autore |
Messaggio |
rinos80
Principiante
4 Discussioni
 |
 15 marzo 2004 alle 10:19:05   
Salve a tutti, io non riesco a togliere una tabella di troppo. date uno sguardo alla destra del vostro schermo, ho 2 sondaggi!
grazie
![[lo]](/smileys/coucou.gif)
|
dzjivas
Avanzato
160 Discussioni
|
15 marzo 2004 alle 10:30:31
Qual'è il sito???
Bye 
---------------
Dzjivas
http://www.prolocorescaldina.it
|
rinos
Amatore
29 Discussioni
|
15 marzo 2004 alle 11:20:11 
ops..scusa..
http://www.manicomioescobar.it/default.asp
grazie
---------------
|
rinos
Amatore
29 Discussioni
|
15 marzo 2004 alle 19:22:54
up! please
---------------
|
djveleno
Amministratore
Esperto
1025 Discussioni
|
15 marzo 2004 alle 20:34:03
Hai provato ad entrare in amministrazione - Sondaggi e vedere se hai avviato 2 volte lo stesso poll?
Eventualmente, elimina il sondaggio avviato e rifai la procedura per visualizzare un altro sondaggio.
Ciauzz DJ
---------------
A lavare la testa ai somari, ci si rimette l'acqua e il sapone!
http://aspnuke208.somee.com/Default.asp
|
rinos
Amatore
29 Discussioni
|
16 marzo 2004 alle 00:01:04
Fatto.. niente da fare, penso di aver fatto casino, aggiungendo il blocco meteo e fissando i blocchi. Dove ho potuto incasinare? Grazie
---------------
|
ippocampo
Avanzato
162 Discussioni
|
16 marzo 2004 alle 00:39:50
Ciao, credo che tu hai incasinato il manager-inc.asp. Controlla quel file per bene!
---------------
Notepad Forever...... 
|
djveleno
Amministratore
Esperto
1025 Discussioni
|
16 marzo 2004 alle 11:25:02
Controlla le 2 stringhe di Array, probabilmente hai inserito 2 volte lo stesso numero di blocco.
Ciauzz DJ
---------------
A lavare la testa ai somari, ci si rimette l'acqua e il sapone!
http://aspnuke208.somee.com/Default.asp
|
rinos
Amatore
29 Discussioni
|
16 marzo 2004 alle 20:40:42
vi posto il codice, considerate che ho aggiunto il blocco del meteo in più!
<%
' Set LCID
' IN : -
' OUT : (string) Last visit date (string format)
Sub SetLCID()
On Error Resume Next
Session.LCID = GetXMLAttribute("lcid")
If Err.number <> 0 Then Err.Clear
On Error Goto 0
End Sub
Sub ManageLeftAndRightColumn()
Dim myLeftColumn, myRightColumn, myCustomBlocks, bGetDefault
bGetDefault = True
myLeftColumn = Request.Cookies("myLeftColumn")
myRightColumn = Request.Cookies("myRightColumn")
myCustomBlocks = Request.Cookies("myCustomBlocks")
If IsEmpty(Application("myLeftColumn")) And IsEmpty(Application("myRightColumn")) Then
Application.Lock()
Application("myLeftColumn") = GetTableAvailableColumns()
Application("myRightColumn") = ""
Application.UnLock()
End If
If (myLeftColumn <> "" or myRightColumn <> "") and (myCustomBlocks <> "") Then
If myCustomBlocks = CStr(GLOBAL_CUSTOM_BLOCKS) Then
If myLeftColumn <> "" Then
tLeftColumn = Split(myLeftColumn, "££")
Else
tLeftColumn = ""
End If
If myRightColumn <> "" Then
tRightColumn = Split(myRightColumn, "££")
Else
tRightColumn = ""
End If
bGetDefault = False
End If
End If
'0 - DisplayMenu()
'1 - DisplayDynamicCounter()
'2 - DisplayAccountsInfo()
'3 - DisplaySearch()
'4 - DisplayFavorites()
'5 - DisplayDirectoryLastSites
'6 - DisplayVersions()
'7 - DisplayWebCounters()
'8 - DisplayLastPoll()
'>8 blocchi personali
If bGetDefault then
' Default design
'tLeftColumn = Application("myLeftColumn")
'tRightColumn = Application("myRightColumn")
tLeftColumn = array("0","1","5")
tRightColumn = array("3","2","4","6","7","8","9")
End If
End Sub
' Return the last visit date and set it into cookie
' IN : -
' OUT : (string) Last visit date (string format)
Function GetAndSetLastVisit()
Dim myLastVisit
myLastVisit = Request.Cookies("CurrentLastVisit")
If myLastVisit = "" Then
If Request.Cookies("LastVisit") <> "" Then
myLastVisit = Request.Cookies("LastVisit")
Response.Cookies("LastVisit") = DateTimeToString(Now())
Response.Cookies("LastVisit").Expires = Date + 365
Response.Cookies("CurrentLastVisit") = myLastVisit
Else
myLastVisit = "20000101 01:00:00"
Response.Cookies("LastVisit") = myLastVisit
Response.Cookies("LastVisit").Expires = Date + 365
Response.Cookies("CurrentLastVisit") = myLastVisit
End If
End If
GetAndSetLastVisit = myLastVisit
End Function
' Return the current theme and set it into cookie
' IN : -
' OUT : (string) Theme's name
Function GetAndSetTheme()
Dim myTheme
If Request.Form("CurrentTheme") <> "" Then
myTheme = Request.Form("CurrentTheme")
Response.Cookies("CurrentTheme") = myTheme
Response.Cookies("CurrentTheme").Expires = Date + 365
Else
If Request.Cookies("CurrentTheme") <> "" Then
myTheme = Request.Cookies("CurrentTheme")
Else
myTheme = "default"
End If
End If
GetAndSetTheme = myTheme
End Function
' Get the current version and set it into cookie
' IN : -
' OUT : (string) charset's id
Function GetAndSetXMLVersion()
Dim myXMLVersion
If Request.Form("_SetCurrentVersion") <> "" Then
myXMLVersion = Request.Form("_SetCurrentVersion")
Response.Cookies("CurrentVersion") = myXMLVersion
Response.Cookies("CurrentVersion").Expires = Date + 365
Else
myXMLVersion = Request.Cookies("CurrentVersion")
If myXMLVersion = "" Then
myXMLVersion = GLOBAL_SITE_DEFAULT_VERSION
Response.Cookies("CurrentVersion") = myXMLVersion
Response.Cookies("CurrentVersion").Expires = Date + 365
End If
End If
GetAndSetXMLVersion = myXMLVersion
End Function
' Return the charset
' IN : -
' OUT : (string) charset's id
Function GetCharset()
Dim myCharset
If GetXMLAttribute("charset") Then
myCharset = GetXMLAttribute("charset")
Else
myCharset = "iso-8859-1"
End If
GetCharset = myCharset
End Function
%>
Grazie!
---------------
|
ippocampo
Avanzato
162 Discussioni
|
16 marzo 2004 alle 21:08:02
Ciao. prova a togliere il numero "7", e dicci cosa succede! Hai per caso modificato il file webcounter-inc.asp? Aspettiamo notizie!
---------------
Notepad Forever......
|
|
1
2
>>
|
Anna
Versione stampabile | Questa pagina è stata eseguita in 0,2421875 secondi.
CONFIGURAZIONE
2 tebelle uguali..aiuto