27. april 2003 - 15:59
Der er
6 kommentarer og 1 løsning
Funktion og server.mappath en tricky en for en newb.... :o)
<% if request.querystring("mode") = "delete" then function db(vej) vej= request.form("db") end function strDB = request.form("db") Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("db/'db(vej)'.mdb") Conn.Open DSN Delete = "delete from " & request.form("delete_menu") & " where " & request.form("valg") & " = '" & request.form("delete_navn") & "' " Conn.Execute(delete) response.redirect ("default.asp?page=8") Conn.close Set Conn = Nothing end if %> Det jeg vil er at den enten scripts eller masterz ind i funktionen og alt efter om det er scripts dben eller masterz db så slettes en post. Forstod i det??? Hvis i gør så vil jeg gerne have en mulig løsning... Tror i det kan lade sig gøre?
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.
27. april 2003 - 16:47
#1
Er det sådan her du mener ? : if request.querystring("mode") = "delete" then function db(vej) vej= request.form("db") end function strDB = request.form("db") Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("db/"& vej &".mdb") Conn.Open DSN Delete = "delete from " & request.form("delete_menu") & " where " & request.form("valg") & " = '" & request.form("delete_navn") & "' " Conn.Execute(delete) response.redirect ("default.asp?page=8") Conn.close Set Conn = Nothing end if %> Ellers aner jeg ikke hvad du mener ?
27. april 2003 - 16:55
#2
Det kan du sagtens, men husk en *, når du anvender Access: Delete = "delete * from " & request.form("delete_menu") & " where " & request.form("valg") & " = '" & request.form("delete_navn") & "'" Conn.Execute(delete)
27. april 2003 - 16:58
#3
Og så skal du også lige have ændret lidt i toppen: function db() db = request.form("db") end function strDB = request.form("db") Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("db/" & db() & ".mdb") Conn.Open DSN
27. april 2003 - 16:59
#4
Men du kan også bare undlade din funktion helt og skrive: strDB = request.form("db") Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("db/" & request.form("db") & ".mdb")
27. april 2003 - 16:59
#5
Hey Jeg blev så sur at jeg gjorde sådan her: % if request.querystring("mode") = "delete" then Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("db/"& request.form("db") &".mdb") Conn.Open DSN Delete = "delete from " & request.form("delete_menu") & " where " & request.form("valg") & " = '" & request.form("delete_navn") & "' " Conn.Execute(delete) response.redirect ("default.asp?page=8") Conn.close Set Conn = Nothing end if %> Og det virker sgu og det er jeg glad for....
27. april 2003 - 17:00
#6
Oasen... Du kom først.... Jeg giver dig points da det nok er den bedste måde du har postet....!!!! :P:P Post noget som et svar og du får points!
27. april 2003 - 17:04
#7
Jeg ved ikke, om det er den bedste måde, men det er nok den mest enkle.
Kurser inden for grundlæggende programmering