linieskift i access

Brug replace når du henter fra databasen til hjemmesiden:

Replace(rs("data"), VbCrLf, "<br>")

jeg har noget tekst stående på hjemmesiden i forvejen.. det skal meget gerne blive stående som det allerede gør.. jeg skal bare have lagt en ekstra tekst ind under den originale tekst... og gerne på en ny linie... det er selve problemets kerne... kan man ikke ligesom i html.. <br> lave den samme slags kode i access???

I stedet for Ctrl + Enter skal du i Access (VBA) bruge den indbyggede konstant vbCrLf, som er det samme som chr$(13) & chr$(10).
Eks.: "Tekst" & vbCrLf.

duno> Ctrl+Enter will (i think) place a VBCrLf (new line) character in the data. If you then use, as saturation says, ace(rs("data"), VbCrLf, "<br>") this will replace this character with <br> so that the new line can be seen in a HTML page. If you want to format your text differently in HTML then you will need to CODE your way out of your problem, as Access or HTML can NOT guess what your trying to do.

fynbohans>I'm not sure, but doesnt CTRL+Enter (while entering text) place a VbCrLF character in the text?

hvor skal jeg lægge

Replace(rs("data"), VbCrLf, "<br>")

henne... ????

in your ASP page!

After you have read a record from the dB the field will be in the recordset. Before displaying this you have to convert VbCrLf with <br>
So after redaing the record and before displaying it.

in saturations example you have to replace rs("data") withthe the correct names

ellers kunne du jo bare skrive det sådan her:

hej med <br> dig

Her er hele koden.... jeg værdsætter jeres hjælp!!!


<html>
<head>
<!--#include file = "include/menu.inc"-->
<meta http-equiv="content-type" content="text/html;charset=iso-8859-1">
<meta name="generator" content="Adobe GoLive 5">
<title>Dunoweb</title>
<meta name="site-config-URL" content="http://database/">
<style media="screen" type="text/css"><!--
a  { color: black }
--></style>
<%
set tb = Server.CreateObject("ADODB.Recordset")
tb.ActiveConnection = "dsn=hjemmeside;"
tb.Source = "SELECT branche.navn, branche.beskrivelse, team.teamid AS teamid FROM  branche inner join team on branche.teamID = team.teamID where branche.brancheID="&Cint(request.QueryString("brancheID"))&" "
tb.CursorType = 0
tb.CursorLocation = 2
tb.LockType = 3
tb.Open
tb_numRows = 0

Dim tbRepeat1__numRows
tbRepeat1__numRows = -1
Dim tbRepeat1__index
tbRepeat1__index = 0
tb_numRows = tb_numRows + tbRepeat1__numRows
teamvar = tb("teamid")
%>

<%
set tm = Server.CreateObject("ADODB.Recordset")
tm.ActiveConnection = "dsn=hjemmeside;"
tm.Source = "SELECT medarbejder.navn AS Mnavn, medarbejder.email AS memail, medarbejder.medarbejderid AS medid FROM  team inner join medarbejder on medarbejder.teamid = team.teamID where team.teamid ="&teamvar&" order by medarbejder.sortering, medarbejder.navn"
tm.CursorType = 0
tm.CursorLocation = 2
tm.LockType = 3
tm.Open
%>
</head>

<body bgcolor="#667b93"  onload="init()">
<!--#include file = "include/top1.inc" -->
<table border="0" cellpadding="0" cellspacing="0" width="530" height="15">
<tr height="20">
<td height="20">
<div align="left">
<img src="../grafik/transparent.gif" width="1" height="1" name="placeholder"></div>
</td>
</tr>
</table>
<!--#include file = "include/top2.inc" -->
<table border="0" cellpadding="0" cellspacing="0" width="610" bgcolor="#133359" height="30">
<tr height="30">
<td width="610" height="30">
<div align="center">
<font color="#ccd7e3" face="Arial,Helvetica,Geneva,Swiss,SunSans-Regular" size="4"><%=tb("navn")%></font></div>
</td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="610" bgcolor="#ccd7e3">
<tr height="20">
<td width="5" height="20"></td>
<td height="20"></td>
<td width="5" height="20"></td>
</tr>
<tr>
<td width="5"></td>
<td valign="middle" align="left"><font face="Arial,Helvetica,Geneva,Swiss,SunSans-Regular" size="2"><%=tb("beskrivelse")%></font></td>
<td width="5"></td>
</tr>
<tr height="45">
<td width="5" height="45"></td>
<td height="45" valign="bottom"><font face="Arial,Helvetica,Geneva,Swiss,SunSans-Regular" size="2">Tilknyttede medarbejdere:</font></td>
<td width="5" height="45"></td>
</tr>
<tr height="1">
<td width="5" height="1"></td>
<td height="1" bgcolor="#677b93"></td>
<td width="5" height="1"></td>
</tr>
<tr height="5">
<td width="5" height="5"></td>
<td height="5"></td>
<td width="5" height="5"></td>
</tr>
</table>
       
