---
title: "ASP kod eller html i forum?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/48830-asp-kod-eller-html-i-forum"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "crisse6"
published: "2002-07-27T14:07:36.000Z"
updated: "2002-07-28T15:50:39.000Z"
replies: 14
views: 278
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/48830-asp-kod-eller-html-i-forum"
---

# ASP kod eller html i forum?

## #1 — crisse6, 2002-07-27T14:07Z

Heeej!

Jag har ett forum där man ska kunna posta asp kod, php, javascript, bla bla... men forumet tolkar det som riktig kod, hur gör man för att den inte ska det? alltså så att man ska kunna skicka html kod och asp mm, som inte servern tolkar som riktig kod?

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

## #2 — CatZ, 2002-07-27T15:03Z

Tror alvarligt talat inte någon förstår vad du menar, asp och html är riktig kod.....

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

## #3 — crisse6, 2002-07-27T15:06Z

men du fattar väl, om jag skriver en kod snutt här på wF så skrivs den ut som jag skrev den, men på mitt blir det just nu så att servern tror att den ska använda koden! förstår ni?

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

## #4 — Peeer, 2002-07-27T15:24Z

Du får använda dig av server.htmlencode().

ex

```
dinvariabel = "<b>tjock text</b>"
response.write Server.HTMLencode(dinvariabel)
```

Resulterar i att texten \<b\>tjock text\</b\> skrivs ut i webläsaren, istället för **tjock text**
Hoppas du förstår!

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

## #5 — crisse6, 2002-07-27T15:25Z

när ska jag göra det? när man fyller i formuläret eller när man visar?

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

## #6 — crisse6, 2002-07-27T15:25Z

det är ju vid formuläret jag får fel....

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

## #7 — Peeer, 2002-07-27T15:39Z

Får du fel vid formuläret? Felmeddelande? Kod?

Koden du fick ovan ska användas när du ska skriva ut informationen.

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

## #8 — crisse6, 2002-07-27T15:54Z

det beror på hur långt koden man ska skriva är, men om den är ganska kort blir det inget felmess, men det spelar ingen roll, för när man sedan ska kolla inlägget så skrivs inget ut.

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

## #9 — Peeer, 2002-07-27T15:57Z

nu fattar jag mindre och mindre. Men skicka upp koden för sidan med formuläret, sidan som sparar datan, sidan som visar datan så ska det nog gå. (kanske)

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

## #10 — crisse6, 2002-07-27T16:09Z

formulär:

```
<form name="formular" method="POST" action="new2.asp">
<b>Rubrik:</b><br>
<input type="text" name="rubrik"><br>
<b>Inlägg:</b><br>
<textarea rows="5" name="inlagg" cols="30"></textarea>
<input type="hidden" name="av" value="<%=Session("anvandarnamn")%>">
<br>
<input type="submit" value="Skicka" name="B1">
</form>
```

new2.asp (tar emot)

```
<%
If request.form("rubrik")= "" OR request.form("inlagg") = "" then
response.write "Du måste fylla i båda fälten, gå tillbaka."
else
Datum = Now
SQL4 = "INSERT INTO add_forum ([datum], [inlagg], [anvandarnamn], [orginal], [rubrik], [re]) VALUES(#"& Datum &"#,'" & Request.Form("inlagg") & "','" & Session("anvandarnamn") &"', 'Ja', '" & Request.Form("rubrik") & "','Nej')"

Databas.execute(SQL4)

SQL41 = "SELECT @@Identity"
set rs = Databas.execute(SQL41)

SQL42 = "UPDATE add_forum SET [svarid] = " & rs(0) & " WHERE id = " & rs(0) & ""
Databas.execute(SQL42)

SQL5 = "UPDATE medlemmar SET antal_inlagg = antal_inlagg +1 WHERE anvandarnamn = '" & Session("anvandarnamn") & "'"
response.write id
Databas.Execute(SQL5)

response.redirect "/forum2/default.asp"
end if
%>
```

skriver ut read.asp (lång som f\*n)

