--- title: "Röd färg på texten" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/12939-röd-färg-på-texten" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "graf" published: "2001-11-29T20:45:00.000Z" updated: "2001-12-01T06:41:00.000Z" replies: 5 views: 239 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/12939-röd-färg-på-texten" --- # Röd färg på texten ## #1 — graf, 2001-11-29T20:45Z Hej, om jag vill att när man skriver ett inlägg i min gästbok så ska man få röd text i inlägget istället för svart, vad måste jag ändra då? OBS: Jag vill endast att vissa inlägg ska vara röda, så att ändra själva huvudfärgen 000000 till röd är ingen bra ide då all text blir röd :-( Såhär ser en del av texten ut när man skriver ett inlägg, tusen tack till den som kan hjälpa mig. \<% IF Request.QueryString("DO") = "SKICKA" THEN '###### LITE KONTROLLER ###### IF Trim(Request.Form("namn")) = "" THEN Session("fel")= "Du måste fylla i NAMN" ElseIF Trim(Request.Form("kommentar")) = "" THEN Session("fel")= "Du måste fylla i en KOMMENTAR" END IF IF Session("fel") \<\> "" Then Response.Redirect "gb.asp?DO=SKRIV" END IF '##### SLUT KONTROLLERAT ##### '####### FIXAR SMILEYS OCH ANNAT ###### text = Request.Form("kommentar") text = server.HTMLEncode(text) text = Replace(text,vbCrLf,"\") namn = server.HTMLEncode(Request.Form("namn")) 'Så slipper man jobbigt folk! epost = server.HTMLEncode(Request.Form("epost")) 'Så slipper man jobbigt folk! hemsida = server.HTMLEncode(Request.Form("hemsida")) 'Så slipper man jobbigt folk! '################ SLUT ################ Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("db/gb97.mdb")&";" Set RecSet = Server.CreateObject("ADODB.Recordset") Addera = "Select \* From gb" RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic RecSet.ADDNEW RecSet("NAMN") = namn RecSet("EPOST") = epost RecSet("HEMSIDA") = hemsida RecSet("KOMMENTAR") = text RecSet("IP") = Request.ServerVariables("REMOTE_ADDR") RecSet("DATUM") = NOW() RecSet.UPDATE RecSet.Close Connect.Close Set RecSet = nothing Set Connect = nothing Response.Redirect "gb.asp" END IF %\> \ \ \Graf\ \ \ \ \

\\ \<% IF Request.QueryString("DO") \<\> "READ" THEN %\> \\\\ \\\ \ \ \\\\ \ \ \

\\ \<% IF Session("fel") \<\> "" THEN Response.Write Session("fel") Session("fel") = "" End IF %\> \ \ \ \
\
\ \ \
\ \ \\ \\Användarnamn\\\\ \ \ \ \ \ \\ \\E-mail \\ \ \ \ \ \ \\ \\Hemsida\\ \ \ \ \ \