HTML/ASP-kode i et textarea?

Easy...2 sek.. :D

Venter spændt :o)

kommentar = RS("kommentar")&""
    kommentar = server.HtmlEncode(kommentar)
    kommentar = replace(kommentar,vbcrLF,"<br>")

har du ikke bare glemt at lave replace på kommentar i stedet for på rs("kommentar") ???

MySQL version:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={MySQL};Server=localhost;Database=DinDB;UID=;PWD;"
Set rs = Conn.Execute("SELECT * FROM DinTabel")

if not (rs.eof or rs.bof) then
while not (rs.eof or rs.bof) do
  Kommentar = Replace(rs("Kommentar"),vbCrLf,"<br>")
  Response.Write Kommentar
rs.MoveNext
loop
else
Response.Write "Ingen kommentare..."
end if
%>

og så lige Access version: (tror jeg nok ... det er 100 år siden jeg har arbejdet med en Access DB)
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dinDB.mdb")
SQL = "SELECT * FROM DinTabel"
Conn.Open sql, 1, 3

if not (rs.eof or rs.bof) then
while not (rs.eof or rs.bof) do
  Kommentar = Replace(rs("Kommentar"),vbCrLf,"<br>")
  Response.Write Kommentar
rs.MoveNext
loop
else
Response.Write "Ingen kommentare..."
end if
%>

Pisse StruerNet! Nu er det selvfølgelig nede lige i øjeblikket. Kæmper for at komme ind til koden :o(

mr.meincke: Jeg benytter MS Access.

Ok, så ikke dit seneste indlæg

2 sek igen....Roder rundt i mine asp bøger :D

kimiwan, jeg læser jo RS("kommentar") over i variablen kommentar... eller?

Prøv at læse din egen kode en gang og gennem gå linje for linje, hvad variablen kommentar indeholder.  Hvis du stadig ikke kan se det, kan du poste dit bud :o)

kommentar = RS("kommentar")&""
kommentar = server.HtmlEncode(kommentar)
kommentar = replace( RS("kommentar"),vbcrLF,"<br>")

prøv....Din normale kode og så:

  if not rs("kommentar") = nil then
    kommentar = RS("kommentar")&""
    kommentar = server.HtmlEncode(kommentar)
    kommentar = replace( RS("kommentar"),vbcrLF,"<br>")
  end if

mr.meincke, jeg ved det er meget, men her kommer hele koden:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
dbConn = "SERVER=Local;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/fpdb/include.mdb")
Conn.open dbConn

' Hent besvarelser

SQL = "SELECT * FROM debat WHERE post_parent = " & Request.QueryString("emneID") & " ORDER BY emneID"
Set RS = Conn.Execute (SQL)

' Vis besvarelser:

While NOT RS.EOF

    tidspunkt = addZ(day(RS("tid"))) & "-" & addZ(month(RS("tid"))) & "-" & year(RS("tid")) & " " & addZ(hour(RS("tid"))) & ":" & addZ(minute(RS("tid")))

    Response.Write "<table border=""0"" cellpadding=""4"" cellspacing=""0"" width=""100%""><tr><td width=""20%""></td><td width=""80%""><span class=""tekst11""><b><br><br>" & "Besvaret af: " & "</b>" & RS("nick") & " den " & "<nobr>" & tidspunkt & "</nobr>" & "</b></span></td></tr>"
    Response.Write "<tr><td width=""20%""></td><td width=""80%""><table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"" background=""/images_default/tdbg.gif""><tr><td><img border=""0"" src=""/images_default/1x1.gif"" width=""1"" height=""1""></td></tr></table></td></tr>"
    kommentar = RS("kommentar")&""
    kommentar = server.HtmlEncode(kommentar)
    kommentar = replace( RS("kommentar"),vbcrLF,"<br>")
    Response.Write "<tr><td width=""20%""></td><td width=""80%""><span class=""tekst11""><p align=""justify"">" & kommentar & "</p></span></td></tr>"
    Response.Write "<tr><td width=""20%""></td><td width=""80%""><table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"" background=""/images_default/tdbg.gif""><tr><td><img border=""0"" src=""/images_default/1x1.gif"" width=""1"" height=""1""></td></tr></table></td></tr>"
    Response.Write "</table>"

    RS.MoveNext
    text=""
Wend

RS.Close
Set RS = nothing
Conn.Close
Set Conn = nothing
%>

<%
Set Conn = Server.CreateObject("ADODB.Connection")
dbConn = "SERVER=Local;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/fpdb/include.mdb")
Conn.open dbConn

' Hent besvarelser

SQL = "SELECT * FROM debat WHERE post_parent = " & Request.QueryString("emneID") & " ORDER BY emneID"
Set RS = Conn.Execute (SQL)

