Can anyone help me sort this out. the error points to the last line of this part of the code
Set Myconn = Server.CreateObject("ADODB.Connection")
MdbFilepath = Server.MapPath("surgery.mdb")
MyConn.Open "Driver={Microsoft Access Driver (*.mdb) };DBQ= "&
MdbFilePath & ";"
I am searching a matching surname. There is syntax error and i cant find where it i.
<BASEFONT FACE="tahoma" color="green">
<html>
<title>
Online Appointment Booking and reminder system
</title>
<head>
<body bgcolor="blue"> <link rel="stylesheet" type="text/css" href="style.css"
<center> <h1>Appointment Booking System</h1> </CENTER> </head>
<%
'declaring and using values from the form patientlist.asp
dim Lname
dim status
Lname = Request.form("L_name")
status = Request.form("radio1")
'connect to the database
Set Myconn = Server.CreateObject("ADODB.Connection")
MdbFilepath = Server.MapPath("surgery.mdb")
MyConn.Open "Driver={Microsoft Access Driver (*.mdb) };DBQ= "&
MdbFilePath & ";"
' Open a recordset
set rs = server.CreateObject ("ADODB.Recordset")
rs.Open "SELECT patients.Title, patients.Firs_Name, patients.Last_Name, patients.LoginID FROM patients WHERE(((patients.Last_Name)='"+Lname+"'));",
Myconn,
1
' Testing condition to check the kind of operation that is taking place
' Check that the value taken from the radio exist
' If there is no value generate error message
if status = "" then ' looks to check if value has been chosen
response.write("<h2> Please Choose an option from the radio list, Click <A HREF='patientlist.asp'> Here </A> to go back <h2>")
else 'looks to see if an option has been selected then check is carried out to make sure that the name is in the database
if Lname = "" then
response.write("<h2> Please enter a patient name in the search field </h2>")
else
'if the name is 0 then the last name doesnt exist within the database then error is generated
if rs.recordcount = 0 then
%><H2> There are no patient with <%response.write(Lname)%> for their Last Name: <br> <br> Please Click
<A HREF=patientlist> Here </A> To try another Last Name:</h2><%
RS.close
Myconn.close
set RS=nothing
set Myconn=nothing
else
if status = "Book" then
%> The patient with the last name,
<%=response.write(Lname)%> are:<br><br><%
WHILE NOT rs.EOF
'loop through the patients that match and display each one.
%>
<%rs("Title")&" "%><%=rs("Firs_Name")&" "%><A HREF="surgery_clander.asp"?id=<%=rs("LoginID")%>&e mp=
<%=Request.form("empdid")%>"><%=rs("Las_Name")%> </A><%=" "&rs("DOB")&" "%><br>
<%
rs.MoveNext
WEND 'end loop
RS.close
Myconn.close
set RS=nothing
set Myconn=nothing
end if
if status = "Cancel" then
%> The patient with the last name,
<%=response.write(Lname)%> are:<br><br><%
WHILE NOT rs.EOF
'loop through the patients that match and display each one.
%>
<%rs("Title")&" "%><%=rs("Firs_Name")&" "%><A HREF="surgery_clander.asp"?id=<%=rs("LoginID")%>&e mp=
<%=Request.form("empdid")%>"><%=rs("Las_Name")%> </A><%=" "&rs("DOB")&" "%><br>
<%
rs.MoveNext
WEND 'end loop
RS.close
Myconn.close
set RS=nothing
set Myconn=nothing
end if
if status = "Update" then
%> The patient with the last name,
<%=response.write(Lname)%> are:<br><br><%
WHILE NOT rs.EOF
'loop through the patients that match and display each one.
%>
<%rs("Title")&" "%><%=rs("Firs_Name")&" "%><A HREF="surgeryclander.asp"?id=<%=rs("LoginID")%>&em p=
<%=Request.form("empdid")%>"><%=rs("Las_Name")%> </A><%=" "&rs("DOB")&" "%><br>
<%
rs.MoveNext
WEND 'end loop
RS.close
Myconn.close
set RS=nothing
set Myconn=nothing
end if
end if
end if
end if
%>
</body>
syntax error
