Avatar billede zantiago Nybegynder
26. december 2006 - 11:42 Der er 4 kommentarer og
1 løsning

Tjek om en post eksisterer i SQL DB

Hej Eksperter,

For at folk ikke skal tilmelde sig nyhedsbrevet mere end en gang, har jeg forsøgt at tjekke om de allerede er tilmeldt, men det fungerer ikke rigtigt.

Kan I se hvad jeg gør galt?


-----------------------------------------------------------------
If request.Form("Newsletter") = "1" then
       
        Set rs_newsletter_tjek_users = Server.CreateObject("ADODB.RecordSet")
        rs_newsletter_tjek_users.open "Select * From [Newsletter_Users] WHERE Email='"&Trim(request.form("Email"))&"'" , Conn,1 ,3
        If not rs_newsletter_tjek_users.BOF OR not rs_newsletter_tjek_users.EOF Then
           
            Set rs_newsletter_add_users = Server.CreateObject("ADODB.RecordSet")
            rs_newsletter_add_users.open "Select * From [Newsletter_Users]" , Conn,1 ,3
            rs_newsletter_add_users.Addnew
            rs_newsletter_add_users("Site_Id")        = Site_Id
            rs_newsletter_add_users("Name")            = request.form("Name")
            rs_newsletter_add_users("Email")        = request.form("Email")
            rs_newsletter_add_users("godkendt")        = True
            rs_newsletter_add_users.Update
            rs_newsletter_add_users.Close
       
        End If
   
    End if
-----------------------------------------------------------------

På forhånd tak...
Avatar billede kalp Novice
26. december 2006 - 12:23 #1
rs_newsletter_add_users.open "Select * From [Newsletter_Users]" WHERE Email='"&Trim(request.form("Email"))&"' NOT IN (Select Email From [Newsletter_Users])" , Conn,1 ,3


du kan vel lave det hele i en sætning?
Avatar billede kalp Novice
26. december 2006 - 13:14 #2
men det du har skal vel mere se sådan ud?

If request.Form("Newsletter") = "1" then
       
        Set rs_newsletter_tjek_users = Server.CreateObject("ADODB.RecordSet")
        rs_newsletter_tjek_users.open "Select * From [Newsletter_Users] WHERE Email='"&Trim(request.form("Email"))&"'" , Conn,1 ,3
        If not rs_newsletter_tjek_users.EOF Then
           
Response.write("Du er allerede tilmeldt..")
        else

          Set rs_newsletter_add_users = Server.CreateObject("ADODB.RecordSet")
            rs_newsletter_add_users.open "Select * From [Newsletter_Users]" , Conn,1 ,3
            rs_newsletter_add_users.Addnew
            rs_newsletter_add_users("Site_Id")        = Site_Id
            rs_newsletter_add_users("Name")            = request.form("Name")
            rs_newsletter_add_users("Email")        = request.form("Email")
            rs_newsletter_add_users("godkendt")        = True
            rs_newsletter_add_users.Update
            rs_newsletter_add_users.Close

        End If
   
    End if
Avatar billede kalp Novice
29. december 2006 - 08:55 #3
?
Avatar billede zantiago Nybegynder
15. januar 2007 - 15:08 #4
Det virker perfekt - tak... svar :o)
Avatar billede kalp Novice
15. januar 2007 - 15:18 #5
weee:-)
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