rsx("M_NOTER") = Replace(Server.HTMLEncode(Request("M_NOTER")),vbcrlf,"<BR>")

Dim rsReplace
rsReplace = (rsMembers("M_NOTER"))
rsReplace = Replace(rsReplace, vbCrLf, "<br>") 
Response.Write rsReplace

<%@ Language="VBScript" %>

<% '## Using Option Explicit requires that all variables are declared ## %>
<% Option Explicit %>

<!-- #INCLUDE FILE="inc_protect.asp" -->

<!-- #INCLUDE FILE="inc_config.asp" -->

<!-- #INCLUDE FILE="inc_header.asp" -->

<!-- #INCLUDE FILE="inc_banner.asp" -->

<!-- #INCLUDE FILE="inc_toplinks.asp" -->

<%
Dim rsReplace

'Read in the record number to be updated
lngRecordNo = CLng(Request.QueryString("ID"))

'## Åbner en forbindelse til vores database
Call OpenDataBase

'## Opbygning af SQL streng
Set rsMembers = myConn.Execute("SELECT PRIVAT_MEMBERS.* FROM PRIVAT_MEMBERS WHERE MEMBER_ID=" & lngRecordNo)

%>

		<tr>
			<td class="body_txt">

	<table width="100%" border="0" cellspacing="0" cellpadding="0">
		<tr>
            <td width="100%" valign="top" class="c_cont">
<h1><% Response.Write (rsMembers("M_FIRSTNAME")) & " " & (rsMembers("M_LASTNAME")) %>'s profil</h1><br>
			</td>
			<td valign="top" align="center" class="c_cont"><a href="#" onClick="history.back()">Tilbage</a><br></td>
		</tr>
	</table>

<%
'## Write the HTML to display the current record in the recordset
Response.Write "<table width=""50%"" border=""1"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _

				"<tr><td width=""20%"" valign=""top"" class=""c_cont"">" & vbNewLine & _
				"Brugernavn:</td><td width=""30%"" valign=""top"" class=""c_cont"">"
Response.Write (rsMembers("M_USERNAME"))
Response.Write "</td></tr>" & vbNewLine & _

				"<tr><td width=""20%"" valign=""top"" class=""c_cont"">" & vbNewLine & _
				"Navn:</td><td width=""30%"" valign=""top"" class=""c_cont"">"
Response.Write (rsMembers("M_FIRSTNAME")) & " " & (rsMembers("M_LASTNAME"))
Response.Write "</td></tr>" & vbNewLine & _

				"<tr><td width=""20%"" valign=""top"" class=""c_cont"">" & vbNewLine & _
				"Adgangs level:</td><td width=""30%"" valign=""top"" class=""c_cont"">"
Response.Write (rsMembers("M_LEVEL"))
Response.Write	"</td></tr>" & vbNewLine & _

				"<tr><td width=""20%"" valign=""top"" class=""c_cont"">" & vbNewLine & _
				"E-mail:</td><td width=""30%"" valign=""top"" class=""c_cont"">"
Response.Write "<a href=mailto:" & rsMembers("M_EMAIL") & ">" & rsMembers("M_EMAIL") & "</A>"
Response.Write	"</td></tr>" & vbNewLine & _

				"<tr><td width=""20%"" valign=""top"" class=""c_cont"">" & vbNewLine & _
				"Fødselsdag:</td><td width=""30%"" valign=""top"" class=""c_cont"">"
Response.Write (rsMembers("M_FØDSELSDAGSDATO"))
Response.Write "</td></tr>" & vbNewLine & _

				"<tr><td width=""20%"" valign=""top"" class=""c_cont"">" & vbNewLine & _
				"Adresse:</td><td width=""30%"" valign=""top"" class=""c_cont"">"
Response.Write (rsMembers("M_ADRESSE"))
Response.Write "</td></tr>" & vbNewLine & _

				"<tr><td width=""20%"" valign=""top"" class=""c_cont"">" & vbNewLine & _
				"Postnr:</td><td width=""30%"" valign=""top"" class=""c_cont"">"
Response.Write (rsMembers("M_POSTNR"))
Response.Write "</td></tr>" & vbNewLine & _

				"<tr><td width=""20%"" valign=""top"" class=""c_cont"">" & vbNewLine & _
				"By:</td><td width=""30%"" valign=""top"" class=""c_cont"">"
Response.Write (rsMembers("M_BYNAVN"))
Response.Write "</td></tr>" & vbNewLine & _

				"<tr><td width=""20%"" valign=""top"" class=""c_cont"">" & vbNewLine & _
				"Privat telefon:</td><td width=""30%"" valign=""top"" class=""c_cont"">"
Response.Write (rsMembers("M_PRIVATTELEFON"))
Response.Write	"</td></tr>" & vbNewLine & _

				"<tr><td width=""20%"" valign=""top"" class=""c_cont"">" & vbNewLine & _
				"Mobil telefon:</td><td width=""30%"" valign=""top"" class=""c_cont"">"
Response.Write (rsMembers("M_MOBILTELEFON"))
Response.Write "</td></tr>" & vbNewLine & _

				"<tr><td width=""20%"" valign=""top"" class=""c_cont"">" & vbNewLine & _
				"Sidste nyt:</td><td width=""30%"" valign=""top"" class=""c_cont"">"
rsReplace = (rsMembers("M_NOTER"))
rsReplace = Replace(rsReplace, vbCrLf, "<br>") 
Response.Write rsReplace
Response.Write "</td></tr>" & vbNewLine & _

				"</table>"
Response.Write "<tr>" & vbNewLine & _
				"<td height=""8"" colspan=""2""><img src=""img/1x1.gif"" width=""1"" height=""1"" border=""0"" alt=""""></td>" & vbNewLine & _
				"</tr>"
'## Luk for recordset
rsMembers.Close

'## Frigør fra hukommelsen på serveren
Set rsMembers = Nothing

'## Luk forbindelsen til serveren igen
Call CloseDataBase

%>
			</td>
		</tr>

<!-- #INCLUDE FILE="inc_footer.asp" -->