Det kunne jeg heller ikke få til at virke.
Her er koden:
<%@Language=VBScript %>
<%Option Explicit %>
<% Session.LCID = 1030 %>
<%
dim Conn
dim DSN
dim strFra
dim strTil
dim sql
dim rs
dim sql_2
dim rs_2
dim strDep
dim sql_1
dim rs_1
dim sql_5
dim rs_5
dim strPakke
dim sql_3
dim rs_3
dim strS
dim sql_4
dim rs_4
dim strSumDep
dim strIalt
dim strP
dim strBank
%>
<html>
<head>
<link rel="stylesheet" type="text/css" href="stylesheet.css">
</head>
<body>
<center>
<br>
<h1>Opret regnskab</h1>
<%
if request.form("datofra") = "" or request.form("datotil") = "" then
%>
<h3>Trin 1 af 2</h3>
<br>
<h2>Tryk tilbage</h2>
<h4>Ikke alle felter er udfyldt</h4>
<input type="button" value="Tilbage" onClick="history.go(-1)">
<%
else
%>
<h3>Trin 2 af 2</h3>
<br>
<h4>
<form action='regnskabgem.asp' method = 'post'>
<%
'databaseforbindelsen
set Conn = Server.CreateObject("ADODB.Connection")
DSN = "Driver={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("ellebo.mdb")
'åbner databaseforbindelsen
Conn.Open DSN
'variabler der indeholder de indtastede datoer
strFra = request.form("datofra")
strTil = request.form("datotil")
'henter alle de fakturaer der er imellem de to datoer
sql = "select * from faktura where year(fakturadato) between year('" & strFra & "') and year('" & strTil & "') and month(fakturadato) >= month(' " & strFra & "') and month(fakturadato) <= month( '" & strTIl & "' ) "
set rs = Conn.Execute(sql)
'hvis der findes bilag skrives de
if not rs.eof then
response.write"<table>"
response.write"<tr>"
response.write"<td>"
response.write"Bilagsnr"
response.write"</td>"
response.write"<td>"
response.write"Depositumsbeløb"
response.write"</td>"
response.write"<td>"
response.write"Lokaleleje:"
response.write"</td>"
response.write"<td>"
response.write"Køkkenpakke"
response.write"</td>"
response.write"<td>"
response.write"Erstattet service"
response.write"</td>"
response.write"<td>"
response.write"Salg af opvaskemønter"
response.write"</td>"
response.write"<td>"
response.write"Depositum retur"
response.write"</td>"
response.write"<td>"
response.write"Indbetalt til bank"
response.write"</td>"
response.write"</tr>"
do
strSumDep = strSumDep + 500
response.write"<tr>"
response.write"<td>"
response.write rs("bnr")
response.write"</td>"
response.write"<td>"
response.write ("500")
response.write"</td>"
response.write"<td>"
response.write rs("lejebeløb")
response.write"</td>"
response.write"<td>"
if rs("køkkenpakke") = "ja" then
response.write("50")
else
response.write("0")
end if
response.write"</td>"
response.write"<td>"
response.write rs("e_service")
response.write"</td>"
response.write"<td>"
response.write rs("polet")
response.write"</td>"
response.write"<td>"
response.write ("500")
response.write"</td>"
response.write"<td>"
response.write ("0")
response.write"</td>"
response.write"</tr>"
rs.MoveNext
loop while not rs.eof
response.write"<tr>"
response.write"<u>"
response.write"<td>"
response.write"</td>"
'henter antallet af fakturaer inden for de to datoer
sql_2 = "select count(fnr) as antal from faktura where year(fakturadato) between year('" & strFra & "') and year('" & strTil & "') and month(fakturadato) >= month(' " & strFra & "') and month(fakturadato) <= month( '" & strTIl & "' ) "
set rs_2 = Conn.Execute(sql_2)
strDep = rs_2("antal") * 500
response.write"<td>"
response.write(strDep)
response.write"</td>"
'henter summen af lejebeløbet på de givne fakturaer
sql_1 = "select sum(lejebeløb) AS ialt FROM faktura where year(fakturadato) between year('" & strFra & "') and year('" & strTil & "') and month(fakturadato) >= month(' " & strFra & "') and month(fakturadato) <= month( '" & strTIl & "' ) "
set rs_1 = Conn.Execute( sql_1 )
response.write"<td>"
response.write rs_1("ialt")
strIalt = rs_1("ialt")
response.write"</td>"
'henter antallet af valgte køkkenpakken indenfor de valgte datoer
sql_5 = "select count(fnr) as pakke from faktura where køkkenpakke = 'ja' and year(fakturadato) between year('" & strFra & "') and year('" & strTil & "') and month(fakturadato) >= month(' " & strFra & "') and month(fakturadato) <= month( '" & strTIl & "' ) "
set rs_5 = Conn.Execute(sql_5)
strPakke = rs_5("pakke") * 50
response.write"<td>"
response.write(strPakke)
response.write"</td>"
'henter summen af erstattet sevice indne for de givne datoer
sql_3 = "select sum(e_service) AS sumSer FROM faktura where year(fakturadato) between year('" & strFra & "') and year('" & strTil & "') and month(fakturadato) >= month(' " & strFra & "') and month(fakturadato) <= month( '" & strTIl & "' ) "
set rs_3 = Conn.Execute( sql_3 )
response.write"<td>"
response.write rs_3("sumSer")
response.write"</td>"
'variabel der indeholder summen af erstatter service
strS = rs_3("sumSer")
'henter summen af poletter indefor de valgte datoer
sql_4 = "select sum(polet) AS sumPol FROM faktura where year(fakturadato) between year('" & strFra & "') and year('" & strTil & "') and month(fakturadato) >= month(' " & strFra & "') and month(fakturadato) <= month( '" & strTIl & "' ) "
set rs_4 = Conn.Execute( sql_4 )
response.write"<td>"
response.write rs_4("sumPol")
response.write"</td>"
strP = rs_4("sumPol")
response.write"<td>"
response.write (strDep)
response.write"</td>"
'variabel der indeholder summen af summen af lejebeløb, erstattet service og poletter
strBank = rs_1("ialt")+ strPakke + rs_3("sumSer") + rs_4("sumPol")
response.write"<td>"
response.write (strBank)
response.write"</td>"
response.write"</u>"
response.write"</tr>"
response.write"</table>"
response.write"<input type='hidden' name='dep' value='" & strDep & "'>"
response.write"<input type='hidden' name='leje' value='" & strIalt & "' >"
response.write"<input type='hidden' name='pakke' value='" & strPakke & "'>"
response.write"<input type='hidden' name='service' value='" & strS & "'>"
response.write"<input type='hidden' name='polet' value='" & strP & "'>"
response.write"<input type='hidden' name='bank' value='" & strBank & "'>"
response.write"<input type='hidden' name='fra' value='" & strFra & "'>"
response.write"<input type='hidden' name='til' value='" & strTil & "'>"
%>
<input type='submit' value='Gem'>
<input type='button' value='Tilbage' onClick='history.go(-1)'>
</form>
<%
else
response.write("Der er ingen bilag i den angivne periode")
response.write"<br>"
response.write"<br>"
response.write"<input type='button' value='Tilbage' onClick='history.go(-1)'>"
end if
%>
</h4>
<%
end if
%>
</center>
</body>
</html>
Slettet bruger
Ny bruger
Nybegynder
Opret
Preview