```
<%
nextPage = TRIM( Request( "nextPage" ) )
IF nextPage = "" THEN nextPage = 1

Set rs = Server.CreateObject("ADODB.Recordset")
Set rs2 = Server.CreateObject("ADODB.Recordset")
Set rs3 = Server.CreateObject("ADODB.Recordset")

sql = "select * from add_forum where svarid = '" & Request.Querystring("id") & "' and RE = 'Ja'" 

set rs=Databas.execute(sql) 
If rs.EOF then

sql = "select * from add_forum where svarid = '" & Request.Querystring("id") & "'" 
else
sql = "select add_forum.*, medlemmar.antal_inlagg from add_forum, medlemmar where svarid = '" & Request.Querystring("id") & "' and RE = 'Ja' and medlemmar.anvandarnamn = add_forum.anvandarnamn"
set rs = Databas.execute(sql)
end if 
%>
<%
Function smiley(strText) 
strText = Replace(strText,":P","<img src=retas.gif>") 
strText = Replace(strText,";)","<img src=glimt.gif>") 
strText = Replace(strText,":(","<img src=lessen.gif>") 
strText = Replace(strText,"X(","<img src=sur.gif>") 
strText = Replace(strText,":D","<img src=supergrin.gif>") 
strText = Replace(strText,":r","<img src=rodnar.gif>") 
strText = Replace(strText,":)","<img src=glad.gif>") 
strText = Replace(strText,":()","<img src=flirtar.gif>") 
strText = Replace(strText,":O","<img src=chockad.gif>") 
strText = Replace(strText,"[kod]","<b>Kod</b><hr size=1 color=#000000><font face=Arial size=1 color=#990000>")
strText = Replace(strText,"
```

","\<hr size=1 color=#000000\>\</font\>")
strText = Replace(strText,"**","\<b\>")
strText = Replace(strText,"**","\</b\>")
strText = Replace(strText,vbCrLf,"\<br\>")
strText = Replace(strText,"*","\<i\>")
strText = Replace(strText,"*","\</i\>")
smiley = strText
End Function 
%\>
\<%
sql2 = "select \* from add_forum where orginal = 'Ja' AND id = " & Request.Querystring("id") & ""
sql3 = "select \* from medlemmar Where anvandarnamn = '" & Session("anvandarnamn") &"'"
rs.close
rs.cursorlocation = 3
rs2.cursorlocation = 3
rs3.cursorlocation = 3

rs.CacheSize = 5
rs.Open sql, Databas, 3, 1
set rs2 = Databas.execute(sql2)
set rs3 = Databas.execute(sql3)

rs.PageSize = 10 
rs.AbsolutePage = nextPage

X = 0
response.write "\<table width=480\>\<tr\>\<td\>\<span class=urubrik\>\<a href=/forum2/default.asp\>Webforum\</a\> \>\> \<a href=#\>Active Server Pages\</a\> \>\> "& rs2("rubrik") &"\</span\>\<br\>\</td\>\</tr\>"
response.write "\<tr\>\<td\>\<b\>Inlägg:\</b\>\<br\>"& smiley(rs2("inlagg")) &"\<br\>\<br\>Skribent: "& rs("anvandarnamn") &"\<hr size=1 color=#000000\>\<br\>\<b\>Svar:\</b\>\<br\>\</td\>\</tr\>\</table\>"
If rs.eof then
response.write "Inga svar"
else
If rs("re") = "Ja" then
DO UNTIL rs.eof OR rowCount = rs.PageSize
rowCount = rowCount + 1
if bgcolor = "#FFFFFF" then
bgcolor = "#EFEFEF"
else
bgcolor = "#FFFFFF"
end if
response.write "\<table width=480 cellspacing=3 bgcolor="& bgcolor &"\>\<tr\>\<td width=100 valign=top\>"& rs("anvandarnamn") &"\</td\>\<td width=380 valign=top\>\<a href="& rs3("hemsida") &"\>\<img src=home.gif border=0 alt=Hemsida\>\</a\>&nbsp;&nbsp;\<a href=mailto:"& rs3("mail") &"\>\<img src=email.gif border=0 alt=""Skicka ett mail till "& rs3("mail") &"""\>\</a\>&nbsp;&nbsp;\<a href=""javascript:na_open_window('news', '/medlemmar/profil.asp?vem="& rs("anvandarnamn") &"', 0, 0, 450, 300, 0, 0, 1, 1, 0)"" target=\_self\>\<img src=profile.gif border=0 alt=""Läs "& rs("anvandarnamn") &"'s profil""\>\</a\>&nbsp;&nbsp;\<a href=""javascript:na_open_window('news', '/medlemmar/pm.asp', 0, 0, 450, 300, 0, 0, 1, 1, 0)"" target=\_self\>\<img src=sendpm.gif border=0 alt=""Skicka ett PM till "& rs("anvandarnamn") &"""\>\</a\>\</td\>\</tr\>\</table\>"
response.write "\<table width=480 cellspacing=3 bgcolor="& bgcolor &"\>\<tr\>\<td width=100 valign=top\>Inlägg: "& rs("antal_inlagg") &"\</td\>\<td width=350 valign=top\>"& smiley(rs("inlagg")) &"\</td\>" &\_
"\<td width=50 valign=top\>"& rs("datum") &"\</td\>\</tr\>\</table\>"
rs.movenext
loop
IF rs.PageCount \> 1 THEN 

