Hjælp til en lille problem
Hej med jer.Jeg har et lille problem, som jeg håber i kan hjælpe mig med.
Jeg har et notat felt i en database, når jeg henter det ud i et textarea i HTML virker linie skiftene fint. Men når jeg henter det ind i alm. HTML så her jeg problemet. Hvordan laver jeg linieskiftet i databasen til <br> i html koden?
Jed ved hvilken kode jeg skal bruge -
Replace(rs(\"feltnavn\"), vbCrLf, \"<br>\")
Men hvordan skal det sættes ind, når man laver ASP med Ultradev 4
Her er min side som er problemet
Det er feltet \"Brodtekst\" skal skal bruges sammen med rsNyhedsupdate
---------------------------
<%@LANGUAGE=\"VBSCRIPT\"%>
<!--#include file=\"../../Connections/connDongklubben.asp\" -->
<%
\' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=\"\"
MM_authFailedURL=\"../login/fejl_login.asp\"
MM_grantAccess=false
If Session(\"MM_Username\") <> \"\" Then
If (true Or CStr(Session(\"MM_UserAuthorization\"))=\"\") Or _
(InStr(1,MM_authorizedUsers,Session(\"MM_UserAuthorization\"))>=1) Then
MM_grantAccess = true
End If
End If
If Not MM_grantAccess Then
MM_qsChar = \"?\"
If (InStr(1,MM_authFailedURL,\"?\") >= 1) Then MM_qsChar = \"&\"
MM_referrer = Request.ServerVariables(\"URL\")
if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & \"?\" & Request.QueryString()
MM_authFailedURL = MM_authFailedURL & MM_qsChar & \"accessdenied=\" & Server.URLEncode(MM_referrer)
Response.Redirect(MM_authFailedURL)
End If
%>
<%
\' *** Edit Operations: declare variables
MM_editAction = CStr(Request(\"URL\"))
If (Request.QueryString <> \"\") Then
MM_editAction = MM_editAction & \"?\" & Request.QueryString
End If
\' boolean to abort record edit
MM_abortEdit = false
\' query string to execute
MM_editQuery = \"\"
%>
<%
\' *** Insert Record: set variables
If (CStr(Request(\"MM_insert\")) <> \"\") Then
MM_editConnection = MM_connDongklubben_STRING
MM_editTable = \"Nyheder\"
MM_editRedirectUrl = \"databasen_er _opdateret.asp\"
MM_fieldsStr = \"Dato|value|klokken|value|Maneder|value|PersonID|value|Overskrift|value|Brodtekst|value\"
MM_columnsStr = \"Dato|#,none,NULL|klokken|#,none,NULL|ManederID|none,none,NULL|PersonID|none,none,NULL|Overskrift|\',none,\'\'|Brodtekst|\',none,\'\'\"
\' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, \"|\")
MM_columns = Split(MM_columnsStr, \"|\")
\' set the form values
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))
Next
\' append the query string to the redirect URL
If (MM_editRedirectUrl <> \"\" And Request.QueryString <> \"\") Then
If (InStr(1, MM_editRedirectUrl, \"?\", vbTextCompare) = 0 And Request.QueryString <> \"\") Then
MM_editRedirectUrl = MM_editRedirectUrl & \"?\" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & \"&\" & Request.QueryString
End If
End If
End If
%>
<%
\' *** Insert Record: construct a sql insert statement and execute it
If (CStr(Request(\"MM_insert\")) <> \"\") Then
\' create the sql insert statement
MM_tableValues = \"\"
MM_dbValues = \"\"
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
FormVal = MM_fields(i+1)
MM_typeArray = Split(MM_columns(i+1),\",\")
Delim = MM_typeArray(0)
If (Delim = \"none\") Then Delim = \"\"
AltVal = MM_typeArray(1)
If (AltVal = \"none\") Then AltVal = \"\"
EmptyVal = MM_typeArray(2)
If (EmptyVal = \"none\") Then EmptyVal = \"\"
If (FormVal = \"\") Then
FormVal = EmptyVal
Else
If (AltVal <> \"\") Then
FormVal = AltVal
ElseIf (Delim = \"\'\") Then \' escape quotes
FormVal = \"\'\" & Replace(FormVal,\"\'\",\"\'\'\") & \"\'\"
Else
FormVal = Delim + FormVal + Delim
End If
End If
If (i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & \",\"
MM_dbValues = MM_dbValues & \",\"
End if
MM_tableValues = MM_tableValues & MM_columns(i)
MM_dbValues = MM_dbValues & FormVal
Next
MM_editQuery = \"insert into \" & MM_editTable & \" (\" & MM_tableValues & \") values (\" & MM_dbValues & \")\"
If (Not MM_abortEdit) Then
\' execute the insert
Set MM_editCmd = Server.CreateObject(\"ADODB.Command\")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
If (MM_editRedirectUrl <> \"\") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If
End If
%>
<%
set rsNyheder = Server.CreateObject(\"ADODB.Recordset\")
rsNyheder.ActiveConnection = MM_connDongklubben_STRING
rsNyheder.Source = \"SELECT * FROM Nyheder\"
rsNyheder.CursorType = 0
rsNyheder.CursorLocation = 2
rsNyheder.LockType = 3
rsNyheder.Open()
rsNyheder_numRows = 0
%>
<%
set rsPersoner = Server.CreateObject(\"ADODB.Recordset\")
rsPersoner.ActiveConnection = MM_connDongklubben_STRING
rsPersoner.Source = \"SELECT * FROM Personer\"
rsPersoner.CursorType = 0
rsPersoner.CursorLocation = 2
rsPersoner.LockType = 3
rsPersoner.Open()
rsPersoner_numRows = 0
%>
<%
set rsLogin = Server.CreateObject(\"ADODB.Recordset\")
rsLogin.ActiveConnection = MM_connDongklubben_STRING
rsLogin.Source = \"SELECT * FROM Personer\"
rsLogin.CursorType = 0
rsLogin.CursorLocation = 2
rsLogin.LockType = 3
rsLogin.Open()
rsLogin_numRows = 0
%>
<%
set rsManeder = Server.CreateObject(\"ADODB.Recordset\")
rsManeder.ActiveConnection = MM_connDongklubben_STRING
rsManeder.Source = \"SELECT * FROM Maneder\"
rsManeder.CursorType = 0
rsManeder.CursorLocation = 2
rsManeder.LockType = 3
rsManeder.Open()
rsManeder_numRows = 0
%>
<html>
<head>
<title>NyhedNy</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
<link rel=\"stylesheet\" href=\"/dongklubben/stylesheet/kram.css\" type=\"text/css\">
</head>
<body bgcolor=\"#FFFFFF\" text=\"#000000\">
<div align=\"center\">
<p class=\"sideoverskrift\">Indtast nyhed</p>
</div>
<form ACTION=\"<%=MM_editAction%>\" METHOD=\"POST\" name=\"nyheder1\">
<table align=\"center\" width=\"400\">
<tr valign=\"baseline\">
<td nowrap align=\"right\" width=\"120\">
<div align=\"left\">Dato:</div>
</td>
<td width=\"280\">
<input type=\"text\" name=\"Dato\" value=\"<%=Date%>\" size=\"32\">
</td>
</tr>
<tr valign=\"baseline\">
<td nowrap align=\"right\" width=\"120\">
<div align=\"left\">Klokken:</div>
</td>
<td width=\"280\">
<input type=\"text\" name=\"klokken\" value=\"<%=FORMATDATETIME(TIME,vbShortTIME)%>\" size=\"32\">
</td>
</tr>
<tr valign=\"baseline\">
<td nowrap align=\"right\" valign=\"top\" width=\"120\">
<div align=\"left\">Måneder:</div>
</td>
<td valign=\"top\" width=\"280\">
<select name=\"Maneder\">
<%
While (NOT rsManeder.EOF)
%>
<option value=\"<%=(rsManeder.Fields.Item(\"ManederID\").Value)%>\" <%if (CStr(rsManeder.Fields.Item(\"ManederID\").Value) = CStr(rsNyheder.Fields.Item(\"PersonID\").Value)) then Response.Write(\"SELECTED\") : Response.Write(\"\")%>><%=(rsManeder.Fields.Item(\"Maneder\").Value)%></option>
<%
rsManeder.MoveNext()
Wend
If (rsManeder.CursorType > 0) Then
rsManeder.MoveFirst
Else
rsManeder.Requery
End If
%>
</select>
</td>
</tr>
<tr valign=\"baseline\">
<td nowrap align=\"right\" width=\"120\">
<div align=\"left\">PersonID:</div>
</td>
<td width=\"280\">
<select name=\"PersonID\">
<%
While (NOT rsPersoner.EOF)
%>
<option value=\"<%=(rsPersoner.Fields.Item(\"PersonerID\").Value)%>\" <%if (CStr(rsPersoner.Fields.Item(\"PersonerID\").Value) = CStr(rsNyheder.Fields.Item(\"PersonID\").Value)) then Response.Write(\"SELECTED\") : Response.Write(\"\")%>><%=(rsPersoner.Fields.Item(\"Personer\").Value)%></option>
<%
rsPersoner.MoveNext()
Wend
If (rsPersoner.CursorType > 0) Then
rsPersoner.MoveFirst
Else
rsPersoner.Requery
End If
%>
</select>
</td>
</tr>
<tr valign=\"baseline\">
<td nowrap align=\"right\" width=\"120\">
<div align=\"left\">Overskrift:</div>
</td>
<td width=\"280\">
<input type=\"text\" name=\"Overskrift\" value=\"\" size=\"40\">
</td>
</tr>
<tr valign=\"baseline\">
<td nowrap align=\"right\" valign=\"top\" width=\"120\">
<div align=\"left\">Artikel:</div>
</td>
<td width=\"280\">
<textarea name=\"Brodtekst\" cols=\"60\" rows=\"8\">
