Avatar billede plato Juniormester
20. april 2003 - 20:07 Der er 11 kommentarer og
2 løsninger

Enter = <br>

Hejsa NG.

Er der en venlig sjæl der kan hjælpe mig?

Jeg bruger denne her kode til at indsætte nyheder i min tabel, som bliver vist på en forside.

<form action="adminnews.asp" method="post">
<table cellpadding="0" cellspacing="20" width="500" border="0">
<tr>
    <td>Overskrift</td><td><input type="text" name="overskriftb"></td>
</tr>
<tr>
    <td>NyhedsTekst</td><td><textarea name="tekstb" rows="6" cols="20"></textarea></td>
</tr>
<tr>
    <td>Dit navn/nick</td><td><input type="text" name="navna"></td>
</tr>
<tr>
    <td>Kilde</td><td><input type="text" name="kildeb"></td>
</tr>
<tr>
    <td>Direkte </td><td><input type="text" name="linka"></td>
</tr>
<tr>
    <td>Link</td><td><input type="text" name="commentb"></td>
</tr>
<tr>
    <td>Picture</td><td><input type="text" name="pica"><br><a class="menub" title="upload" href="upload.asp" onclick="NewWindow(this.href,'link','300','400','no');return false;">Upload billede</a></td>
</tr>
<tr>
    <td>Overskrift</td><td width="300" align="left"><input type="text" name="overskrift2b"></td>
</tr>
</table>
<input type="image" src="gfx/send.gif" value="Gem">
</form>
<br><br>


<%if Request.Form("overskriftb") <> "" then
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("../db/data.mdb")
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open strConnect   



strSQL = "Insert into arkiv (overskrift, tekst, navn, kilde, link, comment, pic, overskrift2) values('" & Request.Form("overskriftb") & "', '" & Request.Form("tekstb") & "', '" & Request.Form("navna") & "', '" & Request.Form("kildeb") & "', '" & Request.Form("linka") & "', '" & Request.Form("commentb") & "', '" & Request.Form("pica") & "', '" & Request.Form("overskrift2b") & "')"

objConn.Execute(strSQL)

end if
%>

Hvordan får jeg den til at lave om, så når man trykker på <enter> tasten, så acceptere den det som <br>.

Ydermere vil jeg gerne man også kan bruge ' (eks: Peter's) Det vil den nemlig ikke nu, så det påvirker asp koden.
Avatar billede 3rdpixel.hove Nybegynder
20. april 2003 - 20:10 #1
Replace(string, VbCrLf, "<BR>")
Avatar billede somaliomar Praktikant
20. april 2003 - 20:11 #2
Enter = vbCrLf i ASP derfor kan du lave en replace der ser sådan ud:

  string = Replace(string, vbCrLf, "<br>")
Avatar billede ellebaek Nybegynder
20. april 2003 - 20:13 #3
Replace(string, VbCrLf, "<BR>")
Avatar billede plato Juniormester
20. april 2003 - 20:15 #4
Jeg skal have det ind med skeeer.

Hvor skal det puttes ind henne?
Og hvad med ' ?
Avatar billede plato Juniormester
20. april 2003 - 20:15 #5
:-)
Avatar billede askeb Nybegynder
20. april 2003 - 20:17 #6
du har fat i den forkerte kode...vi skal ha koden der viser informationerne ikke den der gemmer dem...
Avatar billede 3rdpixel.hove Nybegynder
20. april 2003 - 20:18 #7
Avatar billede ellebaek Nybegynder
20. april 2003 - 20:18 #8
<form action="adminnews.asp" method="post">
<table cellpadding="0" cellspacing="20" width="500" border="0">
<tr>
    <td>Overskrift</td><td><input type="text" name="overskriftb"></td>
</tr>
<tr>
    <td>NyhedsTekst</td><td><textarea name="tekstb" rows="6" cols="20"></textarea></td>
</tr>
<tr>
    <td>Dit navn/nick</td><td><input type="text" name="navna"></td>
</tr>
<tr>
    <td>Kilde</td><td><input type="text" name="kildeb"></td>
</tr>
<tr>
    <td>Direkte </td><td><input type="text" name="linka"></td>
</tr>
<tr>
    <td>Link</td><td><input type="text" name="commentb"></td>
</tr>
<tr>
    <td>Picture</td><td><input type="text" name="pica"><br><a class="menub" title="upload" href="upload.asp" onclick="NewWindow(this.href,'link','300','400','no');return false;">Upload billede</a></td>
</tr>
<tr>
    <td>Overskrift</td><td width="300" align="left"><input type="text" name="overskrift2b"></td>
</tr>
</table>
<input type="image" src="gfx/send.gif" value="Gem">
</form>
<br><br>


<%if Request.Form("overskriftb") <> "" then
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("../db/data.mdb")
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open strConnect   
        Function fncTextChange(strText)
            strTekst = Trim(strText)
            fncTextChange = Replace(strTekst,"""","''")
            fncTextChange = Replace(fncTextChange,"  "," &nbsp;")
            fncTextChange = Replace(fncTextChange,">","&gt;")
            fncTextChange = Replace(fncTextChange,"<","&lt;")
            fncTextChange = Replace(fncTextChange,vbCrLf,"<BR>")
            fncTextChange = Replace(fncTextChange,"å","&aring;")
            fncTextChange = Replace(fncTextChange,"æ","&aelig;")
            fncTextChange = Replace(fncTextChange,"ø","&oslash;")
            fncTextChange = Replace(fncTextChange,"Å","&Aring;")
            fncTextChange = Replace(fncTextChange,"Æ","&AElig;")
            fncTextChange = Replace(fncTextChange,"Ø","&Oslash;")
        End Function

    indhold = fncTextChange(request.form("tekstb"))
strSQL = "Insert into arkiv (overskrift, tekst, navn, kilde, link, comment, pic, overskrift2) values('" & Request.Form("overskriftb") & "', '" & indhold & "', '" & Request.Form("navna") & "', '" & Request.Form("kildeb") & "', '" & Request.Form("linka") & "', '" & Request.Form("commentb") & "', '" & Request.Form("pica") & "', '" & Request.Form("overskrift2b") & "')"

objConn.Execute(strSQL)

end if
%>

Den funktion jeg har sat ind nu, kann en del ting for dig...
Avatar billede ellebaek Nybegynder
20. april 2003 - 20:19 #9
og så sætter du lige denne linie ind i funktionen også:
fncTextChange = Replace(fncTextChange,"'","''")
Avatar billede plato Juniormester
20. april 2003 - 20:28 #10
Takker mange gange :-)
Avatar billede plato Juniormester
20. april 2003 - 20:28 #11
Er det ok med pts?
Avatar billede ellebaek Nybegynder
20. april 2003 - 20:29 #12
fint med mig...
Avatar billede ellebaek Nybegynder
20. april 2003 - 20:29 #13
takker...
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
Kurser inden for grundlæggende programmering

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.

Du kan også logge ind via nedenstående tjenester