<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>
<%
mode = String(Request.QueryString("mode"));
site = Request.ServerVariables("SCRIPT_NAME");
conn = Server.CreateObject("ADODB.Connection");
DBPath = "DBQ=" + Server.mappath("384067.mdb");
conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; " + DBPath);
if(mode == "add"){
film = String(Request.Form("film"));
film = film.split(", ");
for(i=0;i<film.length;i++){
SQLstr = "SELECT * FROM movies WHERE filmID = "+film[i];
rs = conn.Execute(SQLstr);
conn.Execute("INSERT INTO favo (filmID,film,bruger) VALUES("+rs.Fields("filmID")+",'"+rs.Fields("film")+"','"+Request.Form("bruger")+"')");
rs.MoveNext();
}
Response.Redirect(site);
}
else if(mode == "delete"){
film = String(Request.Form("favorit"));
film = film.split(", ");
for(i=0;i<film.length;i++){
conn.Execute("DELETE FROM favo WHERE keyID = "+film[i]);
}
Response.Redirect(site);
}
else{
}
rsM = Server.CreateObject("ADODB.Recordset");
SQLstrM = "SELECT * FROM movies ORDER BY film";
rsM.Open(SQLstrM, conn, 3);
allM = rsM.RecordCount;
rsF = Server.CreateObject("ADODB.Recordset");
SQLstrF = "SELECT keyID, filmID, film, bruger FROM favo ORDER BY bruger, film";
rsF.Open(SQLstrF, conn, 3);
allF = rsF.RecordCount;
%>
<html>
<head>
<title>Når man så trykker på</title>
<script language="JavaScript" type="text/javascript">
<!--
function formSubmit(mode){
if(mode=="add"&&(document.filmform.bruger.value==""||document.filmform.film.value=="")){
alert("Udfyld Bruger & Vælg Film.")
return false;
}
document.forms[0].action += mode;
document.forms[0].submit();
}
//-->
</script>
</head>
<body>
<form name="filmform" method="post" action="<%=site%>?mode=">
<div align="center">
<table style="width: 750px; spacing: 0px; padding: 2px;">
<tr>
<td style="width: 25%;"> </td>
<td style="width: 50%;"><div align="center"> Bruger:
<input name="bruger" type="text" id="bruger" maxlength="50">
</div></td>
<td style="width: 25%;"> </td>
</tr>
<tr>
<td>Alle Film(<%=allM%>):<br> <select name="film" size="<%=allM%>" multiple style="width: 150px;">
<%
while(!rsM.EOF){
Response.Write("<option value=\""+rsM.Fields("filmID")+"\">"+rsM.Fields("film")+"</option>");
rsM.MoveNext();
}
%>
</select>
<br>
</td>
<td><div align="center"><br>
<input type="button" name="add" value="Tilføj >>" onClick="formSubmit('add');">
<br>
<br>
<input type="button" name="remove" value="<< Fjern" onClick="formSubmit('delete');">
</div></td>
<td>Favorit Film:<br> <select name="favorit" size="<%=allF%>" multiple style="width: 150px;">
<%
while(!rsF.EOF){
Response.Write("<option value=\""+rsF.Fields("keyID")+"\">"+rsF.Fields("film")+"("+rsF.Fields("bruger")+")</option>");
rsF.MoveNext();
}
%>
</select></td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
</div>
</form>
<div align="center"><br>
<table style="width: 750px; spacing: 0px; padding: 0px; border-collapse: collapse;">
<tr>
<td style="border: 2px solid black; width: 5%;">FilmID</td>
<td style="border: 2px solid black; width: 60%;">FavoritFilm(<%=allF%>)</td>
<td style="border: 2px solid black; width: 35%;">Bruger</td>
</tr>
<%
rsF.MoveFirst();
while(!rsF.EOF){
%>
<tr>
<td style="border-bottom: 1px solid black;"><%=rsF.Fields("filmID")%></td>
<td style="border-bottom: 1px solid black;"><%=rsF.Fields("film")%></td>
<td style="border-bottom: 1px solid black;"><%=rsF.Fields("bruger")%></td>
</tr>
<%
rsF.MoveNext();
}
%>
</table>
</div>
</body>
</html>
