Tekstbox med html

Jeg mente selvfølgelig linieskift!!

replace(rs(\"KOLONNE\"),VbCrLf,\"<br>\")

hvis mit tekst felt hedder nedenstående, hvorledes indsætter jeg det så

<textarea name=\"beksrivelse\" cols=\"45\" rows=\"20\"></textarea>

På forhånd tak

du skal gemme det i databasen som du plejer - det er udtrækket der skal se sådan ud i steder for bare rs(\"KOLONNE\")

Jeg fik desværre ikke lige sagt det før! men jeg gemmer i en access database!!! og når jeg så trækker dataen ud derfra skal den genkende linieskiftene..    jeg kan ikke lige finde KOLONNE i det jeg trækker ud!

Kom lige med din udtrækskode...

ellers:

replace(rs(\"dit felt i tabellen\"),VbCrLf,\"<br>\")

<b>Beskrivelse</b><br>
  <%=(Recordset1.Fields.Item(\"Beskrivelse\").Value)%></font></p>

KOLONNE står jo bare for navnet på den kolonne du trækker ud - og den kender jeg jo ikke, så derfor skal du jo nok indsætte det rigtige navn!

og din sql ?

OK!! det er jeg med på nu!! men hvor på siden skal den sættes ind??

replace(rs(\"Beskrivelse\"),VbCrLf,\"<br>\")

Sorry jeg ikke er helt med! jeg fyrer lige 60 ekstra point oven i!

lige efter du har skrevet din sgl og oprettet din connection til databasen - altså inden selve

<%=(Recordset1.Fields.Item(\"Beskrivelse\").Value)%>

Det kan godt være det er pågrund af at det er søndag - men kunne du evt lige vise det på selve koden!!!  tak!

<%@LANGUAGE=\"VBSCRIPT\"%>
<!--#include file=\"../Connections/mexi.asp\" -->
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = \"1\"
if (Request.QueryString(\"OID\") <> \"\") then Recordset1__MMColParam = Request.QueryString(\"OID\")
%>

<%
set Recordset1 = Server.CreateObject(\"ADODB.Recordset\")
Recordset1.ActiveConnection = MM_mexi_STRING
Recordset1.Source = \"SELECT * FROM opskrifter WHERE OID = \" + Replace(Recordset1__MMColParam, \"\'\", \"\'\'\") + \" ORDER BY Odato ASC\"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%>
<html>

<head>
<title>Untitled Document</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
</head>
<body bgcolor=\"#FFFFFF\" text=\"#000000\">
<p><b><font face=\"Verdana, Arial, Helvetica, sans-serif\">Nyeste opskrift</font></b></p>
<p><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\"><b>Kategori: </b><%=(Recordset1.Fields.Item(\"Kkategori\").Value)%></font></p>
<p><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\"> </font><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\"><b>Tilberedning</b><br>
  <%=(Recordset1.Fields.Item(\"OBeskrivelse\").Value)%></font></p>
<p><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\"> <b>Forfatter:
  </b><%=(Recordset1.Fields.Item(\"Oforfatter\").Value)%></font></p>
<p><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\"> <b>vises: </b><%=(Recordset1.Fields.Item(\"Oskalvises\").Value)%> </font> </p>
</body>
</html>
<%
Recordset1.Close()
%>

prøv

<%=(replace(Recordset1.Fields.Item(\"Beskrivelse\").Value),VbCrLf,\"<br />\")%>

Det virker desværre ikke!!

hvad gør den eller gør den ikke?

den viser slet ikke siden! den kommer ikke engang med en asp fejlmeddelelse!!!

Siden kan ikke vises
Der er problemer med den side, du prøver at åbne, og den kan ikke vises.

Tools>Internet Options>Advanced>Uncheck \"Show friendly HTTP-errors\"

Funktioner>Internet Instillinger>Avanceret>Fjern kryds i \"Vis uskadelige HTTP-fejl\"

gør dette og fortæl mig så hvad der sker

Dette er hvad den siger

Microsoft VBScript compilation error \'800a03ee\'

Expected \')\'

/mexi/admin/vis_detalje.asp, line 29

Response.Write((replace(Recordset1.Fields.Item(\"Beskrivelse\").Value),VbCrLf,\"<br />\"))
---------------------------------------------------------------------^

nu har du jo også sat response write foran - så er det klart der sker noget...

<%
Response.Write \"\" & replace(Recordset1.Fields.Item(\"Beskrivelse\").Value),VbCrLf,\"<br />\") & \"\"
%>

Nu er der ved at ske noget!! den skriver dog når jeg indsætter følgende:

<%
Response.Write \"\" & replace(Recordset1.Fields.Item(\"Beskrivelse\").Value),VbCrLf,\"<br />\" & \"\"
%>
----------------------------------------------

Microsoft VBScript runtime error \'800a01c2\'

Wrong number of arguments or invalid property assignment: \'Replace\'

/mexi/admin/vis_detalje.asp, line 22

<%
Response.Write \"\" & replace((Recordset1.Fields.Item(\"Beskrivelse\").Value),VbCrLf,\"<br />\") & \"\"
%>

Det er fadme iorden!!! tak skal du have