---
title: "Blå inlägg!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13067-blå-inlägg"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "graf"
published: "2001-12-07T21:57:00.000Z"
updated: "2001-12-08T00:13:00.000Z"
replies: 1
views: 158
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/13067-blå-inlägg"
---

# Blå inlägg!

## #1 — graf, 2001-12-07T21:57Z

Hej allihopa!
Om jag vill att inlägget ska vara med blå text istället för svart, vad ändrar jag då i denna kod? Tack på förhand!

\<!-- #include file="adovbs.inc" --\>

\<HEAD\>
\<SCRIPT LANGUAGE="JavaScript"\>

\<!-- DRT
function doscriptwin(path) {
window.open(path, "\_blank", "scrollbars,width=820,height=550,resizable=yes,left=150,top=80");
}
// DRT--\>

\</SCRIPT\>

\</HEAD\>
  \<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"\>
\<style type="text/css"\>
\<!--
a:link { text-decoration: none; color: #000000}
a:visited { text-decoration: none; color: #000000}
a:active { text-decoration: none; color: #330000}

BODY { 
scrollbar-face-color: #FFFFFF; 
scrollbar-shadow-color: #CCCCCC; 
scrollbar-highlight-color: #CCCCCC; 
scrollbar-3dlight-color: #CCCCCC; 
scrollbar-darkshadow-color: #CCCCCC; 
scrollbar-track-color: #FFFFFF; 
scrollbar-arrow-color: #CCCCCC;
}
\--\>
\</style\>

\<%
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?webmaster432"
END IF

'##### SLUT KONTROLLERAT #####

'####### FIXAR SMILEYS OCH ANNAT ######

text = Request.Form("kommentar")
text = server.HTMLEncode(text)
text = Replace(text,vbCrLf,"\<br\>")

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
%\>

\<html\>
\<head\>
\<title\>Graf\</title\>
\<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"\>

\</head\>

\<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"\>
\<p align="left"\>\<font face="Verdana, Arial, Helvetica, sans-serif" size="6" color="#000000"\>\<b\> 
  \<% IF Request.QueryString("DO") \<\> "READ" THEN %\>
  \</b\>\</font\>\<font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"\>\<br\>
  \<b\>\</b\>\<br\>
  \<br\>
  \<br\>
  \<a href=javaScript:window.self.close()\>\<IMG SRC="stang_fonster.gif" border="0"\>\</a\>\<br\>
  \<br\>
  \</p\>
\<div align="left"\>\<font face="Verdana, Arial, Helvetica, sans-serif" size="1"\>\<b\> 
  \<% 
			IF Session("fel") \<\> "" THEN
			Response.Write Session("fel")
			Session("fel") = ""
			End IF
			%\>
  \</b\> \</font\> \</div\>
\<form name="form1" method="post" action="gb.asp?DO=SKICKA"\>
  \<div align="left"\>
    \<table width="400" border="0" cellspacing="0" cellpadding="2"\>
      \<tr\> 
        \<td width="143"\> \<font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif"\>     
\<INPUT TYPE="text" NAME="namn" Value="graf" READONLY\>
          \</font\>\</td\>
        \<td width="249"\>\<font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif"\>namn\<font color="#993300"\>\</font\>\</font\>\</td\>
      \</tr\>
      \<tr\> 
        \<td width="143"\> \<font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif"\> 
          \<input type="text" name="epost" size="25" maxlength="50"\>
          \</font\>\</td\>
        \<td width="249"\>\<font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif"\>E-mail 
          \</font\>\</td\>
      \</tr\>
      \<tr\> 
        \<td width="143"\> \<font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif"\> 
          \<input type="text" name="hemsida" size="25" value="" maxlength="50"\>
          \</font\>\</td\>
        \<td width="249"\>\<font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif"\>Hemsida\</font\>\</td\>
      \</tr\>
      \<tr\> 
        \<td colspan="2"\> \<font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif"\> 
          \<textarea name="kommentar" rows="5" cols="40"\>\</textarea\>
          \</font\>\<font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif"\>text\<font color="#993300"\>\</font\>\</font\>\</td\>
      \</tr\>
      \<tr\> 
        \<td width="143"\> \<font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif"\> 
          \<input type="submit" name="Submit" value="Spara" alt="Posta ditt inl&auml;gg" border = "0"\>
          \</font\>\</td\>
        \<td width="249"\>&nbsp;\</td\>
      \</tr\>
    \</table\>
  \</div\>
\</form\>
\<p align="center"\> 
  \<% END IF %\>
  \<font face="Verdana, Arial, Helvetica, sans-serif" size="1"\> 
  \<% IF Request.QueryString("DO") = "READ" THEN 

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 ORDER BY DATUM DESC"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

'#### Räknar ut antal sidor ####

COUNT = 0
DO UNTIL RecSet.EOF
	COUNT = COUNT +1
	RecSet.MOVENEXT
LOOP

IF int(COUNT/5) = COUNT/5 THEN
antal_sidor = COUNT/5
ELSE
antal_sidor = int(COUNT/5)+1
END IF

RecSet.Close
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

'##### SLUT PÅ RÄKNANDET #####
%\>
  \</font\>\</p\>
\<div align="center"\>\<font face="Verdana, Arial, Helvetica, sans-serif" size="1"\>\<br\>
  Antal sidor: 
  \<% FOR X=1 TO antal_sidor %\>
  \<a href="gb.asp?DO=READ&skipp=\<%=(X-1)%\>"\>\<%=X%\>\</a\> 
  \<% NEXT %\>
  \<%
IF Request.QueryString("skipp") = "" THEN
skipp = 0
ELSE
skipp = Request.QueryString("skipp")
END IF
'### Hoppar fram till rätt inlägg ###

	FOR X=1 TO skipp
		FOR Y=1 TO 9
			RecSet.MOVENEXT
		NEXT
	NEXT
	
'#### KLAR ####

Z=0
DO UNTIL RecSet.EOF OR Z=10
Z=Z+1
%\>
  \<br\>
  \<br\>
  \</font\> 
  \<table width="400" border="0" cellspacing="0" cellpadding="1"\>
    \<tr\> 
      \<td bgcolor="#F5F5F5"\> 
        \<table width="100%" border="0" cellspacing="0" cellpadding="2"\>
          \<tr\> 
            \<td\>\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"\>Skrivet 
              av:\<font color="#993300"\> \<%=RecSet("NAMN")%\> \</font\> den: \<%session.lcid=1053%\>
\<%=dateadd("h",6,cdate(RecSet("DATUM")))%\>
              \</font\>\</td\>
          \</tr\>
          \<tr\> 
            \<td bgcolor="#FFFFFF"\> \<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"\> 
              \<b\>\<%=RecSet("HEMSIDA")%\>\</B\>\<p\>\<%=RecSet("KOMMENTAR")%\> \<br\>
              \<br\>
              \</font\> 
              \<hr width="100%" size="1" align="center"\>
            \</td\>
          \</tr\>
          \<tr\> 
            \<td bgcolor="#FFFFFF"\> \<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"\> 
              \<%
IF RecSet("HEMSIDA") = "" OR RecSet("HEMSIDA") = "http://" THEN
Response.Write "Ingen hemsida"
ELSE
%\>

              \<% END IF %\>
              &#0124; 
              \<%
IF RecSet("EPOST") = "" THEN
Response.Write "Ingen epost"
ELSE
%\>
              \[\<a href="mailto:\<%=RecSet("EPOST")%\>"\>\<%=RecSet("EPOST")%\>\</a\>\]
              \<% END IF %\>
              \</font\>\</td\>
          \</tr\>
        \</table\>
      \</td\>
    \</tr\>
  \</table\>
  \<font face="Verdana, Arial, Helvetica, sans-serif" size="1"\> 
  \<%
RecSet.MOVENEXT
LOOP
RecSet.Close
Connect.CLose
%\>
  \<%End If%\> \</font\>\</div\>
\</body\>
\</html\>

Permalänk: https://www.webforum.nu/p/13067

## #2 — mozilla, 2001-12-08T00:13Z

hmm ... e det inte bara att lägga med BODY {Font-Color: blue} i css delen??

sedan bara en fråga?? har du gjort det själv?? verkar lite väl bra för att inte veta hur man ändrar färg?

Permalänk: https://www.webforum.nu/p/300118

---

Tråden på webben: https://www.webforum.nu/amne/asp/13067-blå-inlägg
