janquesto che post sotto è il codice delle news ricordi:
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!!
Codice:
<%
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!!