' Vis besvarelser:

While NOT RS.EOF

    tidspunkt = addZ(day(RS("tid"))) & "-" & addZ(month(RS("tid"))) & "-" & year(RS("tid")) & " " & addZ(hour(RS("tid"))) & ":" & addZ(minute(RS("tid")))

    Response.Write "<table border=""0"" cellpadding=""4"" cellspacing=""0"" width=""100%""><tr><td width=""20%""></td><td width=""80%""><span class=""tekst11""><b><br><br>" & "Besvaret af: " & "</b>" & RS("nick") & " den " & "<nobr>" & tidspunkt & "</nobr>" & "</b></span></td></tr>"
    Response.Write "<tr><td width=""20%""></td><td width=""80%""><table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"" background=""/images_default/tdbg.gif""><tr><td><img border=""0"" src=""/images_default/1x1.gif"" width=""1"" height=""1""></td></tr></table></td></tr>"
    if not RS("kommentar") = "" then
    kommentar = RS("kommentar")
    kommentar = replace(kommentar,"<","&lt;")
    kommentar = replace(kommentar,">","&gt;")
    kommentar = replace(kommentar,vbcrLF,"<br>")
    else
    kommentar = "Ingen kommentar."
    end if
    Response.Write "<tr><td width=""20%""></td><td width=""80%""><span class=""tekst11""><p align=""justify"">" & kommentar & "</p></span></td></tr>"
    Response.Write "<tr><td width=""20%""></td><td width=""80%""><table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"" background=""/images_default/tdbg.gif""><tr><td><img border=""0"" src=""/images_default/1x1.gif"" width=""1"" height=""1""></td></tr></table></td></tr>"
    Response.Write "</table>"

    RS.MoveNext
    text=""
Wend

RS.Close
Set RS = nothing
Conn.Close
Set Conn = nothing
%>

Ser fint ud, mr.meinke. Jeg vil afprøve det, lige så snart der er adgang igen. Det KAN være, at det er tordenvejret, som har været på spil :o/ Men jeg har ikke adgang lige nu.

Husk at lægge et svar

Kk...Jeg vil også gå i seng....Ses i morgen :o)

Sov godt .... og lad os håbe det virker i morgen .... :D

Det håber jeg :o) Foreløbigt 1000 tak, nye bedste ven :o)

mr.meincke, jeg får den samme fejl:

Microsoft VBScript runtime error '800a005e'

invalid use of null: 'Replace'

:o/

kommentar = RS("kommentar")
skal være
kommentar = RS("kommentar") & ""

...gav du helt op mht. min kode, eller hvad?

Det fjernede godt nok fejlmeddelelsen, men jeg får bare tomme felter, hvor koden skulle være postet?

Hvad gør & "" egentlig?

Ja, det gjorde jeg (gav op mht. til din kode). Den har jeg faktisk prøvet flere gange i forskellige varianter, men det VIL ikke lykkes :o/

SORRY, kimiwan! Det virker jo! :o)

kommentar = replace(kommentar,vbcrLF,"<br>")

gjorde tricket. I får 25 bobs hver for anstrengelserne, er det 10-4?

Jeg havde lavet en tyrkfejl. Sorry, kimiwan :o/

For lige at vende tilbage til denne her:

& ""

Hvad gør den?

Jeg går lige i selvsving med alle mine spørgsmål :o)

Jeg kunne godt tænke mig, at brugernes links og e-mailadresser bliver gjort aktive. Kan det lade sig gøre? Jeg opretter et nyt spørgsmål, hvis I mener det kan lade sig gøre.

& "" gør at det bliver en string - så undgår du at den er NULL.

og selvfølgelig kan det lade sig gøre at gøre emails og links aktive - du skal bare lave html-koden til det ;o)

response.write "<a href=""" & rs("link") & """ target=""_blank"">" & rs("link") & "</a>"
response.write "<a href=""mailto:" & rs("email") & """>" & rs("email") & "</a>"

Jeg tænker på, når brugeren i sit indlæg indtaster et eller flere links i sit indlæg (i textarea)?

Faktisk ligesom her på Eksperten: www.MinSide.dk eller min@email.dk

Her bliver alle links og e-mailadresser gjort aktive, men jeg kan også skrive kode:

<html>

<head>
<title></title>
</head>

<body>

</body>

</html>

www.minside.dk
www.dinside.dk
min@email.dk
din@email.dk

Jeg har hørt noget om Regular Expressions. Har det noget på sig?

Jeg har oprettet et nyt spørgsmål, hvis I skulle få lyst til at deltage: http://www.eksperten.dk/spm/226421