Hvad gør jeg galt (0x800A0400)
HejsaJeg 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>