Hvid side
Hey..Jeg har lavet en kode men når jeg trykker på en form knap kommer der bare en hvid side.
Jeg kan simpelthen ikke forstå hvorfor..
Min kode ser sådan ud:
<html>
<head>
<title>Hæv penge</title>
</head>
<body>
<a href="../Index.asp"><b>Forside</b></a> -> <a href="../Logind/">Log ind</a> <%if session("Admin") = "Ja" then%>-> <a href="Indsæt.asp?Side=Vis">Indsæt penge i banken</a> -> <a href="Hæv.asp?Side=Vis">Hæv penge i banken</a> -> <a href="../Logind/Logud.asp">Log af</a><%end If%>
<hr>
<%
if request.querystring("Side") = "Vis" then
%>
<form method="post" action="Hæv.asp?Side=Haev">
Hvor mange penge vil du hæve?:<br>
<input type="text" name="Beløb" size="20">
<br>
<br>
<input type="submit" value="Hæv dine penge!" class="button">
</form>
<%
End If
%>
<%
if request.querystring("Side") = "Haev" then
%>
<%
'Tjek om der er skrevet noget i feltet
iFejl = 0
strFejl = "<b><font color='red'>"
if trim(request.form("Beløb")) = "" then
iFejl = 1
strFejl = strFejl & "Du skal skrive beløb du vil hæve!<br>"
end if
strFejl = strFejl & "</font></b>"
if iFejl = 0 then
'Tjek slut..
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../Database.mdb")
'Tjek om brugeren har så mange penge i banken
strSQL = "select * from Bank WHERE Ejer = '" & Session("Brugernavn") & "'"
set rs = Conn.execute(strSQL)
Konto = int(rs("Penge"))
Felt = int(Request.form("Beløb"))
If Konto < Felt then Response.Redirect("Hæv.asp?Side=Fejl&Hvad=Ikkeibanken")
Else
'Tjekket er slut. - Begynd at give penge
strSQL = "select * from Brugere WHERE Brugernavn = '" & Session("Brugernavn") & "'"
set rs = Conn.execute(strSQL)
Penge = int(rs("Penge")) + int(Request.form("Beløb"))
strSQL = "Update Brugere SET"
strSQL = strSQL & " Penge = '" & Penge & "'"
strSQL = strSQL & " WHERE Brugernavn = '" & Session("Brugernavn") & "'"
Conn.Execute(strSQL)
'Pengene er givet - Gå igang med at slette fra kontoen
strSQL = "select * from Bank WHERE Ejer = '" & Session("Brugernavn") & "'"
set rs = Conn.execute(strSQL)
NytBelob = int(rs("Penge")) - int(Request.form("Beløb"))
strSQL = "Update Bank SET"
strSQL = strSQL & " Penge = '" & NytBelob & "'"
strSQL = strSQL & " WHERE Ejer = '" & Session("Brugernavn") & "'"
Conn.Execute(strSQL)
'Sletning slut - Fortæl at det er gennemført ELLER fortæl at der er fejl.
Response.Write "Så fik du dine penge.."
'Luk databasen..
Set conn = Nothing
Set rs = Nothing
'Lukning slut - Start med End if´er
End if
'Slut med end if´er... - Koden er slut..
%>
<%
End if
%>
<%
if request.querystring("Side") = "Fejl" AND request.querystring("Hvad") = "Ikkeibanken" then
%>
Så mange penge har du ikke i banken.<br>
<a href="java script:history.back();">Gå tilbage</a>
<%
End if
%>
</body>
</html>
Hjæælp :)
