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 Hitachi
”Forskellighed gør os stærkere!”
Diversitet er ikke kun buzzwords og politisk korrekthed, men et spørgsmål om at alle føler sig godt tilpas og kan yde deres bedste.
31. januar 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\") %>