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

hundevennen Nybegynder

21. februar 2006 - 19:36 Der er 11 kommentarer og
1 løsning

lave et barometer

Jeg ønsker at lave et slags barometer - fra en administrationsside skal man kunne fra en dropdownliste vælge f.eks hvid, grøn orange rød og submitte det og udfra hvad man har valgt skal der så på en side ses en slags lyskurv hvor den valgte farve er fremhævet/tændt. - jeg forestiller mig at jeg laver fire jpegs med de forskellige farver fremhævet og at de så bliver hentet frem alt efter hvad der bliver valgt fra dropdownlisten?

Synes godt om

Slettet bruger

21. februar 2006 - 22:45 #1

Hej

Hvor vil du så have dataen som du submitter på adminsiden gemt?

\Dan

Synes godt om

hundevennen Nybegynder

22. februar 2006 - 07:48 #2

i en accessdatabase

Synes godt om

Slettet bruger

22. februar 2006 - 11:02 #3

OK! Og skal man så kun kunne vælge én farve i den dropdown(select)-boks?

- jeg skal nok se på det senere i dag...

Men mener du virkelig at du vil gemme det i en access-database når det er så få oplysninger der skal gemmes?
- jeg mener, hvorfor ikke bare gemme det i en txt-fil?

\Dan

Synes godt om

hundevennen Nybegynder

22. februar 2006 - 11:16 #4

det ved jeg ikke hvordan man bruger sammen med asp sider tekstfiler altså - men jeg er vant til at hente ind og ud af databaser - jeg kan godt se at bare inserte f.eks
et 1 tal for at den viser grøn er lidt fjollet, men håbede så på noget input til en nemmere løsning?

Synes godt om

hundevennen Nybegynder

22. februar 2006 - 11:19 #5

Jeg havde forestillet mig at includere en fil med en lille table der kan placeres via min css fil og i tabellen placere en jpeg fil alt efter hvad der er valgt.
D.v.s. jeg laver 4 jpegs rød.jpg grøn.jpg osv. og når der står f.eks.1 i databasen vises siden med en grøn - når der står 2 er den ul o.s.v.

Synes godt om

Slettet bruger

22. februar 2006 - 11:36 #6

jeps! Dette vil altså sige at det eneste du vil have gemt i databasen er et enkelt tal... og det er så her jeg mener det er noget nemmere og mindre krævende med en txt-fil...
fx. sådan her:
- - DIN ADMIN-SIDE - -
<%
if Request.QueryString("act") = "save" then
dim fs, f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.CreateTextFile(server.mappath(".") & "barometer.txt",true)
f.WriteLine(Request.Form("color"))
f.Close
set f=nothing
set fs=nothing
Response.Redirect Request.ServerVariables("SCRIPT_NAME")
end if
%>
<html>
<body>
<form action="<%="" & Request.ServerVariables("SCRIPT_NAME") & ""%>?act=save" method="post">
<select size="1" name="color">
<option value="1">Hvid</option>
<option value="2">Grøn</option>
<option value="3">Orange</option>
<option value="4">Rød</option>
</select>
</form>
</body>
</html>

- - DIN BAROMETER-SIDE - -