FOR a = 1 to rs.PageCount
IF a \<\> cINT( nextPage ) THEN 
Response.Write "\<a href=read.asp?nextPage="& a &"&id=" & Request.Querystring("id") & "\>"& a &"\</a\>"
ELSE 
Response.Write "&nbsp;"& a
END IF 
NEXT 
END IF
end if
end if
%\>
\<%
If request.form("inlagg") = "" then
%\>
\<table valign=top\>\<tr\>\<td\>
\<form name="formular" method="POST" action="read.asp?id=\<%=request.querystring("id")%\>"\>
\<b\>Svara:\</b\>\<br\>
\<textarea rows="5" name="inlagg" cols="30"\>\</textarea\>
\<input type="hidden" name="av" value="\<%=Session("anvandarnamn")%\>"\>
\<input type="hidden" name="svarid" value="\<%=Request.Querystring("id")%\>"\>
\<br\>
\<input type="submit" value="Skicka" name="B1"\>
\</form\>
\</td\>
\<td valign=top\>\<b\>Smileys\</b\>\<br\>\<br\>
:) = \<img src=glad.gif\>\<br\>
:( = \<img src=lessen.gif\>\<br\>
X( = \<img src=sur.gif\>\<br\>
\<td valign=top\>
\<br\>\<br\>
:P = \<img src=retas.gif\>\<br\>
:r = \<img src=rodnar.gif\>\<br\>
;) = \<img src=glimt.gif\>\<br\>
\</td\>
\<td valign=top\>
\<br\>\<br\>
:() = \<img src=flirtar.gif\>\<br\>
:O = \<img src=chockad.gif\>
\</td\>\</tr\>\</table\>
\<br\>
\<b\>Webforum kod:\</b\>\<br\>

```
<font color=#990000>Kod inom</font>
```

\<br\>
**\<b\>Fet stil\</b\>**\<br\>
*\<i\>Kursiv stil\</i\>*
\<%
else
Datum = Now
SQL4 = "INSERT INTO add_forum (\[datum\], \[inlagg\], \[anvandarnamn\], \[svarid\], \[re\]) VALUES(#"& Datum &"#,'" & Request.Form("inlagg") & "','" & Session("anvandarnamn") &"','" & Request.Form("svarid") &"', 'Ja')"
SQL5 = "UPDATE medlemmar SET antal_inlagg = antal_inlagg +1 WHERE anvandarnamn = '" & Session("anvandarnamn") & "'"
Databas.Execute(SQL4)
Databas.Execute(SQL5)
response.redirect "read.asp?id=" & request.querystring("id") & ""
end if
rs.CLOSE
rs2.close
Databas.CLOSE
Set rs = nothing
Set rs2 = nothing
Set Databas = nothing
%\>

där har du den koden ;) :e

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

## #11 — Peeer, 2002-07-27T16:28Z

Puh.. orkar inte läsa igenom hela den koden. Men jag förstår inte varför du får fel vid formuläret. Det ser ju ut att vara korrekt.

Server.HTMLencode ska du lägga till i funktionen smiley:

```
Function smiley(strText) 
[b]strText = Server.HTMLencode(strText)[/b]
strText = Replace(strText,":P","<img src=retas.gif>")
```

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

## #12 — trexter.com, 2002-07-27T16:44Z

Annars kan du använda taggarna \<pre\> och \</pre\> Mellan taggarna har du asp/html-koden från databasen.
Smidigt...
 ;)

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

## #13 — crisse6, 2002-07-28T15:45Z

vad menar du trexter?

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

## #14 — crisse6, 2002-07-28T15:48Z

Peeer, det funkar nu med server.encode... :)

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

## #15 — crisse6, 2002-07-28T15:50Z

lite jobbigt bara... om man te x har med \<hr\> i koden eller nåt så skapas en hr...

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/48830-asp-kod-eller-html-i-forum