Syntaks-spm

<tr>
      <td colspan=\"3\" borderColor=#000000
                style=\"BORDER-LEFT: 1px solid; BORDER-RIGHT: 1px solid\" ><br>
        <p><%=replace(tabel(\"besked\"), VbCrLf, \"<br>\")%>


      </td>
    </tr>

Dette giver en fejl

<tr>
      <td colspan=\"3\" borderColor=#000000
                style=\"BORDER-LEFT: 1px solid; BORDER-RIGHT: 1px solid\" ><br>
        <p><%=replace(rs(\"besked\"), VbCrLf, \"<br>\")%>


      </td>
    </tr>

Brug:
<% besked = Replace(table(\"besked2\"), vbCrLf, \"<br>\")  %>



  <tr>
      <td colspan=\"3\" borderColor=#000000
                style=\"BORDER-LEFT: 1px solid; BORDER-RIGHT: 1px solid\" ><br>
        <p><%=besked%>   
      </td>
    </tr>

rs skal være dit recordset hvis du skriver din åbning af tabellen kan man hurtigt finde ud af det :)

Der opstod en Microsoft VBScript-kørselsfejl fejl \'800a005e\'

Null er brugt ugyldigt: \'replace\'

>>>minijensen
Dit forslag gav følgende:

Der opstod en Microsoft VBScript-kørselsfejl fejl \'800a000d\'
Typerne passer ikke sammen: \'table\'

recordset ?????

Vil i se hele koden?

Hele koden? Ja, tak, det vil gøre det meget nemmere!

Følgende er en sid der henter data fra en database. Det der skal ske er at jer gerne vil bibeholde de mellemrum og linieafstande der var i teksten da den blev indtastet/pastet.

<html>

<head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<meta name=\"ProgId\" content=\"FrontPage.Editor.Document\">
<title>ID</title>
<LINK rel=\"stylesheet\" type=\"text/css\" href=\"style.css\">
</head>

<body bgcolor=\"#6C7E91\" leftmargin=\"5\" topmargin=\"0\" marginwidth=\"5\" marginheight=\"0\">
<%

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"news.mdb\")

SQLstmt = \"SELECT * FROM news WHERE id = \" & Request(\"id\")

Conn.Execute (SQLstmt)

Set rs = conn.Execute(SQLstmt)
  %> <%
  \'DO WHILE NOT rs.EOF
    Dato = rs(\"Dato\")
    overskrift = rs(\"overskrift\")
    Besked = rs(\"Besked\")
    Forfatter = rs(\"Forfatter\")
    link = rs(\"link\")
        %>
<div align=\"center\">
  <table border=\"0\" width=\"300\" cellspacing=\"0\" cellpadding=\"0\">
    <tr bgcolor=\"67798B\" align=\"center\">
      <td  borderColor=#000000
                style=\"BORDER-BOTTOM: 1px solid; BORDER-LEFT: 1px solid; BORDER-TOP: 1px solid; BORDER-RIGHT: 1px solid\" colspan=\"3\" height=\"25\" >
        <p><b><%=overskrift%></b></p> </td>
    </tr>
    <tr >
      <td  height=\"25\" borderColor=#000000
                style=\"BORDER-LEFT: 1px solid; BORDER-RIGHT: 1px solid\"  >
        <a href=\"default.asp\"><img src=\"images/pil_back.gif\" width=\"18\" height=\"13\" border=\"0\"></a>
      </td>
    </tr>
    <tr >
      <td colspan=\"3\" height=\"25\" borderColor=#000000
                style=\" BORDER-LEFT: 1px solid; BORDER-RIGHT: 1px solid\" >
        <p> <i>Af:<%=Forfatter%> - <a href=\"mailto:Pia@kainoe.nu\">Pia@kainoe.nu</a></i>
      </td>
    </tr>
  <% besked = Replace(table(\"besked2\"), vbCrLf, \"<br>\")  %>



  <tr>
      <td colspan=\"3\" borderColor=#000000
                style=\"BORDER-LEFT: 1px solid; BORDER-RIGHT: 1px solid\" ><br>
        <p><%=besked%>   
      </td>
    </tr>


    <tr>
      <td colspan=\"3\" height=\"25\"borderColor=#000000
                style=\"BORDER-LEFT: 1px solid; BORDER-RIGHT: 1px solid\"  >&nbsp;</td>
    </tr>
    <tr>
      <td colspan=\"3\" borderColor=#000000
                style=\"BORDER-BOTTOM: 1px solid; BORDER-LEFT: 1px solid; BORDER-RIGHT: 1px solid\"  ><a href=\"default.asp\"><img src=\"images/pil_back.gif\" width=\"18\" height=\"13\" border=\"0\"></a></td>
    </tr>
  </table>
  <br>
</div>
  <%
    \'rs.MoveNext
  \'LOOP
  \'RS.Close
  Response.Write \"</TABLE>\"

conn.Close
Set conn = nothing
Set SQLstmt = nothing
%>


<p align=\"center\">&nbsp;</p>


</body>

</html>

<% besked = Replace(rs(\"besked\"), vbCrLf, \"<br>\")  %>

Du må ikke have NULL i den string hvorpå der udføres replace derfor:
<tr>
      <td colspan=\"3\" borderColor=#000000
                style=\"BORDER-LEFT: 1px solid; BORDER-RIGHT: 1px solid\" ><br>
        <p><%
        If not isNull(rs(\"besked\") then
          Response.Write Replace(rs(\"besked\"), vbCrLf, \"<br>\")
        End If %>
      </td>
    </tr>

hvor skal jeg sætte det ind henne og hvad skal jeg slette??

<html>

<head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<meta name=\"ProgId\" content=\"FrontPage.Editor.Document\">
<title>ID</title>
<LINK rel=\"stylesheet\" type=\"text/css\" href=\"style.css\">
</head>

<body bgcolor=\"#6C7E91\" leftmargin=\"5\" topmargin=\"0\" marginwidth=\"5\" marginheight=\"0\">
<%

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"news.mdb\")

SQLstmt = \"SELECT * FROM news WHERE id = \" & Request(\"id\")

Conn.Execute (SQLstmt)

Set rs = conn.Execute(SQLstmt)
  %> <%
  \'DO WHILE NOT rs.EOF
    Dato = rs(\"Dato\")
    overskrift = rs(\"overskrift\")
    Besked = rs(\"Besked\")
    Forfatter = rs(\"Forfatter\")
    link = rs(\"link\")
        %>
<div align=\"center\">
  <table border=\"0\" width=\"300\" cellspacing=\"0\" cellpadding=\"0\">
    <tr bgcolor=\"67798B\" align=\"center\">
      <td  borderColor=#000000
                style=\"BORDER-BOTTOM: 1px solid; BORDER-LEFT: 1px solid; BORDER-TOP: 1px solid; BORDER-RIGHT: 1px solid\" colspan=\"3\" height=\"25\" >
        <p><b><%=overskrift%></b></p> </td>
    </tr>
    <tr >
      <td  height=\"25\" borderColor=#000000
                style=\"BORDER-LEFT: 1px solid; BORDER-RIGHT: 1px solid\"  >
        <a href=\"default.asp\"><img src=\"images/pil_back.gif\" width=\"18\" height=\"13\" border=\"0\"></a>
      </td>
    </tr>
    <tr >
      <td colspan=\"3\" height=\"25\" borderColor=#000000
                style=\" BORDER-LEFT: 1px solid; BORDER-RIGHT: 1px solid\" >
        <p> <i>Af:<%=Forfatter%> - <a href=\"mailto:Pia@kainoe.nu\">Pia@kainoe.nu</a></i>
      </td>
    </tr> <tr>
      <td colspan=\"3\" borderColor=#000000
                style=\"BORDER-LEFT: 1px solid; BORDER-RIGHT: 1px solid\" ><br>
        <p><%
        If not isNull(rs(\"besked\") then
          Response.Write Replace(rs(\"besked\"), vbCrLf, \"<br>\")
        End If %>
      </td>
    </tr>

    <tr>
      <td colspan=\"3\" height=\"25\"borderColor=#000000
                style=\"BORDER-LEFT: 1px solid; BORDER-RIGHT: 1px solid\"  >&nbsp;</td>
    </tr>
    <tr>
      <td colspan=\"3\" borderColor=#000000
                style=\"BORDER-BOTTOM: 1px solid; BORDER-LEFT: 1px solid; BORDER-RIGHT: 1px solid\"  ><a href=\"default.asp\"><img src=\"images/pil_back.gif\" width=\"18\" height=\"13\" border=\"0\"></a></td>
    </tr>
  </table>
  <br>
</div>
  <%
    \'rs.MoveNext
  \'LOOP
  \'RS.Close
  Response.Write \"</TABLE>\"

conn.Close
Set conn = nothing
Set SQLstmt = nothing
%>


<p align=\"center\">&nbsp;</p>


</body>

</html>

Der opstod en Microsoft VBScript-kompileringsfejl fejl \'800a03ee\'

Tegnet \')\' var ventet

/kainø.nu/artikler/vis_besked.asp, linje 57

If not isNull(rs(\"besked\") then
---------------------------^

Istedet for:
<% besked = Replace(table(\"besked2\"), vbCrLf, \"<br>\")  %>
Så skriv:
<% besked = Replace(rs(\"besked\"), vbCrLf, \"<br>\")  %>

Der opstod en Microsoft VBScript-kompileringsfejl fejl \'800a03ee\'

Tegnet \')\' var ventet

/kainø.nu/artikler/vis_besked.asp, linje 52

If not isNull(rs(\"besked\") then
---------------------------^

I den linie hvor fejlen opstod skal der stå:
If not isNull(rs(\"besked\")) then

>> minijensen1 øøøhh jeg bliver nødt til at se det indsat i koden før jeg er med

Fejl:
If not isNull(rs(\"besked\")) Then

>> gandalfthewhite nu viser den slet ikke feltet \"besked\"

hallo blev jeg dumpet der eller hvad?

Du har lige givet en fejl meddelelse hvor fejlen er, at dit recordset indeholder NULL. Et NULL betyder ingenting/nada/zip/nothing/intet. Så derfor kan der heller ikke vises noget.
Hvis du søger for at der rent faktisk kommer noget ud fra database, så vil det blive skrevet på siden.

Jamen der er da noget i databasen

Er det mig der er dum eller hvad sker der??

Jeg forstår det ikke feltet besked i databasen er fuld af tekst men der kommer igenting på siden.

Hvordan søger jeg for at der rent faktisk kommer noget ud fra database, så vil det blive skrevet på siden. ???????

Kaster nogle flere point efter spørgsmålet, så kan det være du får svar
Blackmail he, he ;-)

Point-pistolen afyret - kom så med det!!!!

aaarrrrrggghhhhhh

Først og fremmest skal du sørge for at du rent faktisk får et id sendt til siden.

Det vil sige at i linien:

SQLstmt = \"SELECT * FROM news WHERE id = \" & Request(\"id\")

skal request(\"id\") gerne modtage en værdi.

check dette ved at indsætte linien:
response.write \"ID: \" & request(\"id\")

f.eks lige efter før nævnte linie.

Når du ser resultatet skulle der gerne stå indholdet af id øverst på siden.

Hvis der bare står \"ID:\" og ingenting efter, så modtager siden ikke id\'et og du vil derfor ikke få noget ud fra databasen.

Hvis ID\'et står der skal du chekke, at der rent faktisk er en record i database med det tilsvarende ID.

inegra2ren: der burde være noget i feltet, og ikke null, som det sker nu.
Det har jeg ikke lige tålmodighed til at hjælpe dig med nu. Men hvis der
en gang i mellem er et null, og du vil undgå den allerførste fejlbesked er det
nemmeste at lave en & med en tom streng:

<%=replace(\"\" & tabel(\"besked\"), VbCrLf, \"<br>\")%>

Hej Erik
NULL undgås med if isNull(), så det er ikke et problem længere. Min tålmodighed holder ved lidt i nu ;-)

Nu har jeg indsat

response.write \"ID: \" & request(\"id\")

men den skriver stadig ikke indholdet af \"besked\" derimod skriver den ID-nr i toppen af siden

Tak for jeres tålmod jeg er på glatis

afsat flere piont

Det ID nummer der bliver udskrevet findes det i database i tabellen News?
Hvis det gør, er der så tekst i feltet der hedder besked i den række?

Id findes og der er indhold i besked-feltet

Betyder det noget at feltet \"besked\" i databasen er sat som notat?

Har du en mail adresse, så lad os kommunikere den vej.

Kan jeg bruge det her til noget??


Tekst = Replace(RS(\"Tekst\"), vbCrLf, \"<BR>\" & vbCrLf)
Response.Write Tekst

thomas@integra2ren.dk

Det kommer an på hvad feltet hedder i database.
rs(\"tekst\") eller rs(\"besked\") henviser til navnet på feltet i databasen. Det der står i paranteserne skal altså være nøjagtigt det samme som det feltet hedder i databasen.

Det er jeg med på men jeg vil måske kunne bruge det sådan her?:

Tekst = Replace(RS(\"besked\"), vbCrLf, \"<BR>\" & vbCrLf)
Response.Write Tekst

Men hvor i koden skal det sættes ind??

Koden ser nu sådan ud:


<html>

<head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<meta name=\"ProgId\" content=\"FrontPage.Editor.Document\">
<title>ID</title>
<LINK rel=\"stylesheet\" type=\"text/css\" href=\"style.css\">
</head>

<body bgcolor=\"#6C7E91\" leftmargin=\"5\" topmargin=\"0\" marginwidth=\"5\" marginheight=\"0\">
<%

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"news.mdb\")

SQLstmt = \"SELECT * FROM news WHERE id = \" & Request(\"id\")
response.write \"ID: \" & request(\"id\")

Conn.Execute (SQLstmt)

Set rs = conn.Execute(SQLstmt)
  %> <%
  \'DO WHILE NOT rs.EOF
    Dato = rs(\"Dato\")
    overskrift = rs(\"overskrift\")
    Besked = rs(\"Besked\")
    Forfatter = rs(\"Forfatter\")
    link = rs(\"link\")
        %>




<div align=\"center\">
  <table border=\"0\" width=\"300\" cellspacing=\"0\" cellpadding=\"0\">
    <tr bgcolor=\"67798B\" align=\"center\">
      <td  borderColor=#000000
                style=\"BORDER-BOTTOM: 1px solid; BORDER-LEFT: 1px solid; BORDER-TOP: 1px solid; BORDER-RIGHT: 1px solid\" colspan=\"3\" height=\"25\" >
        <p><b><%=overskrift%></b></p> </td>
    </tr>
    <tr >
      <td  height=\"25\" borderColor=#000000
                style=\"BORDER-LEFT: 1px solid; BORDER-RIGHT: 1px solid\"  >
        <a href=\"default.asp\"><img src=\"images/pil_back.gif\" width=\"18\" height=\"13\" border=\"0\"></a>
      </td>
    </tr>
    <tr >
      <td colspan=\"3\" height=\"25\" borderColor=#000000
                style=\" BORDER-LEFT: 1px solid; BORDER-RIGHT: 1px solid\" >
        <p> <i>Af:<%=Forfatter%> - <a href=\"mailto:Pia@kainoe.nu\">Pia@kainoe.nu</a></i>
      </td>
    </tr> <tr>
      <td colspan=\"3\" borderColor=#000000
                style=\"BORDER-LEFT: 1px solid; BORDER-RIGHT: 1px solid\" ><br>
        <p><%
        If not isNull(rs(\"besked\")) Then 
          Response.Write Replace(rs(\"besked\"), vbCrLf, \"<br>\")
        End If %>
      </td>
    </tr>

    <tr>
      <td colspan=\"3\" height=\"25\"borderColor=#000000
                style=\"BORDER-LEFT: 1px solid; BORDER-RIGHT: 1px solid\"  >&nbsp;</td>
    </tr>
    <tr>
      <td colspan=\"3\" borderColor=#000000
                style=\"BORDER-BOTTOM: 1px solid; BORDER-LEFT: 1px solid; BORDER-RIGHT: 1px solid\"  ><a href=\"default.asp\"><img src=\"images/pil_back.gif\" width=\"18\" height=\"13\" border=\"0\"></a></td>
    </tr>
  </table>
  <br>
</div>
  <%
    \'rs.MoveNext
  \'LOOP
  \'RS.Close
  Response.Write \"</TABLE>\"

conn.Close
Set conn = nothing
Set SQLstmt = nothing
%>


<p align=\"center\">&nbsp;</p>


</body>

</html>

TAK FOR EN KJÆMPE INDSATS

Og for en god ordens skyld så er her koden som nu virker:


<html>

<head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<meta name=\"ProgId\" content=\"FrontPage.Editor.Document\">
<title>ID</title>
<LINK rel=\"stylesheet\" type=\"text/css\" href=\"style.css\">
</head>

<body bgcolor=\"#6C7E91\" leftmargin=\"5\" topmargin=\"0\" marginwidth=\"5\" marginheight=\"0\">
<%

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"news.mdb\")

SQLstmt = \"SELECT * FROM news WHERE id = \" & Request(\"id\")

Conn.Execute (SQLstmt)

Set rs = conn.Execute(SQLstmt)
  %> <%
  \'DO WHILE NOT rs.EOF
    Dato = rs(\"Dato\")
    overskrift = rs(\"overskrift\")
    Besked = rs(\"Besked\") & \"\"
    Forfatter = rs(\"Forfatter\")
    link = rs(\"link\")
        %>




<div align=\"center\">
  <table border=\"0\" width=\"300\" cellspacing=\"0\" cellpadding=\"0\">
    <tr bgcolor=\"67798B\" align=\"center\">
      <td  borderColor=#000000
                style=\"BORDER-BOTTOM: 1px solid; BORDER-LEFT: 1px solid; BORDER-TOP: 1px solid; BORDER-RIGHT: 1px solid\" colspan=\"3\" height=\"25\" >
        <p><b><%=overskrift%></b></p> </td>
    </tr>
    <tr >
      <td  height=\"25\" borderColor=#000000
                style=\"BORDER-LEFT: 1px solid; BORDER-RIGHT: 1px solid\"  >
        <a href=\"default.asp\"><img src=\"images/pil_back.gif\" width=\"18\" height=\"13\" border=\"0\"></a>
      </td>
    </tr>
    <tr >
      <td colspan=\"3\" height=\"25\" borderColor=#000000
                style=\" BORDER-LEFT: 1px solid; BORDER-RIGHT: 1px solid\" >
        <p> <i>Af:<%=Forfatter%> - <a href=\"mailto:Pia@kainoe.nu\">Pia@kainoe.nu</a></i>
      </td>
    </tr> <tr>
      <td colspan=\"3\" borderColor=#000000
                style=\"BORDER-LEFT: 1px solid; BORDER-RIGHT: 1px solid\" ><br>
        <p><%= Replace(Besked, vbCrLf, \"<br>\") %>
      </td>
    </tr>

    <tr>
      <td colspan=\"3\" height=\"25\"borderColor=#000000
                style=\"BORDER-LEFT: 1px solid; BORDER-RIGHT: 1px solid\"  >&nbsp;</td>
    </tr>
    <tr>
      <td colspan=\"3\" borderColor=#000000
                style=\"BORDER-BOTTOM: 1px solid; BORDER-LEFT: 1px solid; BORDER-RIGHT: 1px solid\"  ><a href=\"default.asp\"><img src=\"images/pil_back.gif\" width=\"18\" height=\"13\" border=\"0\"></a></td>
    </tr>
  </table>
  <br>
</div>
  <%
    \'rs.MoveNext
  \'LOOP
  \'RS.Close
  Response.Write \"</TABLE>\"

conn.Close
Set conn = nothing
Set SQLstmt = nothing
%>


<p align=\"center\">&nbsp;</p>


</body>

</html>

Det var godt. Jeg modtager kun ren volapyk i dine mails. Der er kun firkanter og nogle kinesiske tegn?