Søg
Avatar billede 2kbo Nybegynder
18. marts 2003 - 17:42 Der er 16 kommentarer og
1 løsning

Automatisk linieskift

Jeg har lavet et nyheds script, men jeg skal have lavet en funktion som automatisk indsætter <br> når jeg trykker [ENTER]
Avatar billede jnissen Nybegynder
18. marts 2003 - 17:49 #1
Når du vil udskrive din nyhed bruger du bare denne kode:
<%=Replace(RS("tekst"), vbCrLf, "<BR>")%>
Avatar billede 2kbo Nybegynder
18. marts 2003 - 17:56 #2
Jeg ved ikke hvor den kode skal sættes ind. Her er min kode:

<link href="../style.css" rel="stylesheet" type="text/css">
<%
SET Con = Server.CreateObject("ADODB.Connection")
Con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/db.mdb")
' Her hiver vi indholdet af databasen ud, sorterer dem efter dato
Sql = "SELECT * FROM nyheder ORDER BY Id DESC"
Set Record = Con.Execute(Sql)
%>
<%
    'Her nedenunder smider vi saa nyhederne ud i en tabel
    Do While Not Record.EOF
    Overskrift = Record("Overskrift")
    Nyhed = Record("Nyhed")
    Forfatter = Record("Forfatter")
    Dato = Record("Dato")
    %>
     
<table width="100%" height="84" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="574" class="tekst"><strong><%=Overskrift%></strong></td>
  </tr>
  <tr>
    <td width="574" class="tekst"><%=Nyhed%></td>
  </tr>
  <tr>
    <td width="574" class="tekst"><em>Af: <%=Forfatter%></em></td>
    <td width="196" class="tekst"><div align="right">Den: <%=Dato%></div></td>
  </tr>
  <tr>
    <td width="292" class="tekst"><hr></td>
    <td width="196" class="tekst"><hr></td>
  </tr>
</table>
<p>
<% Record.MoveNext
LOOP
Record.Close
'Og her har den saa gjort det, og vi kan afslutte dokumentet
%>
    </td>
  </tr>
</table>
<% ' Lukke connection
Con.Close
Set Con = Nothing
%>
Avatar billede jnissen Nybegynder
18. marts 2003 - 18:01 #3
Sådan:
<link href="../style.css" rel="stylesheet" type="text/css">
<%
SET Con = Server.CreateObject("ADODB.Connection")
Con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/db.mdb")
' Her hiver vi indholdet af databasen ud, sorterer dem efter dato
Sql = "SELECT * FROM nyheder ORDER BY Id DESC"
Set Record = Con.Execute(Sql)
%>
<%
    'Her nedenunder smider vi saa nyhederne ud i en tabel
    Do While Not Record.EOF
    Overskrift = Record("Overskrift")
    Nyhed = Record("Nyhed")
    Forfatter = Record("Forfatter")
    Dato = Record("Dato")
    %>

<table width="100%" height="84" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="574" class="tekst"><strong><%=Overskrift%></strong></td>
  </tr>
  <tr>
    <td width="574" class="tekst"><%=Replace(RS("nyhed"), vbCrLf, "<BR>")%></td>
  </tr>
  <tr>
    <td width="574" class="tekst"><em>Af: <%=Forfatter%></em></td>
    <td width="196" class="tekst"><div align="right">Den: <%=Dato%></div></td>
  </tr>
  <tr>
    <td width="292" class="tekst"><hr></td>
    <td width="196" class="tekst"><hr></td>
  </tr>
</table>
<p>
<% Record.MoveNext
LOOP
Record.Close
'Og her har den saa gjort det, og vi kan afslutte dokumentet
%>
    </td>
  </tr>
</table>
<% ' Lukke connection
Con.Close
Set Con = Nothing
%>
Avatar billede 2kbo Nybegynder
18. marts 2003 - 18:06 #4
Microsoft VBScript runtime error '800a000d'

Type mismatch: 'Rs'

/5895Pn/arm-bendefekte-amc.dk/pages/news.asp, line 23
Avatar billede jnissen Nybegynder
18. marts 2003 - 18:10 #5
prøv dette:
<link href="../style.css" rel="stylesheet" type="text/css">
<%
SET Con = Server.CreateObject("ADODB.Connection")
Con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/db.mdb")
' Her hiver vi indholdet af databasen ud, sorterer dem efter dato
Sql = "SELECT * FROM nyheder ORDER BY Id DESC"
Set Record = Con.Execute(Sql)
%>
<%
    'Her nedenunder smider vi saa nyhederne ud i en tabel
    Do While Not Record.EOF
    Overskrift = Record("Overskrift")
    Nyhed = Record("Nyhed")
    Forfatter = Record("Forfatter")
    Dato = Record("Dato")
    %>

<table width="100%" height="84" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="574" class="tekst"><strong><%=Overskrift%></strong></td>
  </tr>
  <tr>
    <td width="574" class="tekst"><%=Replace(Record("nyhed"), vbCrLf, "<BR>")%></td>
  </tr>
  <tr>
    <td width="574" class="tekst"><em>Af: <%=Forfatter%></em></td>
    <td width="196" class="tekst"><div align="right">Den: <%=Dato%></div></td>
  </tr>
  <tr>
    <td width="292" class="tekst"><hr></td>
    <td width="196" class="tekst"><hr></td>
  </tr>
