Jeg er ved at lave en søgemaskine i Access og ASP til en online videokæde
som studieprojekt.
Søgningen fungerer fint med i det tilfælde hvor brugeren har valgt film og
trykker på reservationsknappen skal siden skifte til et opsummerende vindue
hvor brugeren skal indtaste login og password hvor der skal bekræftiges af
brugeren og en e-mail skal sendes automatisk til virksomheden. Hvorfor
virker denne del ikke.
Her er hele programmet. Hjælp søges hurtigt.
<% Option Explicit %>
%>
<%'-- Doc type: Not really that important... %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<%' Content type: Not really that important either... %>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=ISO-8859-1">
<title>Søgemaskine</title>
<%' Use stylesheets - Makes life so much easier when you want to change the
colour of ALL your text %>
<style type="text/css">
<!--
body, td, p
{
font-family: Verdana, Arial, Helvetica, Sans-Serif;
font-size: 12px;
font-weight: Normal;
color: #333333;
SCROLLBAR-FACE-COLOR: #003366;
SCROLLBAR-HIGHLIGHT-COLOR: #CCCCCC;
SCROLLBAR-SHADOW-COLOR: #CCCCCC;
SCROLLBAR-3DLIGHT-COLOR: #000000;
SCROLLBAR-ARROW-COLOR: #CCCCCC;
SCROLLBAR-TRACK-COLOR: #CCCCCC;
SCROLLBAR-DARKSHADOW-COLOR: #000000;
}
.header2
{
font-family: Verdana, Arial, Helvetica, Sans-Serif;
font-size: 14px;
font-weight: Bold;
color: #333333;
}
.error
{
font-family: Verdana, Arial, Helvetica, Sans-Serif;
font-size: 12px;
font-weight: Bold;
color: #FF0000;
}
input, select, textarea
{
font-family: Verdana, Arial, Helvetica, Sans-Serif;
font-size: 11px;
font-weight: Normal;
background-color:#FFFFFF;
}
.button
{
width: 80px;
font-family: Verdana, Arial, Helvetica, Sans-Serif;
font-size: 11px;
font-weight: Normal;
background-color:#FFFFFF;
}
-->
</style>
</HEAD>
<BODY>
<form id="formSearch" method="post" action="film-rh.asp">
<input type="hidden" name="xmode" value="search">
<table cellspacing="0" cellpadding="0" border="0">
<tr>
<td>Søgeord:</td>
<td><input type="text" name="film" size="20"
value="<%=Request.Form("film")%>"></td>
</tr>
<tr>
<td> </td>
<%' A button! - well lets use class="button" to get the style we
specified in <style> %>
<td><input class="button" type="submit" name="submit" value="Søg"></td>
</tr>
</table>
<%
'*** Test if we are in reserve mode ***
If Request.Form("xmode") = "reserve" Then
Dim Item
'*** Pull out reserved movies ***
For Each Item In Request.Form
If Left(Item,3) = "chk" Then
Response.Write "<p>Du har nu reserveret film nummer " &
Request.Form(Item) & ".</p>"
End If
Next
ElseIf Request.Form("film") <> "" then
Dim intHits
'*** If we have some input, search for it - no more than 100 hits though
***
intHits = DoMovieSearch(Request.Form("film"), 100)
End if
If intHits > 0 Then %>
<BR>
<table cellspacing="0" cellpadding="0" border="0">
<tr>
<td> </td>
<td>
<input class="button" type="button" name="btnReserver" value="Reserver"
onClick="javascript:onReserve()">
</td>
</tr>
</table>
<script type="text/javascript">
function onReserve()
{
document.formSearch.xmode.value = 'reserve';
document.formSearch.submit();
}
</script>
<BR>
<BR>
<p>Antal hits: <%=intHits%></p>
<% End If %>
<%' Make sure the form tag is ended AFTER your last <input> tag %>
</form>
</BODY>
</HTML>
<%
'/**This function returns
'* the number of hits.
'* strKeywords is the what to search the DB for, intMaxHits is the maximum
'* number of hits you want printed.
'**/
Function DoMovieSearch(strKeywords, intMaxHits)
'*** Always remember to Dim your variables ***
Dim DB, DBSti, SQL, rs, Genre, skuespillere, Pris, Antal, Status
DoMovieSearch = 0
Set DB = Server.CreateObject("ADODB.Connection")
DBSti = "DBQ=" & Server.Mappath("film.mdb")
DB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBSti
SQL = "select * from film where Genre like '%" & strKeywords & "%' or
Titel like '%" & strKeywords & "%' or Skuespillere like '%" & strKeywords &
"%'"
Set rs = DB.Execute(SQL)
If not rs.eof then
Response.Write "<table cellspacing=""0"" cellpadding=""0"" border=""0"">"
& vbCrLf & "<tr>" & vbCrLf & _
"<td class=""header2"">Vælg</td>" & vbCrLf & _
"<td class=""header2"">Titel</td><td class=""header2""
width=30> </td>" & vbCrLf & _
"<td class=""header2"">Genre</td><td class=""header2""
width=30> </td>" & vbCrLf & _
"<td class=""header2"">Skuespillere</td><td class=""header2""
width=30> </td>" & vbCrLf & _
"<td class=""header2"">Pris i dkr.</td><td class=""header2""
width=30> </td>" & vbCrLf & _
"<td class=""header2"">Antal</td><td class=""header2""
width=30> </td>" & vbCrLf & _
"<td class=""header2"">Ledige</td><td class=""header2""
width=30> </td>" & vbCrLf & _
"</tr>" & vbCrLf
Do until rs.eof
'*** Only print if have not yet reached our limit ***
If DoMovieSearch < intMaxHits Then
'*** If the movies have an unique ID use that for the checkbox name ***
Genre = rs("Genre")
Skuespillere = rs("Skuespillere")
Pris = rs("Pris")
Antal = rs("Antal")
Status = rs("Status")
Response.Write "<tr>" & vbCrLf & _
"<td><input type=""checkbox"" value=""val"" name=""chk" &
DoMovieSearch & """></td>" & vbCrLf & _
"<td>" & rs("Titel") & "</td><td width=30> </td>" & vbCrLf
& _
"<td>" & Genre & "</td><td width=30> </td>" & vbCrLf & _
"<td>" & Skuespillere & "</td><td width=30> </td>" &
vbCrLf & _
"<td>" & Pris & "</td><td width=30> </td>" & vbCrLf & _
"<td>" & Antal & "</td><td width=30> </td>" & vbCrLf & _
"<td>" & Status & "</td><td width=30> </td>" & vbCrLf & _
"</tr>" & vbCrLf
End If
'*** Inc the number of hits in the return variable ***
DoMovieSearch = DoMovieSearch + 1
rs.movenext
Loop
Response.Write "</table>" & vbCrLf
Else
Response.Write "<p class=""error"">Der var ingen film, der matchede din
søgekriterier!</p>"
End If