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