</table>
<p>
<% Record.MoveNext
LOOP
Record.Close
'Og her har den saa gjort det, og vi kan afslutte dokumentet
%>
    </td>
  </tr>
</table>
<% ' Lukke connection
Con.Close
Set Con = Nothing
%>
Avatar billede 2kbo Nybegynder
18. marts 2003 - 18:14 #6
Microsoft VBScript runtime error '800a005e'

Invalid use of Null: 'Replace'

/5895Pn/arm-bendefekte-amc.dk/pages/news.asp, line 23
Avatar billede jnissen Nybegynder
18. marts 2003 - 18:20 #7
så prøv denne engang:

<link href="../style.css" rel="stylesheet" type="text/css">
<%
set conn = server.createobject("ADODB.connection")
path = Server.MapPath("../db/db.mdb")
conn.Open "DBQ="& path &";DefaultDir="& path & ";Driver={Microsoft Access Driver (*.mdb)}"
SQL = "SELECT * from nyheder ORDER BY Id DESC"
set RS = Conn.Execute(SQL

    Do While Not rs.EOF
    Overskrift = rs("Overskrift")
    Nyhed = rs("Nyhed")
    Forfatter = rs("Forfatter")
    Dato = rs("Dato")
    %>


<table width="100%" height="84" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="574" class="tekst"><strong><%=Overskrift%></strong></td>
  </tr>
  <tr>
    <td width="574" class="tekst"><%=Replace(rs("nyhed"), vbCrLf, "<BR>")%></td>
  </tr>
  <tr>
    <td width="574" class="tekst"><em>Af: <%=Forfatter%></em></td>
    <td width="196" class="tekst"><div align="right">Den: <%=Dato%></div></td>
  </tr>
  <tr>
    <td width="292" class="tekst"><hr></td>
    <td width="196" class="tekst"><hr></td>
  </tr>
</table>
<p>
<% rs.MoveNext
LOOP
rs.Close
%>
    </td>
  </tr>
</table>
<% ' Lukke connection
Conn.Close
Set Conn = Nothing
%>
Avatar billede 2kbo Nybegynder
18. marts 2003 - 18:27 #8
Hjalp ikke
Avatar billede 2kbo Nybegynder
18. marts 2003 - 18:29 #9
http://www.arm-bendefekte-amc.dk
Avatar billede jnissen Nybegynder
18. marts 2003 - 18:56 #10
Hvilken fejl får du nu?
Avatar billede 2kbo Nybegynder
18. marts 2003 - 19:01 #11
Microsoft VBScript runtime error '800a005e'

Invalid use of Null: 'Replace'

/5895Pn/arm-bendefekte-amc.dk/pages/news.asp, line 22
Avatar billede jnissen Nybegynder
18. marts 2003 - 19:03 #12
Er det den eneste kode du har på siden, eller har du noget andet ovenover dette?
Avatar billede 2kbo Nybegynder
18. marts 2003 - 19:05 #13
Nej! Jeg indsætter Den kode med Iframe
Avatar billede 2kbo Nybegynder
18. marts 2003 - 19:06 #14
http://www.arm-bendefekte-amc.dk/ <--- Som du ser, hvis du kigger i kildekoden
Avatar billede jnissen Nybegynder
18. marts 2003 - 19:13 #15
så prøver vi igen :-)

<link href="../style.css" rel="stylesheet" type="text/css">
<%
set conn = server.createobject("ADODB.connection")
path = Server.MapPath("../db/db.mdb")
conn.Open "DBQ="& path &";DefaultDir="& path & ";Driver={Microsoft Access Driver (*.mdb)}"
SQL = "SELECT * from nyheder ORDER BY Id DESC"
set RS = Conn.Execute(SQL)

    Do While Not rs.EOF
    Overskrift = rs("Overskrift")
    'Nyhed = rs("Nyhed")
    Forfatter = rs("Forfatter")
    Dato = rs("Dato")
    %>


</head>


<table width="100%" height="84" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="574" class="tekst"><strong><%=Overskrift%></strong></td>
  </tr>
  <tr>
    <td width="574" class="tekst"><%=Replace(rs("nyhed"), vbCrLf, "<BR>")%></td>
  </tr>
  <tr>
    <td width="574" class="tekst"><em>Af: <%=Forfatter%></em></td>
    <td width="196" class="tekst"><div align="right">Den: <%=Dato%></div></td>
  </tr>
  <tr>
    <td width="292" class="tekst"><hr></td>
    <td width="196" class="tekst"><hr></td>
  </tr>
</table>
<p>
<% rs.MoveNext
LOOP
rs.Close
%>
    </td>
  </tr>
</table>
<% ' Lukke connection
Conn.Close
Set Conn = Nothing
%>
Avatar billede 2kbo Nybegynder
18. marts 2003 - 20:25 #16
Takker
Avatar billede jnissen Nybegynder
18. marts 2003 - 23:56 #17
det var så lidt. Tak for point.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
23/0920:49 Fejl på Tv2 Play Af Bukse i Browsere
23/0918:11 VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel
21/0910:39 DBA er ikke hvad det tidligere var - desværre! Af ErikHg i Fri debat
18/0919:52 Libre office skriveprogram Af Frank i Office & Kontorpakker
17/0914:55 Hente WordPad til Windows 11 Af Strawberry i Andet software
White papers
Flere white papers »