ASP kod eller html i forum?

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

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?

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!

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

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

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

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

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.

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)

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>  <a href=mailto:"& rs3("mail") &"><img src=email.gif border=0 alt=""Skicka ett mail till "& rs3("mail") &"""></a>  <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>  <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 " "& 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

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>")

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

vad menar du trexter?

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

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