<html>
<title>movies</title>
<head>
<meta name="generator" content="stone's webwriter 3">
<style>
td {color: brown; font-family: verdana; font-size: 9pt}
</style>
</head>
<body bgcolor="#dbdde8" text="#000000" link="brown" vlink="#brown" alink="#brown">
<center>
<table border="0">
<form method="post" action="default.asp?action=search">
<tr>
<td style="border-left: 1 solid #021e38; border-right: 1 solid #021e38; border-bottom: 1 solid #021e38; padding-top: 3; padding-bottom: 3; border-top: 1 solid #021e38;" colspan="2">søg film</td>
</tr>
<tr>
<td style="border-left: 1 solid #021e38; border-right: 1 solid #021e38; border-bottom: 1 solid #021e38; padding-top: 3; padding-bottom: 3; border-top: 1 solid #021e38;">nummer(uden #):</td>
<td style="border-left: 1 solid #021e38; border-right: 1 solid #021e38; border-bottom: 1 solid #021e38; padding-top: 3; padding-bottom: 3; border-top: 1 solid #021e38;"><input type="text" name="id"></td>
</tr>
<tr>
<td style="border-left: 1 solid #021e38; border-right: 1 solid #021e38; border-bottom: 1 solid #021e38; padding-top: 3; padding-bottom: 3; border-top: 1 solid #021e38;">film navn:</td>
<td style="border-left: 1 solid #021e38; border-right: 1 solid #021e38; border-bottom: 1 solid #021e38; padding-top: 3; padding-bottom: 3; border-top: 1 solid #021e38;"><input type="text" name="film"></td>
</tr>
<tr>
<td style="border-left: 1 solid #021e38; border-right: 1 solid #021e38; border-bottom: 1 solid #021e38; padding-top: 3; padding-bottom: 3; border-top: 1 solid #021e38;">ejer:</td>
<td style="border-left: 1 solid #021e38; border-right: 1 solid #021e38; border-bottom: 1 solid #021e38; padding-top: 3; padding-bottom: 3; border-top: 1 solid #021e38;"><input type="text" name="ejer"></td>
</tr>
<tr>
<td style="border-left: 1 solid #021e38; border-right: 1 solid #021e38; border-bottom: 1 solid #021e38; padding-top: 3; padding-bottom: 3; border-top: 1 solid #021e38;"></td>
<td style="border-left: 1 solid #021e38; border-right: 1 solid #021e38; border-bottom: 1 solid #021e38; padding-top: 3; padding-bottom: 3; border-top: 1 solid #021e38;"><input type="submit" name="submit" value="søg film"></td>
</tr>
</table>
<%
set conn = server.createobject("adodb.connection")
dsn = "driver={microsoft access driver (*.mdb)}; "
dsn = dsn & "dbq=" & server.mappath("db.mdb")
conn.open dsn
%>
<%
dim strid, strfilm, strejer, strwhere, strsort, strfs
if request.querystring("action") = "search" then
strid = request.form("id")
strfilm = request.form("film")
strejer = request.form("ejer")
if strid = "" and not strfilm = "" and not strejer = "" then
strwhere = "where film like '%" & strfilm & "%' "
elseif strfilm = "" and not strid = "" and not strejer = "" then
strwhere = "where id = " & strid & " "
elseif strejer = "" and not strfilm = "" and not strid = "" then
strwhere = "where film like '%" & strfilm & "%' "
elseif strid = "" and strfilm = "" and not strejer = "" then
strwhere = "where ejer like '%" & strejer & "%' "
elseif strfilm = "" and strejer = "" and not strid = "" then
strwhere = "where id = " & strid & " "
elseif strejer = "" and strid = "" and not strfilm = "" then
strwhere = "where film like '%" & strfilm & "%' "
else
strwhere = ""
end if
end if
dim strresponseid, strresponsefilm, strresponseejer
if request.querystring("sort_by") = "ejer" then
strsort = "ejer"
strresponseejer = "?sort_by=ejer_desc"
strresponseid = "?sort_by=id"
strresponsefilm = "?sort_by=film"
elseif request.querystring("sort_by") = "ejer_desc" then
strsort = "ejer"
strfs = " desc"
strresponseejer = "?sort_by=ejer"
strresponseid = "?sort_by=id"
strresponsefilm = "?sort_by=film"
elseif request.querystring("sort_by") = "id" then
strsort = "id"
strresponseid = "?sort_by=id_desc"
strresponsefilm = "?sort_by=film"
strresponseejer = "?sort_by=ejer"
elseif request.querystring("sort_by") = "id_desc" then
strsort = "id"
strfs = " desc"
strresponseid = "?sort_by=id"
strresponsefilm = "?sort_by=film"
strresponseejer = "?sort_by=ejer"
elseif request.querystring("sort_by") = "film" then
strsort = "film"
strresponsefilm = "?sort_by=film_desc"
strresponseid = "?sort_by=id"
strresponseejer = "?sort_by=ejer"
elseif request.querystring("sort_by") = "film_desc" then
strsort = "film"
strfs = " desc"
strresponsefilm = "?sort_by=film"
strresponseid = "?sort_by=id"
strresponseejer = "?sort_by=ejer"
else
strsort = "film"
strfs = ""
strresponseid = "?sort_by=id"
strresponsefilm = "?sort_by=film"
strresponseejer = "?sort_by=ejer"
end if
strsql = "select * from filmtabel " & strwhere & "order by " & strsort & strfs
%>
<br><br><br>
<table border="0">
<tr>
<td align="center" colspan="3" style="border-left: 1 solid #021e38; border-right: 1 solid #021e38; border-bottom: 1 solid #021e38; padding-top: 3; padding-bottom: 3; border-top: 1 solid #021e38;">[<a href="editmovielist.asp">rediger film liste</a>] - [<a href="newmovie.asp">gem ny film</a>]</td>
</tr>
<tr>
<td style="border-left:1 solid #021e38;border-right:1 solid #021e38;border-bottom:1 solid #021e38;padding-top:3;padding-bottom:3;border-top:1 solid #021e38;background:#dbdde8;"><a href="<%=strresponseid%>">nummer</a></td>
<td style="border-left:1 solid #021e38;border-right:1 solid #021e38;border-bottom:1 solid #021e38;padding-top:3;padding-bottom:3;border-top:1 solid #021e38;background:#dbdde8;"><a href="<%=strresponsefilm%>">film</a></td>
<td style="border-left:1 solid #021e38;border-right:1 solid #021e38;border-bottom:1 solid #021e38;padding-top:3;padding-bottom:3;border-top:1 solid #021e38;background:#dbdde8;"><a href="<%=strresponseejer%>">ejer</a></td>
</tr>
<%
set rs = conn.execute(strsql)
dim i, vis
i = 1
vis = 0
do
dim strfarve
if i mod 2 = 0 then
strfarve = "dbdde8"
else
strfarve = "FFFFF9"
end if
%>
<tr>
<td style="border-left:1 solid #021e38;border-right:1 solid #021e38;border-bottom:1 solid #021e38;padding-top:3;padding-bottom:3;border-top:1 solid #021e38;background:#<%=strfarve%>;"># <%=rs("id")%></td>
<td style="border-left:1 solid #021e38;border-right:1 solid #021e38;border-bottom:1 solid #021e38;padding-top:3;padding-bottom:3;border-top:1 solid #021e38;background:#<%=strfarve%>;"><a href="movie.asp?id=<%=rs("id")%>"><%=rs("film")%></a></td>
<td style="border-left:1 solid #021e38;border-right:1 solid #021e38;border-bottom:1 solid #021e38;padding-top:3;padding-bottom:3;border-top:1 solid #021e38;background:#<%=strfarve%>;"><%=rs("ejer")%></td>
</tr>
<%
i = i + 1
vis = vis + 1
rs.movenext
loop while not rs.eof %>
<tr>
<%
dim s, strfarve2
s = i
s = s + 2
if s mod 2 = 0 then
strfarve2 = "dbdde8"
else
strfarve2 = "FFFFF9"
end if
%>
<TD COLSPAN="3" style="border-left:1 solid #021e38;border-right:1 solid #021e38;border-bottom:1 solid #021e38;padding-top:3;padding-bottom:3;border-top:1 solid #021e38;background:#<%=strfarve2%>;"><HR NOSHADE STYLE="color:#800000;"></td>
</tr>
<tr>
<%
s = s + 1
if s mod 2 = 0 then
strfarve2 = "dbdde8"
else
strfarve2 = "FFFFF9"
end if
%>
<td style="border-left:1 solid #021e38;border-right:1 solid #021e38;border-bottom:1 solid #021e38;padding-top:3;padding-bottom:3;border-top:1 solid #021e38;background:#<%=strfarve2%>;"># <></td>
<td style="border-left:1 solid #021e38;border-right:1 solid #021e38;border-bottom:1 solid #021e38;padding-top:3;padding-bottom:3;border-top:1 solid #021e38;background:#<%=strfarve2%>;">Antal film vist:</td>
<td style="border-left:1 solid #021e38;border-right:1 solid #021e38;border-bottom:1 solid #021e38;padding-top:3;padding-bottom:3;border-top:1 solid #021e38;background:#<%=strfarve2%>;"><%=vis%></td>
</tr>
</tr>
</table>
<br>
<br><br>
</center>
<%
conn.close
set conn = nothing
%>
</body>
</html>
