Problem med tekst til database

Skal <br> fjerne så kan du gøre sådan:
tekst = replace(request.form("fritekst","<br>","")

Eller er det fordu har sådan en linie et sted:
tekst = replace(request.form("fritekst",vbCrLf,"<br>")

Kan jeg få hele din SQL sætning som du benytter når du føjer ny data til databasen?

bruger du et <textarea>...</textarea> felt til visning og indtastning ?

for dette virker fint

<HTML>
<HEAD>
</HEAD>



<%
dim databaseName,Con,Rs,strSQL
dim action


databaseName="xxxxxxxxx.mdb"

strSQL=""

'connect to database
Set Conn = server.createobject("ADODB.Connection")
Set Rs = server.createobject("ADODB.Recordset")
Conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& server.mappath(databaseName)

action=Request.QueryString("save")


if action = "yes" then
  strSQL = "INSERT INTO Tabel3 ( nr, fritekst ) values('12','" & Request.form("textarea1") &"');"
  Response.Write(strsql)
  Conn.execute(strSQL)
end if



'Get data
strSQL = "SELECT * FROM  tabel3"
Rs.open strSQL,Conn,1,3
set Rs = Conn.execute(strSQL)
while not Rs.EOF
  Response.Write("Value:" & rs("fritekst") &" <br>")
  %>
  <textarea id=textareax name=textareax><%=rs("fritekst")%></textarea>
  <%
Rs.MoveNext
wend
Rs.Close

%>

<BODY>

<form id=name method=post action="default.asp?save=yes">
<%


%>
<textarea id=textarea1 name=textarea1>ha ha</textarea>
<input type=submit name=submit>
</form>
</BODY>
</HTML>

Hos mig :-)

Jeg er ikke helt med...-Nybegynder...

Er det denne linie der skal rettes i? Jeg vil ikke lægge hele filen op da den er meget lang:

profil = server.htmlencode(Request.Form("profil"))

Hvis du gerne vil hvade fjernet de <br> som en bruger indtaster så:

profil = replace(Request.Form("profil"),"<br>","")
profil = server.htmlencode(profil)

Jeg foreslår at du når du skal til føje data til databasen at du gør sådan:

profilreplace = Replace(Request.Form("profil"),vbCrLf,"<br>")
profilreplace = server.htmlencode(profil)

...

profil = profilreplace

.......................

Når du så skal hente data fra databasen laver du først din conn string og derefter:

set rs = conn.Execute(navnet på din SQL linje)

profil = Replace(rs("profil"),"<br>",vbCrLf)

...

Der hvor brugernes fritext så skal vises laver du bare en:

<%=profil%>

Jeg vil råde dig til at ændre dit profil felt til et Notat eller Longtext som denne seje felt type også kan hedde!

Fik det aldrig til at virke og glemte at lukke, men er hermed gjort