<%@LANGUAGE=VBSCRIPT%>
<html>
<head>
<title>
Prins Database Dräger Medical Netherlands
</title>
<link rel="shortcut icon" href="images/favicon.ico" type="image/x-icon" />
<LINK href="style.css" rel="stylesheet" type="text/css">
</head>
<!--connectie en objecten-->
<%session.lcid=1043%>
<%
Dim strConnection, conn, rs, strSQL
strConnection = "Driver=SQL Server;Server=mtnl12ictdb;" & _
"Database=prins;Uid=ict_odbc_user;Pwd=ict_odbc_user;"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open strConnection
Set rs = Server.CreateObject("ADODB.recordset")
strSQL = "SELECT DISTINCT Orderbedrag FROM dbo.Project_info ORDER BY Orderbedrag"
rs.open strSQL, conn, 3,3
bedrag=request.form("bedrag")
bedrag1=request.form("bedrag1")
datum1=request.form("datum1")
prnmmr=request.form("prnmmr")
vertw1=request.form("vertw")
bedrijf=request.form("bedrijf")
zoeken=request.form("zoeken")
%>
<body>
<div id="header">
<img src="images/logo.gif"></img>
<center><h2>Database Prins</h2></center>
</div>
<div id="menu">
<a href="index.html">Home</a>
<a href="asp.asp">Asp</a>
<a href="record.asp">Nieuw Record</a>
</div>
<div id="containerbody">
<div id="colOneDB">
<br>
<!-- Form -->
<form method="post">
Laat bedragen zien tussen <input type="text" name="bedrag"> en <input type="text" name="bedrag1">
<input type="submit" value="Laat bedragen zien.">
</form>
<form method="post">
Kies een jaartal
<select name="datum1">
<option value="*" selected="selected">-</option>
<option value="2000">2000</option>
<option value="2001">2001</option>
<option value="2002">2002</option>
<option value="2003">2003</option>
<option value="2004">2004</option>
<option value="2005">2005</option>
<option value="2006">2006</option>
<option value="2007">2007</option>
<option value="2008">2008</option>
<option value="2009">2009</option>
<option value="2010">2010</option>
</select>
<input type="submit" value="Laat jaartallen zien.">
</form>
<form method="post">
Laat project nummer <input type="text" name="prnmmr"> zien.
<input type="submit" value="Laat projectnummers zien.">
</form>
<form method="post">
<input type="submit" value="Zet vertegenwoordig op volgorde" name="vertw">
</form>
<form method="post">
Klant<input type="text"name="bedrijf">
<input type="submit" value="Laat klant zien">
</form>
<form method="post">
Zoeken<input type="text" name="zoeken">
<input type="submit" value="GO!">
</form>
</div>
<div id="footer">
Copyright © 2010-2011 Made by Kevin Kamer Draeger Medical Netherlands
</div>
<div id="colTwoDB">
<!--verwerking van bedragen-->
<%
if bedrag<>"" then
sql="SELECT projnr,Orderbedrag,vertw,datum,PLTXT FROM dbo.Project_info WHERE Orderbedrag BETWEEN'" & bedrag & "' AND'" & bedrag1 & "' ORDER BY Orderbedrag "
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn
%>
<table width="100%" cellspacing="0" cellpadding="2" border="1">
<tr>
<th>Project nummer</th>
<th>Orderbedrag</th>
<th>Vertegenwoordiger</th>
<th>Datum</th>
<th>Klant</th>
</tr>
<%
do until rs.EOF
response.write("<tr>")
response.write("<td>" & rs.fields("projnr") & "</td>")
response.write("<td>€" & rs.fields("orderbedrag") & "</td>")
response.write("<td>" & rs.fields("vertw") & "</td>")
response.write("<td>" & rs.fields("datum") & "</td>")
response.write("<td>" & rs.fields("PLTXT") & "</td>")
response.write("</tr>")
rs.MoveNext
loop
%>
</table>
<% end if %>
<!--verwerking jaartallen-->
<%
if datum1<>"" then
sql="SELECT projnr,Orderbedrag,vertw,datum,PLTXT FROM dbo.Project_info WHERE datum LIKE '%" & datum1 & "%' ORDER BY datum "
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn
%>
<table width="100%" cellspacing="0" cellpadding="2" border="1">
<tr>
<th>Project nummer</th>
<th>Orderbedrag</th>
<th>Vertegenwoordiger</th>
<th>Datum</th>
<th>Klant</th>
</tr>
<%
do until rs.EOF
response.write("<tr>")
response.write("<td>" & rs.fields("projnr") & "</td>")
response.write("<td>€" & rs.fields("orderbedrag") & "</td>")
response.write("<td>" & rs.fields("vertw") & "</td>")
response.write("<td>" & rs.fields("datum") & "</td>")
response.write("<td>" & rs.fields("PLTXT") & "</td>")
response.write("</tr>")
rs.MoveNext
loop
%>
</table>
<% end if %>
<!-- verwerking project nummers-->
<%
if prnmmr<>"" then
sql="SELECT projnr,Orderbedrag,vertw,datum,PLTXT FROM dbo.Project_info WHERE projnr LIKE '%" & prnmmr & "%' ORDER BY projnr "
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn
%>
<table width="100%" cellspacing="0" cellpadding="2" border="1">
<tr>
<th>Project nummer</th>
<th>Orderbedrag</th>
<th>Vertegenwoordiger</th>
<th>Datum</th>
<th>Klant</th>
</tr>
<%
do until rs.EOF
response.write("<tr>")
response.write("<td>" & rs.fields("projnr") & "</td>")
response.write("<td>€" & rs.fields("orderbedrag") & "</td>")
response.write("<td>" & rs.fields("vertw") & "</td>")
response.write("<td>" & rs.fields("datum") & "</td>")
response.write("<td>" & rs.fields("PLTXT") & "</td>")
response.write("</tr>")
rs.MoveNext
loop
%>
</table>
<% end if %>
<!--verwerking vertegenwoordiger-->
<%
if vertw1<>"" then
sql="SELECT projnr,Orderbedrag,vertw,datum,PLTXT FROM dbo.Project_info ORDER BY vertw DESC"
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn
%>
<table width="100%" cellspacing="0" cellpadding="2" border="1">
<tr>
<th>Project nummer</th>
<th>Orderbedrag</th>
<th>Vertegenwoordiger</th>
<th>Datum</th>
<th>Klant</th>
</tr>
<%
do until rs.EOF
response.write("<tr>")
response.write("<td>" & rs.fields("projnr") & "</td>")
response.write("<td>€" & rs.fields("orderbedrag") & "</td>")
response.write("<td>" & rs.fields("vertw") & "</td>")
response.write("<td>" & rs.fields("datum") & "</td>")
response.write("<td>" & rs.fields("PLTXT") & "</td>")
response.write("</tr>")
rs.MoveNext
loop
%>
</table>
<% end if%>
<!-- verwerking klanten-->
<%
if bedrijf<>"" then
sql="SELECT projnr,Orderbedrag,vertw,datum,PLTXT FROM dbo.Project_info WHERE PLTXT LIKE '%" & bedrijf & "%' ORDER BY PLTXT "
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn
%>
<table width="100%" cellspacing="0" cellpadding="2" border="1">
<tr>
<th>Project nummer</th>
<th>Orderbedrag</th>
<th>Vertegenwoordiger</th>
<th>Datum</th>
<th>Klant</th>
</tr>
<%
do until rs.EOF
response.write("<tr>")
response.write("<td>" & rs.fields("projnr") & "</td>")
response.write("<td>€" & rs.fields("orderbedrag") & "</td>")
response.write("<td>" & rs.fields("vertw") & "</td>")
response.write("<td>" & rs.fields("datum") & "</td>")
response.write("<td>" & rs.fields("PLTXT") & "</td>")
response.write("</tr>")
rs.MoveNext
loop
%>
</table>
<% end if %>
<!-- verwerking zoeken -->
<%
if zoeken<>"" then
sql="SELECT projnr,Orderbedrag,vertw,datum,PLTXT FROM dbo.Project_info WHERE projnr LIKE '%" & zoeken & "%' OR Orderbedrag LIKE '%" & zoeken & "%' OR vertw LIKE '%" & zoeken & "%' OR datum LIKE '%" & zoeken & "%' OR PLTXT LIKE '%" & zoeken & "%'"
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn
%>
<table width="100%" cellspacing="0" cellpadding="2" border="1">
<tr>
<th>Project nummer</th>
<th>Orderbedrag</th>
<th>Vertegenwoordiger</th>
<th>Datum</th>
<th>Klant</th>
</tr>
<%
do until rs.EOF
response.write("<tr>")
response.write("<td>" & rs.fields("projnr") & "</td>")
response.write("<td>€" & rs.fields("orderbedrag") & "</td>")
response.write("<td>" & rs.fields("vertw") & "</td>")
response.write("<td>" & rs.fields("datum") & "</td>")
response.write("<td>" & rs.fields("PLTXT") & "</td>")
response.write("</tr>")
rs.MoveNext
loop
%>
</table>
<% end if %>
</div>
</div>
</body>
</html>