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
Offentlig digitalisering
Fra effektivisering til digital suverænitet. Hvordan skaber det offentlige en digital fremtid med AI, sikkerhed og kontrol i centrum?
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