ok. så skal du bruge dette:
strKommentar = Replace(strKommentar,vbCRlf,"<br />")
strKommentar = Replace(strKommentar," "," ")
det gør linieskift og mellemrum synlige i browseren. hele dokumentet bliver så:
<%
' --------------------------------------------------------------------------------
' Dette eksempel er skrevet af Dennis Knappe
' Og omskrevet af Lars Hansen/Ole H. hansen - logiweb.dk
' Eksemplet kan downloades fra
http://www.activeserverpages.dk, og er freeware
' --------------------------------------------------------------------------------
Const adOpenKeyset = 1
Const adLockOptimistic = 3
strMode = Request.QueryString("mode")
tempConn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("news.mdb") & ";UID=admin;PWD=;"
If Request.Form("Gem") <> "" Then
strNavn = Trim(Request.Form("Overskrift"))
strKommentar = Trim(Request.Form("Kommentar"))
strKommentar = Replace(strKommentar,vbCRlf,"<br />")'Her udskiftes linieskift og mellemrum
strKommentar = Replace(strKommentar," "," ")
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM news WHERE (ID = 0)"
rs.Open strSQL, tempConn, adOpenKeyset, adLockOptimistic
If (rs.BOF Or rs.EOF) Then
rs.AddNew
rs("Overskrift") = strNavn
rs("Kommentar") = strKommentar
rs("Dato") =Date()
rs.Update
End If
rs.Close
Set rs = Nothing
minredirect = Request.Form("minredirect")
Response.Redirect minredirect
End If
%>
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>
<head>
<title></title>
</head>
<body bgcolor="#ffffff" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0">
<table border="0" width="450" cellspacing="0" cellpadding="10">
<tr>
<td width="100%">
<table border="0" cellpadding="0" cellspacing="0" width="430">
<tr>
<td align="center" width="100%"><form action="indlaeg.asp" method="POST" onsubmit="return FrontPage_Form1_Validator(this)" name="FrontPage_Form1">
<input type="hidden" name="minredirect" value="dafault.asp" />
<div align="left"><table border="0" cellpadding="0" width="430">
<tr>
<td colspan="2">Indtast venligst din kommentar i følgende
felter:<br>
</td>
</tr>
<tr>
<td align="left"><p align="left"><b>Navn:</b></p>
</td>
<td><!--webbot bot="Validation" B-Value-Required="TRUE"
I-Maximum-Length="40" --><input type="text" size="59"
name="navn" style="background-color: #FFFFFF; color: #000000; font-family: Verdana; font-size: 11px; border: 1 solid #000000" maxlength="40"></td>
</tr>
<tr>
<td valign="top" align="left"><p align="left"><b>Tekst :</b></p>
</td>
<td><textarea name="Kommentar" rows="7"
cols="58" style="background-color: #FFFFFF; color: #000000; font-family: Verdana; font-size: 11px; border: 1 solid #000000"></textarea></td>
</tr>
<tr>
<td><br>
</td>
<td>
<input type="submit" name="Gem" value="Gem" style="background-color: #294A7B; color: #FFFFFF; font-family: Verdana; font-size: 10 px; border: 1 solid #294A7B">
<input
type="button" name="Annuller" value="Annuller" onclick="java script:history.back();" input type="submit" name="Gem" value="Gem" style="background-color: #294A7B; color: #FFFFFF; font-family: Verdana; font-size: 10 px; border: 1 solid #294A7B"></td>
</tr>
</table>
</div>
</form>
</td>
</tr>
</table>
</td>
</tr>
</table>
<script language="JavaScript"><!--
function FormValidate(theForm)
{
if (theForm.navn.value == "")
{
alert("Indtast Navn.");
theForm.Overskrift.focus();
return (false);
}
if (theForm.Kommentar.value == "")
{
alert("Der skal indtastes en kommentar.");
theForm.Kommentar.focus();
return (false);
}
return (true);
}
//--></script>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
