Avatar billede idiotbarn Nybegynder
24. november 2002 - 17:37 Der er 5 kommentarer og
2 løsninger

ASp og javascript sammen

Jeg har en kode der ser nogenlunde sådan ud...det er meningen at hvis posten allerede findes så skal den komme med en popup...der sker bare ikke noget...Der kommer så også et problem i at posten altid existere da det er en update funktion...men det ændre jeg senere.
arrBrugere = Split(Valg,",")
    For t = LBound(arrBrugere) to UBound(arrBrugere)
   
    Bruger = "Select * from Users where Brugernavn='" & Brugernavn & "'"
    Set rs = Conn.Execute(Bruger)

    Bruger = "Brugernavn" & arrBrugere(t)
    Bruger = Replace(Bruger, " ", "")
    Brugernavn = Request.Form(Bruger)
   
    Kode = "Kodeord" & arrBrugere(t)
    Kode = Replace(Kode, " ", "")
    Kodeord = Request.Form(Kode)
   
    Mail = "Email" & arrBrugere(t)
    Mail = Replace(Mail, " ", "")
    Email = Request.Form(Mail)
   
    Status = "Aktiveret" & arrBrugere(t)
    Status = Replace(Status, " ", "")
    Aktiveret = Request.Form(Status)
   
        If Aktiveret = "" Then
        Aktiveret = "0"
        End if
           
            If rs.EOF Then
                strSQL = "Update Users set " 
                strSQL = strSQL & "Brugernavn='" & Brugernavn & "', " 
                strSQL = strSQL & "Kodeord= '" & Kodeord & "', "
                strSQL = strSQL & "Email= '" & Email & "', "
                strSQL = strSQL & "Aktiveret=  '" & Aktiveret & "' "
                strSQL = strSQL & " Where Id = " & arrBrugere(t)
                Conn.Execute(strSQL)
                Else
                FejlMsg="Brugernavnet: " & Brugernavn & "findes allerede og kan derfor ikke gemmes" %>
                <Script>
                alert("FEJL")
                </Script>
                <%
                End if   
next
Avatar billede no_doubt Nybegynder
24. november 2002 - 17:41 #1
If rs.EOF Then
      <Script>
                alert("FEJL")
                </Script>
else
                strSQL = "Update Users set " 
                strSQL = strSQL & "Brugernavn='" & Brugernavn & "', " 
                strSQL = strSQL & "Kodeord= '" & Kodeord & "', "
                strSQL = strSQL & "Email= '" & Email & "', "
                strSQL = strSQL & "Aktiveret=  '" & Aktiveret & "' "
                strSQL = strSQL & " Where Id = " & arrBrugere(t)
                Conn.Execute(strSQL)
                Else
%>
       
                <%
                End if   
next
Avatar billede whatever Nybegynder
24. november 2002 - 17:43 #2
arrBrugere = Split(Valg,",")
    For t = LBound(arrBrugere) to UBound(arrBrugere)
   
    Bruger = "Select * from Users where Brugernavn='" & Brugernavn & "'"
    Set rs = Conn.Execute(Bruger)

    Bruger = "Brugernavn" & arrBrugere(t)
    Bruger = Replace(Bruger, " ", "")
    Brugernavn = Request.Form(Bruger)
   
    Kode = "Kodeord" & arrBrugere(t)
    Kode = Replace(Kode, " ", "")
    Kodeord = Request.Form(Kode)
   
    Mail = "Email" & arrBrugere(t)
    Mail = Replace(Mail, " ", "")
    Email = Request.Form(Mail)
   
    Status = "Aktiveret" & arrBrugere(t)
    Status = Replace(Status, " ", "")
    Aktiveret = Request.Form(Status)
   
        If Aktiveret = "" Then
        Aktiveret = "0"
        End if
           
            If Not rs.EOF Then
                strSQL = "Update Users set " 
                strSQL = strSQL & "Brugernavn='" & Brugernavn & "', " 
                strSQL = strSQL & "Kodeord= '" & Kodeord & "', "
                strSQL = strSQL & "Email= '" & Email & "', "
                strSQL = strSQL & "Aktiveret=  '" & Aktiveret & "' "
                strSQL = strSQL & " Where Id = " & arrBrugere(t)
                Conn.Execute(strSQL)
            Else
                FejlMsg="Brugernavnet: " & Brugernavn & "findes allerede og kan derfor ikke gemmes" %>
                <Script>
                alert("FEJL")
                </Script>
                <%
                End if   
next
Avatar billede whatever Nybegynder
24. november 2002 - 17:43 #3
Du manglede et Not i if-sætningen.
Avatar billede erikjacobsen Ekspert
24. november 2002 - 17:44 #4
If rs.EOF Then
    response.write "<Script>"
    response.write "alert('FEJL');"
    response.write "</Script>"
else
Avatar billede idiotbarn Nybegynder
24. november 2002 - 17:55 #5
Tak for de hurtige svar...jeg kom til at se på scriptet...hvordan f** siger man...at hvis den finder mere end en post så skal den et eller andet? For det nuværende script kan ikke rigtigt bruges
Avatar billede idiotbarn Nybegynder
11. januar 2003 - 23:19 #6
lukker...
Avatar billede idiotbarn Nybegynder
11. januar 2003 - 23:20 #7
nu...
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