Avatar billede cdc Novice
16. marts 2004 - 00:53 Der er 3 kommentarer og
1 løsning

indset <br> ved enter

roder med noget redigerings script og har ikke fundet den vise sten til hvordan jeg kan få den til at indsette <br> ved tryk på enter.

siden består af to script

<%
if request("mode") = "gem" then
set conn = server.createobject("ADODB.connection")
path = Server.MapPath("db/proshop.mdb")
conn.Open "DBQ="& path &";DefaultDir="& path & ";Driver={Microsoft Access Driver (*.mdb)}"

SQL="UPDATE pro SET "
SQL = SQL & "overskrift='" & Request.form("overskrift") & "', "
SQL = SQL & "tekst='" & request.form("tekst") & "'"
SQL = SQL & " where ID =" & session("EditID")
Set RS = Conn.Execute(SQL)
%>

og denne.


set rstemp=nothing
Conn.Close
set conntemp=nothing

else

set conn = server.createobject("ADODB.connection")
path = Server.MapPath("db/proshop.mdb")
conn.Open "DBQ="& path &";DefaultDir="& path & ";Driver={Microsoft Access Driver (*.mdb)}"
SQL = "SELECT * from pro where id = " & Request.Querystring("ID")
set RS = Conn.Execute(SQL)
Session("overskrift") = RS("overskrift")
Session("tekst") = RS("tekst")
Session("editID") = Request.Querystring("ID")
%>

hvad skal jeg gøre

/cdc
Avatar billede musicchart.dk Nybegynder
16. marts 2004 - 00:55 #1
<%
if request("mode") = "gem" then
set conn = server.createobject("ADODB.connection")
path = Server.MapPath("db/proshop.mdb")
conn.Open "DBQ="& path &";DefaultDir="& path & ";Driver={Microsoft Access Driver (*.mdb)}"

tekst = Replace(Replace(Server.HTMLEncode(request.form("tekst")),vbCrLf, "<br>"),"'","''")

SQL="UPDATE pro SET "
SQL = SQL & "overskrift='" & Request.form("overskrift") & "', "
SQL = SQL & "tekst='" & tekst & "'"
SQL = SQL & " where ID =" & session("EditID")
Set RS = Conn.Execute(SQL)
%>
Avatar billede cdc Novice
16. marts 2004 - 01:02 #2
den får jeg ikke til at virke, den laver ikke linieskift
Avatar billede musicchart.dk Nybegynder
16. marts 2004 - 01:07 #3
Hmm... sikker?
Så prøv med dette:

<%
if request("mode") = "gem" then
set conn = server.createobject("ADODB.connection")
path = Server.MapPath("db/proshop.mdb")
conn.Open "DBQ="& path &";DefaultDir="& path & ";Driver={Microsoft Access Driver (*.mdb)}"

tekst = Replace(request.form("tekst"),vbCrLf, "<br>")
overskrift = Replace(request.form("overskrift"),vbCrLf, "<br>")

SQL="UPDATE pro SET "
SQL = SQL & "overskrift='" & overskrift & "', "
SQL = SQL & "tekst='" & tekst & "'"
SQL = SQL & " where ID =" & session("EditID")
Set RS = Conn.Execute(SQL)
%>
Avatar billede cdc Novice
16. marts 2004 - 08:48 #4
så var den der, tak for hjælpen :o)
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