Linie skift i tekstform med database...

http://www.eksperten.dk/spm/69412

Du skal bare bruge denne:

(Replace(objRS("HER FRA DATABASEN")& "", vbCrLf, "<BR>"))

Ja den der sætning og mange andre har jeg set rundt omkring på nettet, men den giver altid en fejl når jeg sætter den ind på siden. Så jeg ville gerne have den helt rigtige placering hvor det skal stå. Det er derfor jeg har lavet henvisninger til siden !!!

I hvilken linie er det du skal have udskrevet din tekst??

Prøv denne:

<%
Response.Buffer = True

'Åbner forbindelse til databsen
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("wall.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from wall order by id desc"
rs.Open sql, conn, 1, 3
%>
<%
(Replace(rs("tag")& "", vbCrLf, "<BR>"))
%>

Men jeg kan ikke helt se, hvor du udskrive det som brugerne skriver?

Det gør jeg her:

<%
        'Hvis der ingen tags er
        if rs.eof or rs.bof then
        %>
        Ingen tag´s
        <% else
          'Lopper alle tags igennem med en løkke
          Do until rs.eof
                email = rs("email")
                navn = rs("navn")
                fontcolor = rs("fontcolor")
                fonttype = rs("fonttype")
                tag = rs("tag")
                %>               
<div align="center">
<center>
         
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#B8C4DE" width="480" id="AutoNumber1">
<tr>
<td width="10" style="border-right-style: none; border-right-width: medium" rowspan="2"></td>
<td width="460" style="border-left-style: none; border-left-width: medium; border-right-style: none; border-right-width: medium; border-bottom-style:none; border-bottom-width:medium">
<p align="center"><b><font face="Verdana" size="2"><%=navn%></font></b></p>
<br>
<font size="2" color="<%=fontcolor%>" face="Tahoma, Verdana"><%=tag%></font><br>..............

tag=Replace(rs("tag")& "", vbCrLf, "<BR>")
istedet for
tag = rs("tag")

Jeg læser jo ikke hvad jeg klippe-klistrer. Dette er nok:

  tag=Replace(rs("tag"), vbCrLf, "<BR>")

Der er et eller andet galt for den viser stadig ikke nogen linie skift !
Er det rigtig at det skal ind lige før <html> ???

Hvad gør man her på eksperten for her virker det da !

//BinauHus

Jeg tror ikke du læser hvad vi skriver

jo jeg har set hvad du har skrevet og jeg har også skrevet det ind øverst på min side som i sagde. se selv www.tphu-bif.dk/ar/referater.txt

og så prøv selv på:

www.tphu-bif.dk/ar/referater.asp

det virker ikke !!!

//BinauHus

Du har vist ikke læst hvad vi har skrevet. Vil du venligst
afvise mit svar - jeg gider ikke hjælpe analfabeter

Hvad sker der for dig....

Det eneste du skulle var at kigge på www.tphu-bif.dk/ar/referater.txt og se om det du havde skrevet til mig var rigtigt og rigtigt placeret.

Jeg troede i var nogle venlige nogle her inde på eksperten. Jeg har ikke været ude for nogen andre der svarede på den måde. Det er måske et elementært spørgsmål for dig, men jeg er lige startet på det og det provokere mig meget at det ikke virker !!!!

Jeg er pissed men jeg er selvfølgelig villig til at give dig ekstra point hvis du vil give mig en konstruktivt svar JEG kan forholde mig til.

//BinauHus

hov det hedder et konstruktivt svar !

//BinauHus

Prøv denne så:

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#B8C4DE" width="480" id="AutoNumber1">
        <tr>
          <td width="10" style="border-right-style: none; border-right-width: medium" rowspan="2"></td>
          <td width="460" style="border-left-style: none; border-left-width: medium; border-right-style: none; border-right-width: medium; border-bottom-style:none; border-bottom-width:medium">
        <p align="center"><b><font face="Verdana" size="2"><%=navn%></font></b></p>
          <br>
          <font size="2" color="<%=fontcolor%>" face="Tahoma, Verdana"><%tag=Replace(rs("tag"), vbCrLf, "<br>")%></font><br>&nbsp;
          </td>
          <td width="10" style="border-left-style: none; border-left-width: medium" rowspan="2"></td>
        </tr>
        <tr>
          <td width="460" style="border-left-style: none; border-left-width: medium; border-right-style: none; border-right-width: medium; border-top-style:none; border-top-width:medium" height="20">
          <p align="center">
          <font size="1" color="000000" face="Verdana"><b>//&nbsp;<%=email%></b></font>
          </td>
          </tr>
          </table>

Nej, du afviser mit svar, og prøver en anden gang at tænke
på dem, der frivilligt og uden anden belønning end sølle
eksperten-point, bruger deres fritid på at hjælpe andre.

Det du skal gøre står her allerede klart og tydeligt

hehe nu er der slet ingen tekst i udskriften !!!

//BinauHus

Ja det står her klart og tydeligt - det ved jeg.
Men mit problem er at det ikke virker når det bliver sat ind !!!
Og jeg er skam meget taknemmelig fordi du gider bruge din fritid på at hjælpe mig.

//BinauHus

justdoit. Dit svar var noget i den retning men istedet for at erstatte linjeskiftene med <br> udskiftede den hele tag med <br>

//BinauHus

Jo, men du læser ikke hvad der står. Dermed er du en tidsspilder
som jeg ikke vil spilde min tid på. Kan du så se at afvise mit
svar!!

(Vink: Kommentar: erikjacobsen 16/11-2002 14:12:32)

Hvis dette ikke virker - så må du selv prøve dig frem, for som erikjacobsen siger, så er dette (16/11-2002 10:39:28) løsningen - og du må have lavet en anden fejl!

Men prøv dette:


<%
Response.Buffer = True

'Åbner forbindelse til databsen
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("wall.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from wall order by id desc"
rs.Open sql, conn, 1, 3
%>
<html>

<head>
<meta http-equiv="Content-Language" content="da">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Klubbens hold</title>
<style>
<!--
.dot  {font-family:'verdana';border:2px dotted #5975AE}
.dot2  {font-family:'verdana';border:2px dotted #FF9933}
-->
</style>
</head>

<body topmargin="0" leftmargin="0" text="#000000">
<div align="center">
  <center>
  <table border="2" style="border-collapse: collapse; border-top-width:0; border-bottom-width:0" bordercolor="#5975AE" width="530" id="AutoNumber1" cellpadding="2" bgcolor="#FFFFFF" height="417">
    <tr>
      <td width="518" height="15" style="border-top-style: none; border-top-width: medium">
      <p align="center"><b><font face="Verdana" size="2">Herre Elite - Referater</font></b></td>
    </tr>
    <tr>
      <td width="518" height="218" style="border-bottom-style: none; border-bottom-width: medium">
      <div align="center">
        <center>
        <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="500" id="AutoNumber2" height="75">
          <tr>
            <td width="100%" height="30">
            <tr>
        <td align="center">
        <%
        'Hvis der ingen tags er
        if rs.eof or rs.bof then
        %>
        Ingen tag´s
        <% else
          'Lopper alle tags igennem med en løkke
          Do until rs.eof
                email = rs("email")
                navn = rs("navn")
                fontcolor = rs("fontcolor")
                fonttype = rs("fonttype")
                tag = rs("tag")
                %>               
        <div align="center">
          <center>
         
          <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#B8C4DE" width="480" id="AutoNumber1">
        <tr>
          <td width="10" style="border-right-style: none; border-right-width: medium" rowspan="2"></td>
          <td width="460" style="border-left-style: none; border-left-width: medium; border-right-style: none; border-right-width: medium; border-bottom-style:none; border-bottom-width:medium">
        <p align="center"><b><font face="Verdana" size="2"><%=navn%></font></b></p>
          <br>
          <font size="2" color="<%=fontcolor%>" face="Tahoma, Verdana"><%=Replace(rs("tag"), vbCrLf, "<br>")%></font><br>&nbsp;
          </td>
          <td width="10" style="border-left-style: none; border-left-width: medium" rowspan="2"></td>
        </tr>
        <tr>
          <td width="460" style="border-left-style: none; border-left-width: medium; border-right-style: none; border-right-width: medium; border-top-style:none; border-top-width:medium" height="20">
          <p align="center">
          <font size="1" color="000000" face="Verdana"><b>//&nbsp;<%=email%></b></font>
          </td>
          </tr>
          </table>
         
          </center>
        </div>
        <% rs.movenext
          loop
         
        end if %>
        <br><br>
        &nbsp;
        <hr color="#5975AE" width="498" size="1">
        <br>       
        </td>
    </tr>
            </td>
          </tr>
        </table>
        </center>
      </div>
      </td>
    </tr>
    <tr>
        <td align="center" height="156" style="border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">       
           
           

    <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#B8C4DE" width="480" id="AutoNumber3" height="128">
      <tr>
        <td width="478" height="24" style="border-bottom-style: none; border-bottom-width: medium" colspan="2">
        <p align="center"><b><font size="2" face="Verdana" color="#000000">
        Tilføj et referat</font></b></td>
      </tr>
      <form method="post" action="referater.asp" id=form1 name=form1>
      <%
                'Hvis brugeren har submittet formen
                if Request.ServerVariables("REQUEST_METHOD") = "POST" then
                'Smider værdierne ned i variabler
                navn = Request.form("navn")
                email = Request.form("email")
                tag = Request.form("tag")
                skrifttype = Request.form("skrifttype")
                skriftfarve = Request.form("skriftfarve")
               
                'Tjecker om navn og tag er udfyldt
                if navn = "" then
                    Response.Write("Udfyld dit navn<br>")
                end if
               
                if tag = "" then
                    Response.Write("Udfyld et tag<br>")
                end if
               
                    'Tilføjer til databasen hvis navn og tag er udfyldt
                    if navn <> "" AND tag <> "" then
                    rs.AddNew
                    rs("navn") = navn
                    rs("email") = email
                    rs("tag") = tag
                    rs("fontcolor") = skriftfarve
                    rs("fonttype") = skrifttype
                    rs("dato") = Now()
                    rs.update
                    'Opdaterer vinduet
                    Response.Redirect("referater.asp")
                    end if
               
               
                end if %>
      <tr>
        <td width="102" height="30" style="border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
        <font size="2" face="Verdana">Overskrift:</font></td>
        <td width="372" height="30" style="border-left-style: none; border-left-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
        <input autocomplete="no" type="text" name="navn" value="<%=Request("navn")%>" size="40">
        </td>
      </tr>
      <tr>
        <td width="102" height="30" style="border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
        <font size="2" face="Verdana">Forfatter:</font></td>
        <td width="372" height="30" style="border-left-style: none; border-left-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
        <input autocomplete="no" type="text" name="email" value="<%=Request("email")%>" size="40">
        </td>
      </tr>
      <tr>
        <td width="102" height="30" style="border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
        <font size="2" face="Verdana">Referat:</font></td>
        <td width="372" height="30" style="border-left-style: none; border-left-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
        <textarea rows="6" cols="34" name="tag"><%=Request.form("tag")%></textarea>
        </td>
      </tr>
      <tr>
        <td width="102" height="30" style="border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
        <font size="2" face="Verdana">Tekstfarve</font></td>
        <td width="372" height="30" style="border-left-style: none; border-left-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
        <select name="skriftfarve">
                        <option value="000000">Sort </option>
                        <option value="FFFFFF">Hvid </option>
                        <option value="0000FF">Blå </option>
                        <option value="FF0000">Rød </option>
                        <option value="00FF00">Grøn </option>
                        <option value="FF00FF">Lilla </option>
                        <option value="008800">Mørk grøn </option>
                        <option value="000088">Mørk blå </option>
                        <option value="880000">Mørk rød </option>
                        <option value="008888">Mørk turkis </option>
                        <option value="880088">Mørk lilla </option>
                        <option value="8A2BE2">Blåviolet </option>
                        <option value="D2691E">Brun </option>
                        <option value="FFFF00">Gul </option>
                        <option value="FFD700">Guld </option>
                        <option value="FF8C00">Mørk orange </option>
                        <option value="808000">Oliven </option>
                        <option value="FFA500">Orange </option>
                        <option value="00BFFF">Skyblå </option>
                        <option value="00FF7F">Sommergrøn </option>
                        <option value="EE82EE">Violet </option>
                        <option value="fuchsia">Fuchsia </option>
                        </select>
        </td>
      </tr>
     
      <tr>
        <td width="102" height="30" style="border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">&nbsp;</td>
        <td width="372" height="30" style="border-left-style: none; border-left-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">&nbsp;</td>
      </tr>
      <tr>
        <td width="102" height="30" style="border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium">&nbsp;</td>
        <td width="372" height="30" style="border-left-style: none; border-left-width: medium; border-top-style: none; border-top-width: medium">
        <input type="submit" value="Tilføj referat">
        </td>
      </tr>
      </form>
    </table>
    <tr>
      <td width="518" height="47" style="border-bottom-style: none; border-bottom-width: medium; border-top-style:none; border-top-width:medium">
      &nbsp;</td>
    </tr>
    <tr>
      <td width="518" height="1" style="border-bottom-style: none; border-bottom-width: medium; border-top-style:none; border-top-width:medium" bgcolor="#5975AE">
      </td>
    </tr>
    <tr>
      <td width="518" height="14" style="border-bottom-style: none; border-bottom-width: medium; border-top-style:none; border-top-width:medium">
      <p align="center"><font size="1" face="Verdana"><b>&lt;---</b> Tilbage til
      holdoversigten</font></td>
    </tr>
  </table>
  </center>
</div>

</body>

</html>
<%
'Lukker recordset
rs.close
set rs = nothing
'Lukker connection
conn.close
set conn = nothing
%>

Nu har jeg gjort som du sagde 14:12 og se nu siden:

www.tphu-bif.dk/ar/referater.asp

det er det der driller mig !

//BinauHus

Er du venlig at afvise mit svar! Jeg har jo li'som sagt
at jeg ikke gider spilde tiden med dig.

nu virker det justdoit

tak tak tak.

og i må meget undskylde hvis jeg har skældt for meget ud men det har generet mig længe.

Hvad skal jeg gøre med pointene 50/50 eller hvad ???
Jeg godtager ikke at afvise dit svar erikjacobsen

//BinauHus

Afvis mit svar eller du bliver anmeldt for uhøflig optræden

Anmeldt - hehe...

Jeg prøver at give dig nogle point ?

//BinauHus

Afvis mit svar !!!!

Oki. Jeg troede ellers du var sådan en pointhaj.
Så tilfalder alt justdoit

//BinauHus

Tak. Hvorfor skulle det tage tæt på to timer? Du tror ikke
vi har andet at bruge tiden på.

Godt vi kunne finde ud af det ;0)