11. november 2001 - 03:42
Der er
1 løsning
Hjælp, gem enter!
Hej... Jeg vil gerne have når jeg laver en return at den så gemmer den (F.eks. som <br> i databasen) Hvordan gør jeg det? <% Const adOpenKeyset = 1 Const adLockOptimistic = 3 Set Conn = Server.CreateObject(\"ADODB.Connection\") Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"koder.mdb\") & \";UID=admin;PWD=;\" Set rs = Server.CreateObject(\"ADODB.RecordSet\") strSQL = \"Select * From koder\" rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic rs.AddNew rs(\"overskrift\") = Request.form(\"overskrift\") rs(\"Koden\") = Request.form(\"Koden\") rs(\"Dato\") = Now rs.Update rs.Close Set rs = Nothing Conn.Close set Conn = Nothing response.redirect (\"admin.asp\") %> På forhånd tak
Annonceindlæg fra DE-CIX
Edge computing: behandling ved kilden
Edge computing revolutionerer den måde, data behandles på, ved at bringe kapacitet og ydeevne tættere på dér, hvor der er behov for det.
15. april 2025
11. november 2001 - 04:40
#1
<% Const adOpenKeyset = 1 Const adLockOptimistic = 3 Set Conn = Server.CreateObject(\"ADODB.Connection\") Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"koder.mdb\") & \";UID=admin;PWD=;\" Set rs = Server.CreateObject(\"ADODB.RecordSet\") strSQL = \"Select * From koder\" rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic rs.AddNew rs(\"overskrift\") = Request.form(\"overskrift\") rs(\"Koden\") = Replace(Request.form(\"Koden\"),vbCrlF,\"<br>\") rs(\"Dato\") = Now rs.Update rs.Close Set rs = Nothing Conn.Close set Conn = Nothing response.redirect (\"admin.asp\") %>