ab <%
response.write replace(formatnumber(objRS("prgPREIS") * 1.19),".","")
%> €
" alt="<%= objRS("PName") %>" style="padding:5px 10px 30px 0;">
<%
if request("PRG") = "windata as a service" AND request("P") = "Paket2" Then
vValue = "4"
else
vValue = "1"
end if
%>
<%if session("PPProgram") = "windata as a service" then %>
Benutzer für
<% end if %>
<%= objRS("PName") %><% if session("PRG") = "windata professional 9" then response.write " SQL" end if %>
<%= objRS("Information") %>
<% if vProgram = "windata professional 9" AND objRS("Version") = "Einzelplatz" then%>(en)<%end if%>
<% '########################################## - Module CHECKED -###############################################
'####################### PRODUKTPAKET MODULE AKTIVIEREN #####################################################
if vProgram = "windata professional 9" then
Set objModul = server.createobject("adodb.recordset")
objModul.Open "SELECT * FROM Artikel WHERE Kategorie = 'Modul' AND Version = '" & vVersion & "' AND " & vPaket & " = true ORDER BY ID", objConn, 3,3
Do While Not objModul.EOF
'########################################## - Module CHECKED -#################################################
%>
">
_darkgrey_32.png" alt="<%= objModul("PName")%> Icon" style="margin-top:10px; opacity:0.4;">
check
<%= objModul("PName")%>
|
<% '########################################## - Module CHECKED -###############################################
objModul.MoveNext
Loop
objModul.close
Set objModul = NOTHING
'###### RECHNUNGSBETRAG BERECHNEN ##################
vrechnungsPREIS = vrechnungsPREIS + vsvPREIS
'###### RECHNUNGSBETRAG BERECHNEN ENDE #############
end if
'########################################## - Module CHECKED -#################################################
%>
<%
if request("PRG") = ("windata as a service") then
response.write "
"
else
if session("Wartung") <> true Then
response.write "
"
else
response.write "
"
end if
end if
%>
<%
'########################################## - Module AVAILABLE -###############################################
Set objModul = server.createobject("adodb.recordset")
objModul.Open "SELECT * FROM Artikel WHERE Kategorie = 'Modul' AND Version = '" & vVersion & "' AND " & vPaket & " = false ORDER BY ID", objConn, 3,3
dim vM, Zaehler, varName
Zaehler = 1
'########################################## - Module AVAILABLE -#################################################
%>
<% if vProgram = "windata professional 9" OR vProgram = "windata as a service" then %>
<% if request("PRG") <> "windata as a service" then %>
Zu den gewählten Modulen bieten wir Ihnen auf Wunsch folgende Funktionserweiterung(en) an
<% end if %>
<% if request("PRG") <> "windata as a service" then %>
<% end if %>
<% end if %>
<%if session("Wartung") = True then %>
<%
'#### EINZELPLATZ PAKET 3 - INKL. INSTALL #########################################################################################################################
'##################################################################################################################################################################
if request("V") = "Einzelplatz" AND request("P") = "Paket3" then
'########################################## - Dienstleistung AVAILABLE -###############################################
Set objModul = server.createobject("adodb.recordset")
objModul.Open "SELECT * FROM Artikel WHERE Kategorie = 'Dienstleistung' ORDER BY ID", objConn, 3,3
'########################################## - Dienstleistung AVAILABLE -#################################################
%>
-
<% '########################################## - Dienstleistung AVAILABLE -###############################################
objModul.close
Set objModul = NOTHING
'########################################## - Dienstleistung AVAILABLE -#################################################
'#### TERMINAL ALLE PAKET - INKL. INSTALL #########################################################################################################################
'##################################################################################################################################################################
elseif request("V") = "Netzwerk" OR request("V") = "Terminal" then
'########################################## - Dienstleistung AVAILABLE -###############################################
Set objModul = server.createobject("adodb.recordset")
objModul.Open "SELECT * FROM Artikel WHERE Kategorie = 'Dienstleistung' ORDER BY ID", objConn, 3,3
'########################################## - Dienstleistung AVAILABLE -#################################################
%>
-
<% '########################################## - Dienstleistung AVAILABLE -###############################################
objModul.close
Set objModul = NOTHING
'########################################## - Dienstleistung AVAILABLE -#################################################
elseif request("PRG") = "windata as a service" then
'########################################## - Dienstleistung AVAILABLE -###############################################
Set objModul = server.createobject("adodb.recordset")
objModul.Open "SELECT * FROM Artikel WHERE Kategorie = 'Dienstleistung' ORDER BY ID", objConn, 3,3
'########################################## - Dienstleistung AVAILABLE -#################################################
%>
-
<% '########################################## - Dienstleistung AVAILABLE -###############################################
objModul.close
Set objModul = NOTHING
'########################################## - Dienstleistung AVAILABLE -#################################################
else
'########################################## - Dienstleistung AVAILABLE -###############################################
Set objModul = server.createobject("adodb.recordset")
objModul.Open "SELECT * FROM Artikel WHERE Kategorie = 'Dienstleistung' ORDER BY ID", objConn, 3,3
'########################################## - Dienstleistung AVAILABLE -#################################################
%>
-
<% '########################################## - Dienstleistung AVAILABLE -###############################################
objModul.close
Set objModul = NOTHING
'########################################## - Dienstleistung AVAILABLE -#################################################
end if
%>
<% else %>
<% end if %>
<% if session("Wartung") = True then %>
<% end if %>
<%
session("Version") = request("V")
if session("Wartung") <> True then %>
<% if vProgram = "Installationsbegleitung, Einrichtung und Schulung" then %>
Preis pro Stunde
<% elseif session("Version") = "Portal" then %>
monatliche Kosten
<% elseif request("PRG") = "windata ebics permission pro" then %>
jährliche Kosten
<% else %>
einmalige Kosten
<% end if %>
<% elseif vProgram = "windata as a service" then %>
monatliche Kosten
<% else %>
einmalige Kosten
<% end if %>
<% if session("Wartung") = True then %>
<%= formatnumber(veinmaligerPreis) %>
<% else %>
<%= formatnumber(veinmaligerPreis * 1.19) %>
<% end if %>
€
<% if session("Wartung") = True then %>
<% if request("PRG") = "XBZ-Datei Upload" then %>
jährliche Kosten <%= formatnumber(veinmaligerPreis * 1.19) %>€
<% elseif request("PRG") = "windata as a service" then %>
einmalige Einrichtung <%= formatnumber(vsvPREIS * 1.19) %>€
<% elseif request("PRG") <> "VEU-Portal" then %>
jährlicher Servicevertrag <%= formatnumber(vsvPREIS * 1.19) %>€
<% end if %>
<% end if %>
Rechnungsbetrag* <%= formatnumber(vrechnungsPREIS * 1.19) %>€
enthält <%= formatnumber(vMwST) %> EUR ges. Mehrwertsteuer (19%)