<%
dim fs,t,barometer
set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.FileExists(server.mappath(".") & "barometer.txt"=true then
set t=fs.OpenTextFile(server.mappath(".") & "barometer.txt",1,false)
barometer = t.ReadAll
t.close
end if
%>
<html>
<body>
<%
if barometer = 1 then
billede = "Hvid.jpg"
elseif barometer = 2 then
billede = "Grøn.jpg"
elseif barometer = 3 then
billede = "Orange.jpg"
elseif barometer = 4 then
billede = "Rød.jpg"
else
barometer = ""
end if
%>
<img src="<%="" & billede & ""%>">
</body>
</html>

--------------
Jeg skal lige sige at jeg har ikke selv testet det her... så der kan sagtens være fejl...

\Dan

Synes godt om

hundevennen Nybegynder

22. februar 2006 - 16:56 #7

Hej Dan - jeg har afprøvet og det virker ikke helt - men ideen er formentlig rigtig - jeg kan ikke lige helt gennemskue hvad du laver på adm siden - opretter siden selv filen barometer.txt? og på barometersiden for jeg denne fejl
Tegnet ')' var ventet
barometer.asp, line 12, column 60
if fs.FileExists(server.mappath(".") & "barometer.txt"=true then

Synes godt om

hundevennen Nybegynder

22. februar 2006 - 16:57 #8

jeg har selvfølgelig lavet jpeg filerne og alle filer ligger i samme bibliotek

Synes godt om

hundevennen Nybegynder

22. februar 2006 - 17:12 #9

på adm siden - hvordan for du formen til at save

Synes godt om

Slettet bruger

22. februar 2006 - 22:17 #10

Hejsa... Jeg får formen til at save når querystringen som hedder "act" er lig med "save"...

Men hvad den fejl angår... så prøv lige det her i stedet... det kan ikke passe det ikke virker...
- - DIN ADMIN-SIDE - -
<%
if Request.QueryString("act") = "save" then
dim fs, f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.CreateTextFile(server.mappath(".") & "\barometer.txt",true)
f.WriteLine(Request.Form("color"))
f.Close
set f=nothing
set fs=nothing
Response.Redirect Request.ServerVariables("SCRIPT_NAME")
end if
%>
<html>
<body>
<form action="<%="" & Request.ServerVariables("SCRIPT_NAME") & ""%>?act=save" method="post">
<select size="1" name="color">
<option value="1">Hvid</option>
<option value="2">Grøn</option>
<option value="3">Orange</option>
<option value="4">Rød</option>
</select>
<input type="submit" name="submit" value="GEM">
</form>
</body>
</html>

- - DIN BAROMETER-SIDE - -

<%
dim fs,t,barometer
set fs=Server.CreateObject("Scripting.FileSystemObject")
if (fs.FileExists(server.mappath(".") & "\barometer.txt"))=true then
set t=fs.OpenTextFile(server.mappath(".") & "\barometer.txt",1,false)
barometer = t.ReadAll
t.close
end if
%>
<html>
<body>
<%
barometer = trim(replace(barometer,VbCrLf,""))
if barometer = 1 then
billede = "Hvid.jpg"
elseif barometer = 2 then
billede = "Grøn.jpg"
elseif barometer = 3 then
billede = "Orange.jpg"
elseif barometer = 4 then
billede = "Rød.jpg"
else
barometer = ""
end if
%>
<img src="<%="" & billede & ""%>">
</body>
</html>

Sådan... nu virker det på min server i hvert fald...

\Dan

Synes godt om

hundevennen Nybegynder

23. februar 2006 - 10:25 #11

det gør den sørme også på min - alletiders og mange tak for hjælpen

Synes godt om

Slettet bruger

23. februar 2006 - 12:44 #12

HEHE! Det var så lidt...

- Her et svar...

\Dan

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	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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS

27/06

De kaldte sig ShinyHunters og IntelBroker: Nu er bagmænd bag berygtet hackerbazar fanget

27/06

Hundredevis af printer-modeller ramt af sårbarheder

27/06

Nørgaard: Vi bør alle kende og anerkende begrebet PUM - det fylder i vores hverdag

27/06

Landets største softwareselskab løfter salget med mere end 100 millioner kroner - til trods for færre medarbejdere

27/06

Slut med den berømte og berygtede Blue Screen of Death efter 40 år: Afløser er på plads

27/06

Thorborg har investeret for millioner i Visma - nu håber han at score kassen på en børsnotering

27/06

Fransk million-by dropper Microsoft Office: Er klar med nye open source-løsninger

27/06

Open source-eksperimentet #3: 90 procent af alle brugere (eller flere) kan sagtens leve med LibreOffice og Thunderbird – begynd gerne med cheferne

27/06

TDC hæver prisen med 3.000 procent for andre internetselskaber

27/06

Mennesker holdes som kvæg i dystopisk fremtid

27/06

Hackerne slog til under stor SAP-migrering: Tvang Bauhaus til at vælge én af disse tre løsninger for it-infrastrukturen

Vis flere artikler

IT-JOB

Softværket

Erfaren DevOps søges til agilt udviklingsteam hos Softværket

Region Midtjylland

Er du Region Midtjyllands nye problemløsende it-specialist med flair for koordinering?

KMD A/S

Senior Java Developer

Netcompany A/S

Test Consultant

Arctic Import A/S

Softwareudvikler med interesse for automatisering og procesforståelse

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

27/0623:48	Mærkelige Mapper i Stifinder? Af jonpet i PC
27/0608:16	Nulstille pc'er Af 1Dorte i Windows
26/0613:50	Brugt Mac bærbar Af costanza1974 i Mac
26/0608:55	Scanning af stregkode til flere celler Af zekedk i Excel
25/0616:21	Microsoft Office 2021 Professional Plus Af Mariann i Office & Kontorpakker