Ciao ragazzi vi spiego subito il mio problema (probabilmente banale ma non so come farlo):
Ho una pagina che si va a pescare dei dati da alcune email (mittente, oggetto, testo) in un database access, ora avrei necessità di formattare il testo di questa pagina (grassetto, colore differente...) a seconda per esempio del testo dell'oggetto di queste email...
come posso fare?
Con un po di IF verifichi il contenuto dell'oggetto e setti il colore del font il lo strong...
ad esempio:
Ovviamente sarebbe meglio usare i CSS:codice:oggetto = rs("campoOggetto") if oggetto = "Informazione" then font = "arial" colore = "red" strong1 = "" strong2 ="" elseIf oggetto = "Notifica" then font = "Times New Roman" colore = "blue" strong1 = "" strong2 = "" end if response.write "<font face=""" & font & "" color=""" & colore & "">" & strong1 & oggetto & strong2 & "</font>"
codice:oggetto = rs("campoOggetto") if oggetto = "Informazione" then classe = "pippo" elseIf oggetto = "Notifica" then classe = "topolino" end if response.write "<div class=""" & classe & "">" & oggetto & "</div>"
Bene.. ho capito il concetto... ma sono totalmente inesperto e non riesco ad adattare il codiche che mi hai scritto alle mie esigenze...
mio codice:
%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = c:/inetpub/test/database.mdb")
Set objRs = Server.CreateObject("ADODB.Recordset")
set objRs = objConn.Execute("SELECT * from Email")
Do while NOT objRs.EOF
response.write "OGGETTO =" & objRs("Oggetto") & "
"
' response.write "email = " & objRs("Corpo") & "
"
' response.write "commenti = " & objRs("Danome") & "
"
response.write "<hr size='1' color='midnightbluè width='40%' align='left'>"
objRs.Movenext
Loop
objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing
%>
codice:<% Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = c:/inetpub/test/database.mdb") Set objRs = Server.CreateObject("ADODB.Recordset") set objRs = objConn.Execute("SELECT * from Email") Do while NOT objRs.EOF oggetto = objRs("Oggetto") ' ti servono gli stili CSS che qui ho nominato come stile1, stile2, stile3 e default... ' oggetto nell'esempio l'ho paragonato a pippo, topolino, pluto... te metti il valore a te opportuno. if oggetto = "pippo" then stile = "stile1" elseIf oggetto = "topolino" then stile = "stile2" elseIf oggetto = "pluto" then stile = stile3" else stile = "default" end if response.write "<div class=""" & stile & "">OGGETTO =" & oggetto & "</div>" ' response.write "email = " & objRs("Corpo") & " " ' response.write "commenti = " & objRs("Danome") & " " response.write "<hr size='1' color='midnightbluè width='40%' align='left'>" objRs.Movenext Loop objRs.Close Set objRs = Nothing objConn.Close Set objConn = Nothing %>
come vi sarete accorti sono totalmente inesperto... non riesco a capire dove sto sbagliando, probabilmente perchè mi mancano proprio le basi....
esempio con un css veramente base...
e il css stile1.css<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
<link rel="stylesheet" type="text/css" href="stile1.css">
</head>
<body>
<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = c:/inetpub/test/database.mdb")
Set objRs = Server.CreateObject("ADODB.Recordset")
set objRs = objConn.Execute("SELECT * from Email")
Do while NOT objRs.EOF
oggetto = objRs("Oggetto")
' ti servono gli stili CSS che qui ho nominato come stile1, stile2, stile3 e default...
' oggetto nell'esempio l'ho paragonato a pippo, topolino, pluto... te metti il valore a te opportuno.
if oggetto = "I: prova" then
style = "stile1"
elseIf oggetto = "I: Possibilita' di laurearsi da 3 a 24 mesi" then
style = "stile2"
elseIf oggetto = "I: link x software backup win" then
style = "stile3"
else
style = "default"
end if
response.write "<div class="" & stile & "">OGGETTO =" & oggetto & "</div>"
objRs.Movenext
Loop
objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing
%>
</body>
</html>
non c'è nessuna formattazione del testo....stile1 {
color: #ff0000;
}
.stile2 {
color: #000080;
}
.stile3 {
color: #008000;
}
Se guardi il codice prodotto sul browser, overo da browser Visualizza / HTML, cosa vedi? Che classe ti mette su quel DIV?
Ah, fai anche la classe di nome default nel css.
Questo è il sorgente della mia pagina:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
<link rel="stylesheet" type="text/css" href="stile1.css">
</head>
<body>
<div class=" & stile & ">OGGETTO =Gmail è diverso. Queste sono le informazioni essenziali che devi conoscere prima di poter procedere.</div><div class=" & stile & ">OGGETTO =I: prova</div><div class=" & stile & ">OGGETTO =I: Possibilita' di laurearsi da 3 a 24 mesi</div><div class=" & stile & ">OGGETTO =I: link x software backup win</div>
</body>
</html>
come non detto, ho risolto inserendo un write.response all'interno di ogni if...
Quello è il sorgente del tuo file non il sorgente della pagina così come arriva sul browser... da browser devi fare menu VISUALIZZA e quindi HTML...Originariamente inviato da stefabona
Questo è il sorgente della mia pagina:
Permessi di invio
Rispondi quotando