Forum 

Forum AspNuke.it - Il tuo Portale OpenSource in ASP

Forum
  SUPPORTO TECNICO 2.07
      MODULI AGGIUNTIVI
         problema solito modulo zodiaco

problema solito modulo zodiaco

Autore Messaggio
bayles

Amatore
Amatore
24 Discussioni


Profilo - bayles 		03 gennaio 2005 alle 12:28:53 Profilo - baylesInvia un messaggio privato Rispondi quotando
ho scaricato il modulo aggiuntivo zodiaco dal sito di dj..
l'ho installato con la solita procedura.. ma come al solito nei blokki grafici il modulo lo vedo.. ma poi nella pagina nn appare.. da ke dipende?
questo è il file zodiaco.asp.. c'è qualke errore?
ciao e grazie..

<%
Sub RequestZodiaco()

dim oLine

Response.Write GLOBAL_SITE_SUBTABLE & vbCRLF
oLine=1
%>
<%
'#########################
'#Script per visualizzare
'#il segno zodiacale del
'#momento
'#########################

Dim giorno, mese, anno, colore, gset, gsetd, mesed, segno
'Opzioni
'colore_bordo_tabella = "#6699cc"
'colore_sfondo_intestazione = "#6699cc"
'colore_testo_intestazione = "#ffffff"
'colore_sfondo_cella = "#f7f7f7"
'colore_testo = "#000080"


giorno = day(now)
mese = month(now)
anno = year(now)
gset = weekday(now)
colore = "#000000" 'nero

select case gset
case 1: gsetd="Domenica"
colore="#ff0000" 'rosso
case 2: gsetd="Lunedi`"
case 3: gsetd="Martedi`"
case 4: gsetd="Mercoledi`"
case 5: gsetd="Giovedi`"
case 6: gsetd="Venerdi`"
case 7: gsetd="Sabato"
case else
end select

select case mese
case 1 : mesed="Gennaio"
segno = "s_capricorno.gif"
If giorno > 20 Then
segno = "s_acquario.gif"
end if
case 2 : mesed="Febbraio"
segno = "s_acquario.gif"
If giorno > 19 Then
segno = "s_pesci.gif"
end if
case 3 : mesed="Marzo"
segno = "s_pesci.gif"
If giorno > 20 Then
segno = "s_ariete.gif"
end if
case 4 : mesed="Aprile"
segno = "s_ariete.gif"
If giorno > 20 Then
segno = "s_toro.gif"
end if
case 5 : mesed="Maggio"
segno = "s_toro.gif"
If giorno > 20 Then
segno = "s_gemelli.gif"
end if
case 6 : mesed="Giugno"
segno = "s_gemelli.gif"
If giorno > 21 Then
segno = "s_cancro.gif"
end if
case 7 : mesed="Luglio"
segno = "s_cancro.gif"
If giorno > 22 Then
segno = "s_leone.gif"
end if
case 8 : mesed="Agosto"
segno = "s_leone.gif"
If giorno > 22 Then
segno = "s_vergine.gif"
end if
case 9 : mesed="Settembre"
segno = "s_vergine.gif"
If giorno > 23 Then
segno = "s_bilancia.gif"
end if
case 10: mesed="Ottobre"
segno = "s_bilancia.gif"
If giorno > 22 Then
segno = "s_scorpione.gif"
end if
case 11: mesed="Novembre"
segno = "s_scorpione.gif"
If giorno > 22 Then
segno = "s_sagittario.gif"
end if
case 12: mesed="Dicembre"
segno = "s_sagittario.gif"
If giorno > 21 Then
segno = "s_capricorno.gif"
end if
case else
end select
%>

<table border="0" width="100%" class="mytable">
<tr>
<td width="100%" class="small">CALENDARIO</td>
</tr>
<tr>
<td width="100%">
<table width="100%" cellspacing="0" cellpadding="0">
<tr>
<td valign="top" width="50" align="center">
<img border="0" src="imgs/calendario.gif">
</td>
<td align="center" width="200">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" align="center" class="small">

Auguri ai nati sotto il segno

</td>
</tr>
<tr>
<td width="100%" align="center">
<img border="0" src="imgs/<%=segno%>" align="absmiddle">
</td>
</tr>
<tr>
<td width="100%" align="center">



</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%

End Sub
%>
djveleno

Amministratore

Esperto
Esperto
1025 Discussioni


Profilo - djveleno 		03 gennaio 2005 alle 14:02:16 Profilo - djvelenoInvia un messaggio privato Rispondi quotando
Quello è un modulo per la precedente versione, per adattarlo alla nuova, devi inserire:


<%
Sub DisplayZodiaco()
dim oLine
CreateTopTable"zodiaco", GetTranslation("LANG_ZODIACO")

Response.Write GLOBAL_SITE_SUBTABLE & vbCRLF

e alla fine:

<%
CreateBottomTable""
End Sub
%>

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 14:46:37 Profilo - baylesInvia un messaggio privato Rispondi quotando
ok.. ora funzia.. grazie mille..
gentilissmo come al solito..

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 : 103
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: 5685282 Post sui forum: 51195 Libro degli ospiti: 4 Eventi: 7

Versioni

Temi