Søg
Avatar billede Slettet bruger
26. januar 2007 - 10:45 Der er 7 kommentarer og
1 løsning

If kode hjælp.

Hej.

Jeg har denne her kode jeg ikke kan få til at virke:

        if request.Form("ProfiltekstM") = "Ja" then
            strSQL = "Update Bruger set Profiltekst='" & replace(Request.Form("Textarea"), "'", "''") & "', ProfiltekstM='Ja' WHERE id='" & Session("BrugerID") & "'"
        end if
        If request.Form("ProfiltekstS") = "Ja" then
            strSQL = "Update Bruger set Profiltekst='" & replace(Request.Form("Textarea"), "'", "''") & "', ProfiltekstS='Ja' WHERE id='" & Session("BrugerID") & "'"
        end if
        If request.Form("ProfiltekstS") = "Ja" AND request.Form("ProfiltekstM") = "Ja" then
            strSQL = "Update Bruger set Profiltekst='" & replace(Request.Form("Textarea"), "'", "''") & "', ProfiltekstS='Ja', ProfiltekstM='Ja' WHERE id='" & Session("BrugerID") & "'"
            end if
                if request.Form("ProfiltekstM") = "" then
            strSQL = "Update Bruger set Profiltekst='" & replace(Request.Form("Textarea"), "'", "''") & "', ProfiltekstM='Nej' WHERE id='" & Session("BrugerID") & "'"
        end if
        If request.Form("ProfiltekstS") = "" then
            strSQL = "Update Bruger set Profiltekst='" & replace(Request.Form("Textarea"), "'", "''") & "', ProfiltekstS='Nej' WHERE id='" & Session("BrugerID") & "'"
        end if
If request.Form("ProfiltekstS") = "" AND request.Form("ProfiltekstM") = "" then
            strSQL = "Update Bruger set Profiltekst='" & replace(Request.Form("Textarea"), "'", "''") & "', ProfiltekstS='Nej', ProfiltekstM='Nej'  WHERE id='" & Session("BrugerID") & "'"
        End If
Avatar billede jps6kb Novice
26. januar 2007 - 10:48 #1
Kommer den med en fejl eller? Hvad er problemet?
Avatar billede kalp Novice
26. januar 2007 - 10:59 #2
er dine id i databasen tal?
så skal du fjerne ' ' rundt om
'" & Session("BrugerID") & "'"

altså

" & Session("BrugerID") & ""
Avatar billede Slettet bruger
26. januar 2007 - 11:07 #3
Den gider bare ikke rette i databasen..
Avatar billede jps6kb Novice
26. januar 2007 - 11:21 #4
Men kommer der en fejlmeddelelse eller hvad sker der?
Avatar billede Slettet bruger
26. januar 2007 - 11:27 #5
Kommer ingen fejlmeddelselser eller noget. Det er lige som om den over ser koden på en måde. Jeg ved ikke hvad fejlen er:(
Avatar billede cpufan Juniormester
26. januar 2007 - 11:34 #6
du mangler bare nogle conn.execute(strSQL)
Avatar billede Slettet bruger
26. januar 2007 - 12:22 #7
Der er en.
Avatar billede Slettet bruger
26. januar 2007 - 12:23 #8
Nå, fik det til at virke. cpufan.

Havde bare lavet en efter if koderne..

Det ser sådan her ud nu:

        if request.Form("ProfiltekstM") = "Ja" then
            strSQL = "Update Bruger set Profiltekst='" & replace(Request.Form("Textarea"), "'", "''") & "', ProfiltekstM='Ja' WHERE id='" & Session("BrugerID") & "'"
                    Conn.Execute(strSQL)

        end if
        If request.Form("ProfiltekstS") = "Ja" then
            strSQL = "Update Bruger set Profiltekst='" & replace(Request.Form("Textarea"), "'", "''") & "', ProfiltekstS='Ja' WHERE id='" & Session("BrugerID") & "'"
                    Conn.Execute(strSQL)

        end if
        If request.Form("ProfiltekstS") = "Ja" AND request.Form("ProfiltekstM") = "Ja" then
            strSQL = "Update Bruger set Profiltekst='" & replace(Request.Form("Textarea"), "'", "''") & "', ProfiltekstS='Ja', ProfiltekstM='Ja' WHERE id='" & Session("BrugerID") & "'"
                    Conn.Execute(strSQL)

            end if
                if request.Form("ProfiltekstM") = "" then
            strSQL = "Update Bruger set Profiltekst='" & replace(Request.Form("Textarea"), "'", "''") & "', ProfiltekstM='Nej' WHERE id='" & Session("BrugerID") & "'"
                    Conn.Execute(strSQL)

        end if
        If request.Form("ProfiltekstS") = "" then
            strSQL = "Update Bruger set Profiltekst='" & replace(Request.Form("Textarea"), "'", "''") & "', ProfiltekstS='Nej' WHERE id='" & Session("BrugerID") & "'"
                    Conn.Execute(strSQL)

        end if
If request.Form("ProfiltekstS") = "" AND request.Form("ProfiltekstM") = "" then
            strSQL = "Update Bruger set Profiltekst='" & replace(Request.Form("Textarea"), "'", "''") & "', ProfiltekstS='Nej', ProfiltekstM='Nej'  WHERE id='" & Session("BrugerID") & "'"
        Conn.Execute(strSQL)
        End If
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP 4 26/04/202417:16 26/04/202418:37
JSON Af ingeman i ASP 3 07/04/202417:53 08/04/202412:09
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 20:06 Hjemmeside der virker både på mobil og computer Af Strawberry i PHP
I dag 17:08 Problemer med borger.dk Af valby i Windows
I dag 14:19 Fejl Af buls i Windows
I dag 13:44 Adgang til Google konto via Ipad Af cyperbent i E-mail programmer
I går 09:50 Mobilpay svindel Af nu_igen i Andre onlineløsninger
White papers
Flere white papers »