Avatar billede lemche Nybegynder
21. marts 2005 - 09:56 Der er 2 kommentarer og
1 løsning

Hvad gør jeg galt (0x800A0400)

Hejsa

Jeg er lige begyndt at se på ASP og terper et lille hæfte igennem. Nu har jeg så fået en fejl som jeg ikke kan gennemskue.

Jeg får følgende fejl:

Error Type:
Microsoft VBScript compilation (0x800A0400)
Expected statement
/valutaregner/valutaregner_ex.asp, line 6
option explicit


Min kode som skal får data fra en htmlform ser sådan ud:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

<%

option explicit

dim beloeb, valutakurs, resultat, valuta

set valutakurs = server.CreateObject("scripting.dictionary")
valutakurs.add "DEM", 3.8151
valutakurs.add "USD", 5.6817
valutakurs.add "EUR", 7.4183
valutakurs.add "HUF", 0.4567
valutakurs.add "SEK", 0.6417
valutakurs.add "NOK", 0.9819

beloeb = request.Form("beloeb")
if not isnumeric(beloeb) then beloeb = 100 else
beloeb = cdbl(beloeb) end if

valuta = request.Form("valuta")

Select case request.Form("omregn")

case "tildkk"
  resultat = valuta & " " &  formatnumber(beloeb ,2)
  resultat = resultat & "svarer til DKK"
  resultat = resulat & formatnumber(beloeb * valutakurs(valuta),2)
 
case "fradkk"
  resultat = "DKK" & formatnumber(beloeb,2)
  resultat = resultat & "svarer til"& valuta &""
  resultat = resultat & formatnumber(beloeb/valutakurs(valuta),2)
 
end select

Set valutakurs = nothing
     
%>

<html>
<head>
<title>Valutaregner asp</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<H1>Resultat af beregningen</H1>
<p><%=resultat%></p>
</body>
</html>
Avatar billede medions Nybegynder
21. marts 2005 - 10:05 #1
option explicit Skal altid stå aller øverst i dokumentet...

//>Rune
Avatar billede lemche Nybegynder
21. marts 2005 - 10:39 #2
Jammen det virker jo, men så får jeg en ny fejl:

Error Type:
Microsoft VBScript compilation (0x800A0400)
Expected statement
/valutaregner/valutaregner_ex.asp, line 18, column 24
beloeb = cdbl("beloeb") end if
-----------------------^
Avatar billede lemche Nybegynder
21. marts 2005 - 10:47 #3
Nå den fejl fandt jeg selv.
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