---
title: "HTML spärr i profil"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/56900-html-spärr-i-profil"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Firegamez.com"
published: "2002-10-23T18:37:57.000Z"
updated: "2002-10-24T16:43:08.000Z"
replies: 5
views: 197
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/56900-html-spärr-i-profil"
---

# HTML spärr i profil

## #1 — Firegamez.com, 2002-10-23T18:37Z

Hej! Jag har en asp kod som fixar så man har en profil! Här e den som skriver ut profilen!

```
<%
se=request("se")

'******************* SENASTE BESÖKARNA ***************************************
SQLv="SELECT visits FROM users WHERE username='" & se & "'"
Conn.execute(SQLv)
	
Set Rsv=Server.CreateObject("ADODB.Recordset")
Rsv.open SQLv, Conn, 3,3

if username<>se then
	'lägg till en ny besökare
	adda=username & "*"
			
	happ=adda & rsv("visits")
	
	sqlo="UPDATE users SET visits='" & happ & "'" & _
	     "WHERE username='" & se & "'"
	conn.execute(sqlo)
end if
	
'*****************************************************************************

SQL3="SELECT * FROM users WHERE username='" & se & "'" 
Conn.execute(SQL3)

Set Rs3=Server.CreateObject("ADODB.Recordset")
Rs3.open SQL3, Conn, 3,3

If NOT rs3.EOF Then
SQL4="SELECT * FROM presentation WHERE who='" & se & "'"
Conn.execute(SQL4)

Set Rs4=Server.CreateObject("ADODB.Recordset")
Rs4.open SQL4, Conn, 3,3

If NOT rs4.EOF Then
response.write("<table width=""100%"" cellpadding=""3"">" & _
vbcrlf & "<tr>" & vbcrlf & _
"<td colspan=""3""><font size=""2"" face=""arial,helvetica"">" & _
"<b>" & se & "</b> </font>")

'*************** KOLLA OM ANVÄNDAREN ÄR ONLINE ***************

'**************************************************************

response.write("</tr>" & vbcrlf & "<tr>" & vbcrlf & "<td colspan=""3"">" & _
"<font size=""1"" face="" verdana, sans-serif"">" & _
rs3("firstname") & " ")

if rs3("sex")="female" then 
response.write("T")
else
response.write("K")
end if

newage=DateDiff ("d", rs3("DoB"), Now)
newage=newage / 365
newage=formatnumber(newage,2)
newage=left(newage,2)
response.write(newage & "&nbsp;")

response.write("från " & rs3("Ort"))

if rs4("url1")<>"" then
response.write(" <a href=""" & rs4("url1") & """" & _
" target=""_blank"">Hemsida</a> ")
end if

response.write("  Blev medlem " & rs3("blevmedlem"))

response.write("  Poäng " & rs3("poang"))

response.write("</font></td>" & vbcrlf & "</tr>" & _
"<tr><td valign=""top"" class=""meny"" width=""86"" height=""105"">" & _
"<img src=""" & rs4("pic") & """ width=""86"" height=""105"" border=""0""></td>" & _
"<td valign=""top"" class=""meny"" width=""80%"">" & _
"<font size=""1"" face=""verdana, sans-serif"">")

post=Smiley(rs4("beskrivning"))
post=Server.HTMLEncode(post) 
post = Replace(post, chr(13), "")
post = Replace(post, chr(10) & chr(10), "<br> <br>")
post = Replace(post, chr(10), "<br>")

response.write(post & "&nbsp;") 

response.write("</font></td>" & _
"<td valign=""top"" class=""meny"" width=""100%"">" & _
"<font size=""1"" face=""verdana, sans-serif"">" & _
"Besökare:<br>")

'******************* SENASTE BESÖKARNA ***************************************
if rsv("visits")<>"blah" Then
'splitta!
visitors=rsv("visits")
visit_array=Split(visitors,"*", -1, 1)
'ta bort sista, 

If ubound(visit_array) < 2 then
	lay = ubound(visit_array) 
else
	lay=2
end if
for p=0 to lay
response.write("<a href=""profil.asp?se=" & visit_array(p) & _
""">" & visit_array(p) & "</a><br>") 
next
else
response.write("Ingen har varit här=(<br>")
end if

'******************************************************

		    response.write("<br><a href=""friends.asp?se=" & se & """>Vännerna</a><br>" & _  
"<a href=""gb.asp?se=" & se & """>Gästboken</a><br>" & _
"<a href=""dagbok.asp?se=" & se & """>Dagboken</a><br>" & _
"<a href=""messagecompose.asp?senduser=" & se & """>Skicka mail</a></font></td>" & _
vbcrlf & "</tr>" & _
"<tr><td colspan=""3""><font size=""1""" & _
" face="" verdana, sans-serif"">" & _
"</font></td></tr></table>")
%>
```

Jag vill få bort nått i den så man kan skriva   \<font size="1" face="Arial"\>\<b\>Hejsan\</b\>\</font\>
Nu skrivs de ut som de står! Står HTML spärren i denna kod?????

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

## #2 — Ekström, 2002-10-23T18:47Z

```
post=Server.HTMLEncode(post)
```

 är boven... ;)

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

## #3 — Firegamez.com, 2002-10-23T19:02Z

nääää va det inte! Fungerar ändå inte!

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

## #4 — Firegamez.com, 2002-10-23T19:39Z

Är det ingen som vet?!??!?!

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

## #5 — Ekström, 2002-10-23T19:44Z

Du har inte en Server.HTMLEncode() i funktionen Smiley då?

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

## #6 — Firegamez.com, 2002-10-24T16:43Z

öj! Vill inte erkänna det men de var där..... hehehehheh tackar!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/56900-html-spärr-i-profil