Forum 

Forum AspNuke.it - Il tuo Portale OpenSource in ASP

calendario eventi

Autore Messaggio
photosfera

Principiante
Principiante
17 Discussioni



Profilo - photosfera
19 settembre 2003 alle 13:17:21 Profilo - photosferaInvia un messaggio privato Rispondi quotando
calendario eventi dopo averlo installato mi da il seguente errore Tipo di errore:

Errore di compilazione di Microsoft VB_Script (0x800A03EA)
Errore di sintassi
/aspnuke/includes/functions-inc.asp, line 441
Function getEventiCount(dt)

questo caso è già stato segnalato in post precedenti ma senza risposta, se c'è qualcuno che può dirmi da cosa dipende mi fa un grosso favore, anche la pagine default non si visualizza più, sto provando tutto in locale, abbiate pazienza, saluti dal neofito photosfera.
---------------
prima di insegnare, bisogna impare.
photosfera

Principiante
Principiante
17 Discussioni



Profilo - photosfera
19 settembre 2003 alle 21:12:22 Profilo - photosferaInvia un messaggio privato Rispondi quotando
ecco il copia incolla
' Redirect to default page if user is not authorized to access to a special part of the site
' IN : iAccessRole (int) : minimum level's access
' OUT : -
Sub AccessOnly(iAccessRole)
If Not IsAuthorized(iAccessRole) Then
Set oLangXML = Nothing
Response.Redirect GLOBAL_SITE_PATH & "Default.asp"
Response.End
End If

'Conta e controlla eventi di un dato giorno
Function getEventiCount(dt)
getEventiCount=0
dim rSQL, oCn, dtInizio, oRs
Set oCn = DBConnexion(DB_EVENTI)
dtInizio=CDate(dt)
rSQL = "SELECT count(Event_ID)as count FROM events WHERE Data_Evento='"&DateToString(dtInizio)&"'"
Set oRs = DBRecordSet(oCn, rSQL)
if oRs.eof and ors.BOF then exit function
getEventiCount=oRs("count").Value
oRs.Close
End function



'Taglia la stringa e aggiunge 3 puntini
Function cutString(byval s, byval max)
s=Trim(s)
cutString=s
dim l
l=len(s)
if l>max then
cutString=left(s, max-3) & "..."
end if
End Function



'Controlla e aggiunge se vero
Function iif(exp, tPart, fPart)
if isObject(exp) then
set iif=fPart
else
iif=fPart
end if
if exp then
if isObject(exp) then
set iif=tPart
else
iif=tPart
end if
end if
End function
End Sub
%>

ho rifatto il tutto ,ora funziona la home page a amministrazione, appena clicco su altre tipo log off o download ecc. compare la pagina con il messaggio sopra desrcitto.
Anche il nuovo blocco mi compare con la scritta
Block title 1
Block content 1

boh?
grazie mille per la soluzione.
;)
---------------
prima di insegnare, bisogna impare.
djveleno

Amministratore

Esperto
Esperto
1025 Discussioni



Profilo - djveleno
19 settembre 2003 alle 23:00:44 Profilo - djvelenoInvia un messaggio privato Rispondi quotando
Sei sicuro di aver seguito tutte le istruzioni alla lettera? Ricontrolla tutti i passaggi, vedrai che troverai qualche cosa che non hai eseguito correttamente (ad esempio la creazione del nuuovo blocco...)
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 : 145
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: 202764 Post sui forum: 51195 Libro degli ospiti: 4 Eventi: 7

Versioni

Temi