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

23/12

Historisk million-bøde får Region Syddanmarks it-direktør til at efterlyse nye GDPR-retningslinjer

23/12

Til næste år kommer iPhone 17 – og ifølge rygtestrømmene vil den byde på tre nyheder

23/12

En af verdens største it-distributører dropper samarbejdet med Broadcom: Kunne ikke nå til enighed

23/12

Ser med 'stor alvor' på problemer med vand, varme og manglende kontrol i politiets datacenter

23/12

Brugere rammes af Microsoft-fejl: M365-produkter er på mystisk vis blevet deaktiveret

23/12

Her er dommen: Region Syddanmark skal betale historisk stor bøde for grove overtrædelser af GDPR

23/12

Vores vidensindsamling og demokratiske samtale påvirkes af helt lukkede beslutninger i en enkelt privat virksomhed

23/12

Overblik: Danske it-selskaber strømmer ind mod den centrale storby - og det handler ikke om penge

23/12

Banebrydende ChatGPT-opdatering er lige på trapperne: “Denne model vil være helt fantastisk til programmering”

23/12

Tivoli søger ny CIO: Kenneth Hartvig stopper efter tre år på posten

23/12

Vi ender med at bo i en taber-region, hvis ikke vi gør noget drastisk - her er digitaliseringsministerens plan

Vis flere artikler

IT-JOB

Paychex Europe

Senior Software Developer for Danløn

Arbejdstilsynet

Data Engineer, der vil gøre en forskel for fremtidens arbejdsmarked

Finanstilsynet

Undersøgelsesleder til kontoret for IT-sikkerhed og cyberrisici

Statens IT

Serviceminded it-konsulent til midlertidig stilling i brugeradministrationen

Jyske Bank

Forretningsudvikler til Back Office

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

56 min siden	install.esd og boot.wim Af sjass i Windows
I dag 18:52	Nyt tekstdokument er forsvundet. Af valby i Windows
I dag 16:48	"Defragmentering" af Windows 11 ? Af Ikke-ekspert i Windows
I går 19:53	CD Burner XP (Sætte den til at optage nogle numre fra en CD - Men ikke alle ? Af Ikke-ekspert i Musik & videoafspillere
I går 17:42	Katastrofe med Pc Af LilBe i PC