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
Annonceindlæg tema
Cloud & AI
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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) %>
16. marts 2004 - 01:02
#2
den får jeg ikke til at virke, den laver ikke linieskift
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) %>
16. marts 2004 - 08:48
#4
så var den der, tak for hjælpen :o)
Kurser inden for grundlæggende programmering