<%
maxi = 0
while NOT tm.EOF
maxi = maxi + 1
tm.movenext()
wend

tm.movefirst()
for i = tm.BOF to maxi - 1
%>

<table border="0" cellpadding="0" cellspacing="0" width="610" bgcolor="#ccd7e3">
<tr height="1">
<td height="1" width="70"></td>
<td height="1" width="171"></td>
<td height="1" width="126"></td>
<td height="1" width="233"></td>
<td height="1" width="10"></td>
</tr>

<tr>
<td width="70"></td>
<td valign="middle" align="right" width="171">
<div align="right"><a href='vismedarbejdere.asp#<%=tm("medid")%>' title="Tryk her for at l&aelig;se mere om <%=tm("Mnavn")%>"><span class="lysbaggrund"><font size="2" face="Arial,Helvetica,Geneva,Swiss,SunSans-Regular"><%=tm("Mnavn")%></font></span></a></div>
</td>
<td width="126"></td>
<td valign="middle" align="left" width="233">
<div align="left"><a href='mailto:<%=tm("memail")%>' title='Tryk her for at sende en E-mail til <%=tm("Mnavn")%>'><span class="lysbaggrund"><font face="Arial,Helvetica,Geneva,Swiss,SunSans-Regular" size="2"><%=tm("Memail")%></font></span></a></div>
</td>
<td width="10"></td>
</tr>
<tr>
<td width="70"></td>
<td width="171"></td>
<td width="126"></td>
<td width="233"> </td>
<td width="10"></td>
</tr>
</table>
<%
tm.movenext()
next
%>
<table border="0" cellpadding="0" cellspacing="0" width="610" bgcolor="#ccd7e3">
<tr>
<td><br>
</td>
</tr>
</table>
<p><!--#include file = "include/bund.inc"--></p>
</body>

</html>

til dig der har nået bunden... jeg takker dig...

duno>You dont say WHICH field is givin the problem, so it isnt easy to tell you where toplace it!

EXAMPLE: You have a line
teamvar = tb("teamid")
This would be
teamvar = Replace(tb("teamid"), VbCrLf, "<br>")

Mit problem ligger her...

jeg skal lægge et mellemrum imellem 2 tekster som begge ligger i samme felt under "branche.beskrivelse" feltet hedder beskrivelse...

jeg takker for jeres udholdenhed...


set tb = Server.CreateObject("ADODB.Recordset")
tb.ActiveConnection = "dsn=hjemmeside;"
tb.Source = "SELECT branche.navn, branche.beskrivelse, team.teamid AS teamid FROM  branche inner join team on branche.teamID = team.teamID where branche.brancheID="&Cint(request.QueryString("brancheID"))&" "
tb.CursorType = 0
tb.CursorLocation = 2
tb.LockType = 3
tb.Open
tb_numRows = 0

duno>If saturation cant help here, or someone else, I think it best you move the question to ASP programming. I dont know too much about ASP so I dont want to get invloved in your CODE. I will say though that I cant see where you use beskrivelse once you have selected it.

Terry,
Jo da! Både Tastkombinationen CTRL+ENTER og ENTER alene(hvis
egenskaben for feltet er indstillet hertil) omsættes til og gemmes som "CarriageReturn" + "LineFeed".
Standard i Egenskaben for ENTER henviser velsagtens til en
gammel IBM-standard for formularer.
Men i et andet program kan CTRL+ENTER betyde noget andet eller
ingenting.
I Word f.eks.betyder det sideskift.

hvordan lukker man sine spørgsmål.. jeg får jo ikke nogen svar mulighed

its closed just as soon as you accept one or more answers :o)