Per JAN: mettere un colore al testo

[grottafelix]

janquesto che post sotto è il codice delle news ricordi:

<%
Dim strDatabasePath
Dim strNewsReadConn
Dim strNewsReadSql
Dim strNewsReadRs
Dim strNewsAddConn
Dim strNewsAddSql
Dim strNewsAddRs

Dim strFormMessage
Dim strMessageDate

strDatabasePath="mdb-database/database.mdb"
strMessageForm=Request.Form("messaggio")
strMessageDate=Day(Date()) & "/" & Month(Date()) & "/" & Year(Date())

If Request("Task")="" OR Request("Task")="Read" Then
	Set strNewsReadConn = Server.CreateObject("ADODB.Connection") 
		strNewsReadConn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(strDatabasePath) 
	Set strNewsReadRs = Server.CreateObject("ADODB.Recordset")
	strNewsReadSql =  "SELECT * FROM NEWS ORDER BY NEWS_ID DESC"
		strNewsReadRs.Open strNewsReadSql, strNewsReadConn, 3, 3
	Do while NOT strNewsReadRs.EOF
		Response.Write vbCrLf & "<li>"&strNewsReadRs("NEWS_DATE")&" - "&strNewsReadRs("NEWS_TEXT")
		strNewsReadRs.MoveNext
	Loop
		strNewsReadRs.Close
	Set strNewsReadRs = Nothing
		strNewsReadConn.Close
	Set strNewsReadConn = Nothing
	Response.Write vbCrLf & "</table>"
End If
If Request("Task")="New" Then
	If Len(strMessageForm)=0 Then
		Response.Write vbCrLf & "        <table align=""center"" cellpadding=""1"" cellspacing=""0"" width=""228"">"
		Response.Write vbCrLf & "          <form method=""post"" action=""news.asp?Task=New"">"
		Response.Write vbCrLf & "            <tr> "
		Response.Write vbCrLf & "              <td align=""center"">.:: Messaggio ::.</td>"
		Response.Write vbCrLf & "            </tr>"
		Response.Write vbCrLf & "            <tr> "
 		Response.Write vbCrLf & "             <td align=""center"">"
		Response.Write vbCrLf & "                <textarea name=""messaggio"" rows=""5"" cols=""30""></textarea></td>"
		Response.Write vbCrLf & "            </tr>"
		Response.Write vbCrLf & "            <tr> "
		Response.Write vbCrLf & "              <td align=""center"">"
		Response.Write vbCrLf & "                <input type=""submit"" value=""  Firma  "" name=""submit"">"
		Response.Write vbCrLf & "                <input type=""reset"" value=""Cancella"" name=""reset"">"
		Response.Write vbCrLf & "				</td>"
		Response.Write vbCrLf & "            </tr>"
		Response.Write vbCrLf & "          </form>"
		Response.Write vbCrLf & "        </table>"
	Else
		Set strNewsAddConn = Server.CreateObject("ADODB.Connection") 
			strNewsAddConn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(strDatabasePath) 
		Set strNewsAddRs = Server.CreateObject("ADODB.Recordset")
		strNewsAddSql =  "SELECT * FROM NEWS"
			strNewsAddRs.Open strNewsAddSql, strNewsAddConn, 3, 3
		strNewsAddRs.AddNew
		strNewsAddRs.Fields("NEWS_TEXT")=strMessageForm
		strNewsAddRs.Fields("NEWS_DATE")=strMessageDate
		strNewsAddRs.Update
			strNewsAddRs.Close
		Set strNewsAddRs = Nothing
			strNewsAddConn.Close
		Set strNewsAddConn = Nothing
		Response.Write vbCrLf & "<meta http-equiv=""refresh"" content=""1;URL=news.asp?Task=Read"">"		
	End If
End If
%>

vorrei che la data della news fosse di questo colore bianco
e la news di colore nero.
Tutto in arial grasetto!

Dove si cambia???
Tu sei l'asparo!!

 

[grottafelix]

a proposito tra una news e l'altra puoi far apparire di volta in in volta uno spazio che funga da separatore.
perchè cosi le news sono troppo attaccate!

 

[maxbossi]

Questa la stringa originale da sostituire:

Response.Write vbCrLf & "<li>"&strNewsReadRs("NEWS_DATE")&" - "&strNewsReadRs("NEWS_TEXT")

Questa quella con le modifiche che hai chiesto...

Response.Write vbCrLf & "<li><b><font face=arial color=#FFFFFF>"&strNewsReadRs("NEWS_DATE")&"</font> -<font face=arial color=#000000 >"&strNewsReadRs("NEWS_TEXT")&"</font></b>"

Prova a vedere un po'...