Databases, HTML and ASP help please?

  • Thread starter Thread starter Andrew D
  • Start date Start date
A

Andrew D

Guest
Im working on a project for college and am having a bit of trouble with my .asp files. I want to add in an 3 options so people can select the room they want, the day and the time. Ill put the code in below and if anyone can help please do.

<html>
<head>
<title>Available Times</title>
</head>
<body bgcolor="white" text="black">
<p>Select the Facility, Day and Time you are interested in and press ‘Submit’. The page will display if the requested Facility is available at that time</p>
<form action="Specific Time.asp" method="post">
Facility:
<br />
<form>
<input type="radio" name="Facility" value="MainHall" /> Main Hall
<br />
<input type="radio" name="Facility" value="MeetingRoom" /> Meeting Room
<br />
<input type="radio" name="Facility" value="MineralBar" /> Mineral Bar
<br />
<input type="radio" name="Facility" value="ScoutHall" /> Scout Hall
<br />
<input type="radio" name="Facility" value="SmallHall" /> Small Hall
<br />
<br />
Day:
<br />
<input type="radio" name="Day1" value="Monday" /> Monday
<br />
<input type="radio" name="Day1" value="Tuesday" /> Tuesday
<br />
<input type="radio" name="Day1" value="Wednesday" /> Wednesday
<br />
<input type="radio" name="Day1" value="Thursday" /> Thursday
<br />
<input type="radio" name="Day1" value="Friday" /> Friday
<br />
<br />
Time:
<br />
<select name="Time1" >
<option>17.00</option>
<option>18.00</option>
<option>19.00</option>
<option>20.00</option>
<option>21.00</option>
<option>22.00</option>
</select>
<br />
<input type="submit" value="Submit" />
</form>

<%
Dim adoCon
Dim rs
Dim strSQL
Dim Facility
Dim Day1
Dim Time1
Facility = Request.Form("Facility")
Day1 = Request.Form("Day1")
Time1 = Request.Form("Time1")
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Community Centre.mdb")

Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT Day, Time FROM '"&Facility&"' WHERE available=yes AND Time='"&Time1&"' And Day='"&Day1&"';"
rs.Open strSQL, adoCon
if rs.EOF then Response.Write ("This Facility is Unavailable at the requested time slot.") end if
Do While not rs.EOF
Response.Write ("<br>")
Response.Write (rs("Day"))
Response.Write ("*")
Response.Write (rs("Time"))
Response.Write ("<br>")
rs.MoveNext
Loop

rs.Close
Set rs = Nothing
Set adoCon = Nothing
%>
</body>
</html>
 
Back
Top