Avatar billede hemberg Forsker
14. november 2002 - 23:03 Der er 25 kommentarer og
1 løsning

ÁdNew erstattes med delete ??

Hej allesammen, Jeg har et lille script hvor folk kan tilmelde sig et nyhedsbrev. Deres Email adr kommer så til at stå i en access db. Hvis nu jeg vil lave en remove funktion kan jeg så bare erstatte AdNew med Delete eller hvordan gør jeg det.

Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From personer"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

      rs.AddNew
      rs("E-Mail") = Request.form("email")
      rs.Update
Avatar billede kovalt Nybegynder
14. november 2002 - 23:10 #1
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "DELETE * FROM personer WHERE email = '"& requets.form("email") &"'"
Conn.execute(strSQL)

Dette fjerner den post i databasen, som har en e-mail der svarer til det der er indtastet i request.form("email")
Avatar billede soes Nybegynder
14. november 2002 - 23:10 #2
du kan goere det saadan her:
email = Replace(Request.Form("email"), "'", "''")
SQL = "DELETE * FROM personer WHERE email = '"& email &"'"
Conn.Execute(Sql)
Avatar billede soes Nybegynder
14. november 2002 - 23:10 #3
2 sjaele en tanke :o)
Avatar billede kovalt Nybegynder
14. november 2002 - 23:15 #4
ser sådan ud :-)
Avatar billede kovalt Nybegynder
14. november 2002 - 23:41 #5
kan du få det til at virke?
Avatar billede hemberg Forsker
14. november 2002 - 23:42 #6
Kovalts' løsning er den jeg mangler. Men hvad går så galt her. Den skriver at den ikke kan finde siden !!

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/subscribe.mdb") & ";UID=???;PWD=???;"

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "DELETE * FROM personer WHERE E-Mail = '"& requets.form("email") &"'"
Conn.execute(strSQL)
   
Conn.Close
Avatar billede kovalt Nybegynder
15. november 2002 - 00:02 #7
hvad er fejlen?
Avatar billede kovalt Nybegynder
15. november 2002 - 00:03 #8
jeg er ikke lige med på hvad det er for en side den ikke kan finde
Avatar billede hemberg Forsker
15. november 2002 - 00:05 #9
Retter. Internet Explorer skriver at siden ikke kan vises. Ligesom hvis man fx. skriver en www ardder ikke findes.
Avatar billede kovalt Nybegynder
15. november 2002 - 00:05 #10
hmmmm. det har ikke noget med ASP'en at gøre er du sikker på at din server er oppe?
Avatar billede hemberg Forsker
15. november 2002 - 00:06 #11
Har gennemgået alle links. Og der ER Rigtige...
Avatar billede kovalt Nybegynder
15. november 2002 - 00:08 #12
det har ikke noget med ASP'en at gøre i hvert fald..... kan du læse andre sider fra din server eller er det også galt med dem?
Avatar billede hemberg Forsker
15. november 2002 - 00:11 #13
Ja, det kan jeg. Og selvom jeg køre den direkte fra serveren melder den denne fejl. Kan det have noget at gøre med de der Const tal 1 & 3 ???
Avatar billede hemberg Forsker
15. november 2002 - 00:13 #14
Avatar billede kovalt Nybegynder
15. november 2002 - 00:14 #15
prøv at lukke browseren og åben en ny.... det burde bare ikke ha noget at sige
Avatar billede kovalt Nybegynder
15. november 2002 - 00:17 #16
AAAhhhh... grunden til at du får den fejl du gør er garantert fordi du har slået "show friendly error-massages" eller noget i den stil i din browser.

internet options -> tool -> advanced -> uncheck "show friendly error-messages"!!

Jeg får nemlig en fejl i linie 9 når jeg kører det
Avatar billede kovalt Nybegynder
15. november 2002 - 00:18 #17
hvad er linie 9?
Avatar billede kovalt Nybegynder
15. november 2002 - 00:19 #18
Det er fordi request er stavet forkert....

strSQL = "DELETE * FROM personer WHERE E-Mail = '"& requets.form("email") &"'"

skal rettes til

strSQL = "DELETE * FROM personer WHERE E-Mail = '"& request.form("email") &"'"


Nu virker det!
Avatar billede kovalt Nybegynder
15. november 2002 - 00:19 #19
håber jeg :-)
Avatar billede kovalt Nybegynder
15. november 2002 - 00:25 #20
eller?
Avatar billede hemberg Forsker
15. november 2002 - 00:26 #21
Nej... Fejl to few parameter's in line 10....
Avatar billede kovalt Nybegynder
15. november 2002 - 00:26 #22
nå jeg lukker om 5 minutter.... kigger lige i morgen om du fandt ud af det :-) eller god fornøjelse
Avatar billede kovalt Nybegynder
15. november 2002 - 00:27 #23
prøv lige med:

strSQL = "DELETE * FROM personer WHERE E-Mail = "& request.form("email") &""
Avatar billede kovalt Nybegynder
15. november 2002 - 00:27 #24
jeg ved ikke om den bindestreg i kolonnenanvet E-Mail er sund :-=
Avatar billede kovalt Nybegynder
15. november 2002 - 11:15 #25
hvad skriver den hvis du skriver

response.write(strSQL)

i stedet for

conn.execute(strSQL)
Avatar billede hemberg Forsker
15. november 2002 - 23:37 #26
Tak for hjælpen kovalt.... Det virkede allerede igår. Men af en eller anden grung blev jeg hele tiden smidt af Eksperten... Anyway dine point er velfortjente...
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester