\"enter\" i en form til acces

replace(tekst, VbCrLf, \"<br>\")

fx

indhold=rs(\"indhold\")
Response.Write \"\" & replace((indhold),VbCrLf,\"<br>\") & \"</span>\"

sådan:

indhold=rs(\"indhold\")
Response.Write \"\" & replace((indhold),VbCrLf,\"<br>\") & \"\"

dette skal laves ved udtrækkes fra databasen...

<html>

<head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<title>Counselor Bureauets links side</title>
<base target=\"_blank\">
</head>
<body bgcolor=\"#CCC099\" text=\"#000000\" link=\"#000000\" vlink=\"#000000\" alink=\"#000000\">
<!--#include virtual=\"cb top.shtm\" -->
<p align=\"center\" style=\"margin-top: 0; margin-bottom: 0\">&nbsp;</p>
<p align=\"center\" style=\"margin-top: 0; margin-bottom: 0\">&nbsp;</p>
<table width=\"609\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" align=\"center\" bgcolor=\"#FFFFFF\">
  <tr>
    <td height=\"375\" valign=\"top\">
      <table width=\"581\" border=\"0\" cellspacing=\"10\" cellpadding=\"0\" height=\"282\">
        <tr>
          <td height=\"272\" width=\"579\">
            <%
strMode = Request.Querystring(\"mode\")
select case strMode
case \"id\"

Response.Buffer = True

\' Her opdateres hits når brugeren bliver sendt til et link
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"links.mdb\")
If Request.QueryString(\"id\") <> \"\" Then
    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"SELECT * FROM links WHERE (ID = \" & Request.QueryString(\"id\") & \")\"
    rs.Open strSQL, myConn, 1, 3
    If Not (rs.BOF Or rs.EOF) Then
        rs(\"Hits\") = rs(\"Hits\") + 1
        strURL = rs(\"URL\")
        rs.Update
        rs.Close
        myConn.Close
        Set rs = Nothing
        Set myConn = Nothing
        Response.Clear
        Response.Redirect(strURL)
    End If
End If
%>
            <% case \"search\"
\' Siden med søgeresultater

\' Database connection
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"links.mdb\")
\' Henter søgeorden fra formularen
strKeyword = Trim(Request.Form(\"søgeord\"))

If Len(strKeyword) = 0 Then
\' Hvis der ikke er skrevet i formularen sendes brugeren tilbage
    Response.Clear
    Response.Redirect (\"links.asp?mode=søg\")
Else
    strKeyword = Replace(strKeyword,\"\'\",\"\'\'\")
End If

\' Opbygger en dynamisk SQL streng
strSQL = \"SELECT id, navn, url, beskrivelse, hits, søgeord  FROM links WHERE\"
strSQL = strSQL & \" (id LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (navn LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (url LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (beskrivelse LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (hits LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (søgeord LIKE \'%\" & strKeyword & \"%\')\"


\' Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
\' Hvis søgningen gav resultat
    Response.Write \"<table width=\'500\' cellspacing=1 cellpadding=1 style=\'border-bottom: 1 solid #C0C0C0\'>\"
        Response.Write \"<tr><td align=center width=\'100%\' colspan=2><font size=2><b>Søgeresultater for \" & strKeyword & \"</b></font></td></tr>\"
    Do While Not rs.EOF
        Response.Write \"<tr><td valign=top width=\'100%\' colspan=2 bgcolor=#e5e5e5><font size=2><b><a href=links.asp?mode=id&id=\" & rs(\"ID\") & \">&nbsp;\" & rs(\"Navn\") & \"</b></font></a></td></tr>\"
        Response.Write \"<tr><td valign=top width=\'80%\' bgcolor=#efefef><font size=2>\" & rs(\"Beskrivelse\") & \"</font></a></td>\"
        Response.Write \"<td valign=top width=\'20%\' bgcolor=#e5e5e5><font size=2>&nbsp;Hits: \" & rs(\"Hits\") & \"</font></td></tr>\"
        Response.Write \"<tr><td width=\'100%\' colspan=2 bgcolor=#efefef>&nbsp;</td></tr>\"
        rs.MoveNext
    Loop
    Response.Write \"<tr><td width=\'100%\' colspan=2 align=right style=\'border-top: 1 solid #C0C0C0\'><font size=\'2\'><a href=\'links.asp\'>Links</a> | <a href=\'links.asp?mode=søg\'>Søg igen</a> | <a href=\'links.asp?mode=add\'>Tilføj links</a></font></td></tr>\"
    Response.Write \"</table><br><br>\"
Else
\' Hvis ingen poster passede på søgordene
    Response.Write \"<table width=\'500\' cellspacing=1 cellpadding=1 style=\'border-bottom: 1 solid #C0C0C0\'>\"
        Response.Write \"<tr><td align=center width=\'100%\'><font size=2>Søgeresultater for \" & strKeyword & \"</font></td></tr>\"
        Response.Write \"<tr><td align=center width=\'100%\' bgcolor=#e5e5e5><font size=2>Ingen sider passede på søgeordet</font></a></td></tr>\"
    Response.Write \"<tr><td width=\'100%\' colspan=2 align=right style=\'border-top: 1 solid #C0C0C0\'><font size=\'2\'><a href=\'links.asp\'>Links</a> | <a href=\'links.asp?mode=søg\'>Søg igen</a> | <a href=\'links.asp?mode=add\'>Tilføj links</a></font></td></tr></table><br><br>\"
End If %>
            <% case \"søg\"
\' Søgeformularen
Response.write \"<table width=\'500\' style=\'border-bottom: 1 solid #C0C0C0\'><tr><td><font size=\'2\'><b>Søg</b></font></td></tr>\"
Response.write \"<tr><td><form method=POST action=links.asp?mode=search><input type=text name=søgeord size=30></td></tr>\"
Response.write \"<tr><td><input type=submit value=\'  søg  \' name=send>&nbsp;<input type=button onclick=\'history.go(-1)\' value=tilbage name=tilbage></td></tr>\"
Response.Write \"<tr><td width=\'100%\' align=right style=\'border-top: 1 solid #C0C0C0\'><font size=\'2\'><a href=\'links.asp\'>Links</a> | <a href=\'links.asp?mode=add\'>Tilføj links</a></font></td></tr></table></form>\"
%>
            <% case \"update\"
\' Sender resultaterne fra tilføj links til databasen
\' Database connection
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"links.mdb\")
\' Opbygger SQL streng
SQLstmt = \"INSERT INTO links (navn,url,beskrivelse,hits,søgeord)\"
SQLstmt = SQLstmt & \" VALUES (\'\" & request.form(\"navn\") & \"\',\'\" & request.form(\"url\") & \"\',\'\" & request.form(\"beskrivelse\") & \"\',\'\" & request.form(\"hits\") & \"\',\'\" & request.form(\"søgeord\") & \"\')\"

response.write sqlstmt

Conn.Execute (SQLstmt)

conn.Close
Set conn = nothing
Set SQLstmt = nothing

\' Sender brugeren tilbage til links når databasen er opdateret
response.redirect (\"links.asp\")
%>
            <% case \"add\"
\' tilføj links
%>
            <form method=\"POST\" action=\"links.asp?mode=update\">
              <table border=\"1\" width=\"558\" cellpadding=\"0\" style=\'border-bottom: 1 solid #C0C0C0\' align=\"left\" height=\"274\" bordercolor=\"#008080\" bgcolor=\"#33CCFF\">
                <tr>
                  <td colspan=\"2\" height=\"18\" width=\"550\"><font face=\"verdana\" size=\"2\"><b>Tilføj
                  din historie</b></font></td>
                </tr>
                <tr>
                  <td width=\"114\" height=\"25\"><font face=\"Verdana\" size=\"2\"><b>Navn</b></font></td>
                  <td width=\"432\" height=\"25\">
                    <p>
                      <input type=\"text\" name=\"navn\" size=\"32\">
                    </p>
                  </td>
                </tr>
                <tr>
                  <td width=\"114\" height=\"25\"><font face=\"Verdana\" size=\"2\"><b>email</b></font></td>
                  <td width=\"432\" height=\"25\">
                    <input type=\"text\" name=\"url\" value=\"mailto:\" size=\"32\">
                  </td>
                </tr>
                <tr>
                  <td width=\"114\" valign=\"top\" height=\"115\">&nbsp;
                  <p><font face=\"Verdana\" size=\"2\"><b>Historie</b></font></p>
                  </td>
                  <td width=\"432\" height=\"115\">
                    <textarea name=\"beskrivelse\" cols=\"51\" rows=\"12\" style=\"text-align: left; line-height: 100%; margin: 0\"></textarea>
                  </td>
                </tr>
                <tr>
                  <td width=\"114\" valign=\"top\" height=\"34\"><font face=\"Verdana\" size=\"2\"><b>Søgeord</b><br>
                    Adskilles med komma!</font></td>
                  <td width=\"432\" height=\"34\">
                    <input type=\"text\" name=\"s&oslash;geord\" size=\"32\">
                  </td>
                </tr>
                <tr>
                  <td width=\"550\" colspan=\"2\" height=\"27\">
                    <input type=\"hidden\" value=\"0\" name=\"hits\">
                    <input type=\"submit\" value=\"Send\" name=\"send\">
                    <input type=\"reset\" value=\"Annuller\" name=\"anuller\">
                    <input type=\"button\" onClick=\"history.go(-1)\" value=\"Tilbage\" name=\"Tilbage\">
                  </td>
                </tr>
                <tr>
                  <td width=\'550\' colspan=2 align=right style=\'border-top: 1 solid #C0C0C0\' height=\"16\" valign=\"top\"><font size=\'2\'><a href=\'links.asp\'>Historier</a>
                    | <a href=\'links.asp?mode=søg\'>Søg i historier</a></font></td>
                </tr>
              </table>
            </form>
            <% case else
\' Hvis der ikke er valgt noget mode vises alle links

\' Paging
intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

\' Database connection
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT * FROM links ORDER BY navn\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"links.mdb\")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
  rs.PageSize = 2
  rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount
    Response.Write \"<table width=\'560\' cellspacing=\'2\' cellpadding=\'0\'>\"
  Do While Not rs.EOF And intRecCount > 0
        Response.Write \"<tr><td valign=top width=\'100%\' colspan=2 bgcolor=#33CCFF><font size=2><b><a href=links.asp?mode=id&id=\" & rs(\"ID\") & \">\" & rs(\"Navn\") & \"</a></b></font></td></tr>\"
        Response.Write \"<tr><td valign=top width=\'80%\' bgcolor=#33CCFF><font size=2>\" & rs(\"Beskrivelse\") & \"</font></a></td>\"
        Response.Write \"<td valign=top width=\'20%\' bgcolor=#33CCFF>&nbsp; \" & rs(\"Hits\") & \"<font size=2>&nbsp;Har sendt email</font></td></tr>\"
        Response.Write \"<tr><td width=\'100%\' colspan=2 bgcolor=#33CCFF>&nbsp;</td></tr>\"
  intRecCount = intRecCount - 1
  rs.MoveNext
  Loop
End If
    Response.Write \"</table>\"
rs.Close
Set rs = Nothing

\' Navigering mellem siderne med paging
Response.Write \"<table width=\'500\' style=\'border-top: 1 solid #C0C0C0;border-bottom: 1 solid #C0C0C0\'><tr>\"
If Clng(intPage) > 1 Then
  Response.Write \"<td><font size=\'2\'><a href=links.asp?page=\" & intPage - 1 & \" class=paging>[<<]</a></td>\"
Else
  Response.Write \"<td></td>\"
End If

Response.Write \"\"
For intNum = 1 To intPageCount
  Response.Write \"<td valign=\'top\'><font size=\'2\'><a href=links.asp?page=\" & intNum & \">\" & intNum & \"</a></font></td> \"
Next

If Clng(intPage) < Clng(intPageCount) Then
  Response.Write \"<td><font size=\'2\'><a href=links.asp?page=\" & intPage + 1 & \" class=paging>[>>]</a></td>\"
Else
  Response.Write \"<td></td>\"
End If

Response.write \"<td><font size=\'2\'>Side <b>\" & intPage & \"</b> af \" & intPageCount & \"</font></td><td><p align=\'right\'><font size=\'2\'><a href=\'links.asp?mode=søg\'>Søg i historier</a> | <a href=\'links.asp?mode=add\'>Tilføj historie</a></font></p></td></tr></table>\"

end select %>
          </td>
        </tr>
      </table>
    </td>
    <td width=\"15\" background=\"../Maxweb-21.gif\">&nbsp;</td>
  </tr>
</table>
<table width=\"500\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" align=\"center\">
  <tr>
    <td><img src=\"../Maxweb-22.gif\"></td>
  </tr>
</table>
</body>

</html>


Kan du rette koden for mig ??

er det \"beskrivelse\" der laver fejlen eller hvad hedder feltet?

Ja det er beskrivelse

prøv at lav denne linie:

Response.Write \"<tr><td valign=top width=\'80%\' bgcolor=#efefef><font size=2>\" & rs(\"Beskrivelse\") & \"</font></a></td>\"

om til

beskrivelse=rs(\"beskrivelse\")
Response.Write \"<tr><td valign=top width=\'80%\' bgcolor=#efefef><font size=2>\" & replace((beskrivelse),VbCrLf,\"<br>\") & \"</font></a></td>\"

det virker ikke, den gør stadig det samme

Jeg kan maile scriptet og databasen til dig ?? hvis det var noget.

er det gjort begge steder?

du kan da prøve....

Jubii, nu virker den, jeg havde åbenbart ikke gjort det begge steder..!!!
Fedt nok Tak for hjælpen

hos mig virker det fint nok - med præcis det jeg skrev...


jeg har lavet en del ændringer i databasen for at kunne teste, så det er nok ikke en god idé at du får den jeg har lavet...

i det du har lavet har du lavet 2 fejl

1) der er to steder at sætningen skal udskiftes - ikke kun den ene som du har gjort

2) når du udskifter din sætning skal du huske at medtage ALT jeg skrev:


beskrivelse=rs(\"beskrivelse\")
Response.Write \"<tr><td valign=top width=\'80%\' bgcolor=#efefef><font size=2>\" & replace((beskrivelse),VbCrLf,\"<br>\") & \"</font></a></td>\"

prøv en gang til - ellers må jeg sende det så godt jeg kan..

ok...