CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

claust Nybegynder

12. december 2000 - 14:27 Der er 4 kommentarer og
1 løsning

flere if then.. med response write og flere skal udskrives...

Jeg har en række if then sætninger a la;

if fileok = 1 then
response write et-eller-andet
end if

if file2ok = 1 then
response write noget-andet
end if

.....men der sker det, at hvis én af værdierne er sande så stopper koden og udskriver det der står i den linie - det jeg gerne vil er at den response writer *alle* de linier der er sande. Det er til fejlmeddelese, f.eks.

billedfil 1 er højere end tilladt
billedfil 3 er bredere end tilladt

anyone ?

claus

Synes godt om

erikjacobsen Ekspert

12. december 2000 - 14:30 #1

Det burde den også gøre som du anfører. Må vi se hele koden - du har lavet noget
andet galt.

Synes godt om

claust Nybegynder

12. december 2000 - 14:38 #2

der er meget - men her er et udpluk;

if fileok = 1 and fileok1 = 1 and fileok2 = 1 and fileok3 = 1 then
Response.Redirect(\"film4.asp?action=list\")
end if

if fileok = 4 then
Response.Write(\"FEJL: Cover billedet er af forkert filtype, kun GIF eller JPG format må bruges. Dette billede er ikke gemt.\")
end if

if fileok = 3 then
Response.Write(\"FEJL: Cover billedet er er \" )
Response.Write File.ImageWidth
Response.Write (\" pixels bredt - max bredde er 150 pixels. Dette billede er ikke gemt.\")
end if

if fileok = 2 then
Response.Write(\"FEJL: Cover billedet er \" )
Response.Write File.ImageHeight
Response.Write (\" pixels højt - max højde er 200 pixels. Dette billede er ikke gemt.\")
end if

if fileok1 = 4 then
Response.Write(\"FEJL: Menu billede 1 er af forkert filtype, kun GIF eller JPG format må bruges. Dette billede er ikke gemt.\")
end if

if fileok1 = 3 then
Response.Write(\"FEJL: Menu billede 1 er er \" )
Response.Write File.ImageWidth
Response.Write (\" pixels bredt - max bredde er 230 pixels. Dette billede er ikke gemt.\")
end if

if fileok1 = 2 then
Response.Write(\"FEJL: Menu billede 1 er \" )
Response.Write File.ImageHeight
Response.Write (\" pixels højt - max højde er 180 pixels. Dette billede er ikke gemt.\")
end if

if fileok2 = 4 then
Response.Write(\"FEJL: Menu billede 2 er af forkert filtype, kun GIF eller JPG format må bruges. Dette billede er ikke gemt.\")
end if

if fileok2 = 3 then
Response.Write(\"FEJL: Menu billede 2 er er \" )
Response.Write File.ImageWidth
Response.Write (\" pixels bredt - max bredde er 230 pixels. Dette billede er ikke gemt.\")
end if

if fileok2 = 2 then
Response.Write(\"FEJL: Menu billede 2 er \" )
Response.Write File.ImageHeight
Response.Write (\" pixels højt - max højde er 180 pixels. Dette billede er ikke gemt.\")
end if

if fileok3 = 4 then
Response.Write(\"FEJL: Menu billede 3 er af forkert filtype, kun GIF eller JPG format må bruges. Dette billede er ikke gemt.\")
end if

if fileok3 = 3 then
Response.Write(\"FEJL: Menu billede 3 er er \" )
Response.Write File.ImageWidth
Response.Write (\" pixels bredt - max bredde er 230 pixels. Dette billede er ikke gemt.\")
end if

if fileok3 = 2 then
Response.Write(\"FEJL: Menu billede 3 er \" )
Response.Write File.ImageHeight
Response.Write (\" pixels højt - max højde er 180 pixels. Dette billede er ikke gemt.t\")
end if

Set Upload = nothing
conn.Close
Set conn = Nothing

Synes godt om

erikjacobsen Ekspert

12. december 2000 - 14:41 #3

Mener du, at hvis du har flere fejl på samme billede, og har lyst til både,
at sætte f.eks. fileok3 til både 3 og 2, så kan du kun få den ene ud. Ja,
så har du en slags fejl. Men den skriver da 2 beskedder ud, så længe
det handler om 2 forskellige billeder - ikke??

Synes godt om

tomsommer Juniormester

12. december 2000 - 19:24 #4

prøv at flytte

if fileok = 1 and fileok1 = 1 and fileok2 = 1 and fileok3 = 1 then
Response.Redirect(\"film4.asp?action=list\")
end if

ned i bunden!

Synes godt om

dkjohn Nybegynder

13. december 2000 - 01:15 #5

Denne kode burde virker, det gør den ihvertfald her :-)
Den hjælper dog ikke hvis dit problem er at du vil udskrive 2-3 forskellige fejlmeddelser på samme billede. Hvis det er det du vil, skal du nok regne med at skrive din kode helt om, både der hvor du sætter variablernes værdi og ved udskrivningen. Men det kan lade sig gøre.

<%
IF fileok<>1 AND fileok1<>1 AND fileok2<>1 AND fileok3<>1 THEN
SELECT CASE fileok
CASE 4
Response.Write(\"FEJL: Cover billedet er af forkert filtype, kun GIF eller JPG format må bruges. Dette billede er ikke gemt.\")
CASE 3
Response.Write(\"FEJL: Cover billedet er er \" )
Response.Write File.ImageWidth
Response.Write (\" pixels bredt - max bredde er 150 pixels. Dette billede er ikke gemt.\")
CASE 2
Response.Write(\"FEJL: Cover billedet er \" )
Response.Write File.ImageHeight
Response.Write (\" pixels højt - max højde er 200 pixels. Dette billede er ikke gemt.\")
END SELECT

SELECT CASE fileok1
CASE 4
Response.Write(\"FEJL: Menu billede 1 er af forkert filtype, kun GIF eller JPG format må bruges. Dette billede er ikke gemt.\")
CASE 3
Response.Write(\"FEJL: Menu billede 1 er er \" )
Response.Write File.ImageWidth
Response.Write (\" pixels bredt - max bredde er 230 pixels. Dette billede er ikke gemt.\")
CASE 2
Response.Write(\"FEJL: Menu billede 1 er \" )
Response.Write File.ImageHeight
Response.Write (\" pixels højt - max højde er 180 pixels. Dette billede er ikke gemt.\")
END SELECT

SELCET CASE fileok2
CASE 4
Response.Write(\"FEJL: Menu billede 2 er af forkert filtype, kun GIF eller JPG format må bruges. Dette billede er ikke gemt.\")
CASE 3
Response.Write(\"FEJL: Menu billede 2 er er \" )
Response.Write File.ImageWidth
Response.Write (\" pixels bredt - max bredde er 230 pixels. Dette billede er ikke gemt.\")
CASE 2
Response.Write(\"FEJL: Menu billede 2 er \" )
Response.Write File.ImageHeight
Response.Write (\" pixels højt - max højde er 180 pixels. Dette billede er ikke gemt.\")
END SELECT

SELECT CASE fileok3
CASE 4
Response.Write(\"FEJL: Menu billede 3 er af forkert filtype, kun GIF eller JPG format må bruges. Dette billede er ikke gemt.\")
CASE 3
Response.Write(\"FEJL: Menu billede 3 er er \" )
Response.Write File.ImageWidth
Response.Write (\" pixels bredt - max bredde er 230 pixels. Dette billede er ikke gemt.\")
CASE 2
Response.Write(\"FEJL: Menu billede 3 er \" )
Response.Write File.ImageHeight
Response.Write (\" pixels højt - max højde er 180 pixels. Dette billede er ikke gemt.t\")
END SELECT
ELSE
Response.Redirect(\"film4.asp?action=list\")
END IF
%>

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

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	0	07/11/202415:34	-
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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS

22/11

Test: Den snusfornuftige Volkswagen ID.3 blevet til lidt af el-bisse

22/11

Vil købe tele-løsninger til det offentlige for 370 millioner kroner

22/11

Nørgaard: Det er de neuro-divergente originalers tid

22/11

Sker helt åbenlyst: Ansatte i den kinesiske stat sælger borgernes personlige data på hemmelige internet-fora

22/11

Efterspørgslen på AI-regnekraft er enorm - og det smitter af på priserne: "Vi kan sælge næsten alt, hvad vi får ind"

22/11

Derfor bliver den amerikanske tvangs-opdeling af Google nok ikke til noget

22/11

Nyt værtøj fra Microsoft: Snart kan du reparere nedbrudte Windows-enheder på distancen

22/11

Vi har fundet 10 ledige it-stillinger, som du kan søge netop nu

22/11

Politiet skriver kontrakt på 75 millioner kroner med dansk it-firma: Medarbejdere skal flytte ind hos politiet

22/11

Kombit gør klar til at købe it-konsulenter for 140 millioner kroner - her er planen

22/11

Droner i krig - sådan anvendes de mest effektivt på slagmarken

Vis flere artikler

IT-JOB

Cognizant Technology Solutions Denmark ApS

Energy Trading Project Manager – Consulting

Cognizant Technology Solutions Denmark ApS

Test Manager

PensionDanmark

ML Engineer

Itm8

CRM-produktejer med bred Microsoftprofil

Statens IT

Er du vores nye IT-projektleder hos Statens It?

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I dag 15:56	Navigation i Peugeot 3-2008 fra 2017 Af arnepedersen i Andet software
I dag 14:10	Outlook henter ikke mails Af TTA i Office & Kontorpakker
I dag 13:58	vise billeder i kartotek med store ikoner inklusive optagelsesdato Af Malm i Billedbehandling
I dag 13:35	Adobe Elements 2019, Organizer Crasher Af mort1 i Billedbehandling
I går 20:49	pop up black friday Af Malm i Virus