if... then... else

[andreathedove]

Ciao ragazzuoli,
scusatemi per i rompimento de marun ma ho bisogno di voi...

Allora io ho un db access con Tabella nome myforums e un record di nome Periodo dove vanno inseriti, a seconda degli autori dei testi in che tmepi si trovano, la data "2000 ecc..."

Io voglio cambiare il colore del testo a seocnda della data e ho fatto:

<%
if periodo = 2000 then
%>

tipo di font rosso

<%
else
%>

tipo di font nero

<%
end if
%>

nn mi viene dove sbaglio ?

andrea

 

[maxbossi]

Devi prima definire il periodo...
Ecco cosa devi aggiungere all'inizio del tuo codice

Dim periodo
periodo = rs("periodo")
...

Prova ora...
Ciauz

 

[andreathedove]

mmmmmmmmm

questo è il codice:

<%
Dim periodo,nostro
p = "p"
si = "si"
f = "f"
tc = "tc"
no = "no"
favole = "favole"
ridere = "ridere"
aforismi = "aforismi"
Nostro = "Nostro"
t=request("t")
sql="SELECT periodo,forumid,forumname,tipo,show FROM myforums WHERE TIPO = '" & aforismi & "' and show = '" & si & "' ORDER BY FORUMID desc"
set conn=server.createobject("adodb.connection")
conn.open "Driver={Microsoft Access Driver (*.mdb)}; dbq=" & server.mappath("../../mdb-database/poesie2000.mdb")
set rs=server.createobject("adodb.recordset")
rs.open sql, conn, 1, 3

periodo = rs("periodo")

if periodo = "Nostro" then


%>
<%
function totalMessages(fid)
dim con1,rs1,totalRecords,P,si,favole,f,page
Set Con1 = server.CreateObject("ADODB.Connection")
'create recordset object
Set RS1 = server.CreateObject("ADODB.Recordset")
con1.open dsn
si = "si"
sql="select * from mestbl where show = '" & si & "' and forumid=" & fid
rs1.ActiveConnection = Con1
rs1.open sql,,adOpenStatic, adLockReadOnly
totalRecords=rs1.RecordCount
response.write totalRecords
end function
%>


<%
i=0
do until i=40 or rs.EOF
i=i+1
%>
<%

page=request("page")
tipo=rs("tipo")
id=rs("forumid")
name=rs("forumname")

%>



<tr><td bordercolor=#cococo bgcolor="#ffffff" width=4%><font class="unnamed1"><%response.write totalMessages(id)%></td><td bordercolor=#cococo bgcolor="#ffffff" width=16%><font class="unnamed1"> <%=(tipo)%> </td><td bgcolor="#ffffff" bordercolor=#cococo width=40%><A href="list.asp?fid=<%=(id)%>&name=<%=(name)%>&tipo=<%=(tipo)%>&page=<%=(page)%>" class="unnamed1">.:: <%=(name)%></a></td><td bgcolor="#ffffff" bordercolor=#cococo width=40%><a class="unnamed1" href="http://www.allinonenet.it/segnala.asp?azione=modulo&url=http://www.allinonenet.it/dir/ps/list.asp?fid=<%=(id)%>" target="_blank"> Segnala il poeta ad un amico </a></td><tr>


<%
rs.movenext
loop
%>
<%
else
%>
<%
function totalMessages(fid)
dim con1,rs1,totalRecords,P,si,favole,f,page
Set Con1 = server.CreateObject("ADODB.Connection")
'create recordset object
Set RS1 = server.CreateObject("ADODB.Recordset")
con1.open dsn
si = "si"
sql="select * from mestbl where show = '" & si & "' and forumid=" & fid
rs1.ActiveConnection = Con1
rs1.open sql,,adOpenStatic, adLockReadOnly
totalRecords=rs1.RecordCount
response.write totalRecords
end function
%>


<%
i=0
do until i=40 or rs.EOF
i=i+1
%>
<%

page=request("page")
tipo=rs("tipo")
id=rs("forumid")
name=rs("forumname")

%>



<tr><td bordercolor=orange bgcolor="#ffffff" width=4%><font class="unnamed1"><%response.write totalMessages(id)%></td><td bordercolor=#cococo bgcolor="#ffffff" width=16%><font class="unnamed1"> <%=(tipo)%> </td><td bgcolor="#ffffff" bordercolor=#cococo width=40%><A href="list.asp?fid=<%=(id)%>&name=<%=(name)%>&tipo=<%=(tipo)%>&page=<%=(page)%>" class="unnamed1">.:: <%=(name)%></a></td><td bgcolor="#ffffff" bordercolor=#cococo width=40%><a class="unnamed1" href="http://www.allinonenet.it/segnala.asp?azione=modulo&url=http://www.allinonenet.it/dir/ps/list.asp?fid=<%=(id)%>" target="_blank"> Segnala il poeta ad un amico </a></td><tr>


<%
rs.movenext
loop
end if
%>

se il periodo è uguale a nostro mi dovrebbe dare la cella #cococo
invece se no orange...

mi da tutto orange anche se nel db ho anche un periodo nostro xche ?

andrea

 

[maxbossi]

Mamma mia che casino...
Non ce bisogno di scrivere 2 pagine di codice per fare una cosa così semplice...
Apri la tua connessione al DB, imposta il recordset e poi inserisci questo codice...

<%
Dim Periodo, Color
Periodo = rs("periodo")
if Periodo = "Nostro" then
Color = "#C0C0C0"
else
Color = "orange"
end if
%>

<table>
<tr>
<td bgcolor="<%=Color%>">Testo...</td>
</tr>
</table>

Ovviamente è solo una bozza...
Devi modificare tu il codice per adattarlo alla tua pagina ma dovrebbe essere una cosa molto semplice...

 

[andreathedove]

ehm

... a bubu-settete hi hi ...
lo so ho fatto un casino e per questo mi ritengo un vero imbecille... ma io son un semplice dottore in commercio e di asp non ce capisco un caz***

scusa cmq e grazie per l'aiuto

andrea

 

[maxbossi]

Sono contento se ti sono stato di aiuto...
Se hai bisogno sono qui
Ciauz

 

[andreathedove]

:devil

Non te preoccupa che mo ce pensi io a sfruttarti hi hi :devil

ciao e grazie ancora
andrea

 

[andreathedove]

eh eh je suis in ferie...

eccomi qui di nuovo...
da oggi sono in ferie, cosa buona per me...
cosa brutta per voi...

hi hi

una semplice domanda:

ho questo link...

www.allinonenet.it/differenza.asp?tua_data=19/09/1977

tua data vorrei che mi andasse a finire dove ci sono i trattini,
come faccio ?

<%
Oggi = date()
DataFinale = CDate ("-----")
tua = cint((oggi-datafinale)/365)
%>

grazie mille :book:

 

[andreathedove]

Gia fatto...

gia fatto grazie...