I can't see what's wrong with this.. error message in quote tags and line highlighted.
Response.write:
Response.write:
Code:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<head>
<title>Welcome to the Kennels Database System</title>
<link href="external.css" rel="stylesheet" type="text/css" />
</head>
<body>
<center>
<!-- MAIN TABLE -->
<table border=0 class="tableborder">
<tr>
<td colspan=2 class="bannerborder">
<% Response.Write FormatDateTime(Date, vbShortDate)
struser=session("user")
%>
<img src="images/logo.jpg" alt="banner" class="bannerimage">
</td>
</tr>
<tr>
<td valign="top" width=20% class="cellborder">
<p class="leftlinks">
<div id="curves">
<%
intlevel=session("level")
If intlevel=1 OR intlevel=2 then %>
Welcome, <%=struser%><br>
<% end if %>
<br>
<b class="top">
<b class="b1"></b>
<b class="b2"></b>
<b class="b3"></b>
<b class="b4"></b>
</b>
<dl id="links">
<dd>
<a href="start.asp">Main Page</a>
</dd>
<dd>
<a href="animals.asp">Animals</a>
</dd>
<dd>
<a href="customers.asp">Customers</a>
</dd>
<dd>
<a href="staff.asp">Staff</a>
</dd>
<dd>
<a href="vets.asp">Vets</a>
</dd>
<dd>
<a href="help.asp">Help</a>
</dd>
<dd>
<a href="default.asp">Logout</a>
</dd>
</dl>
<b class="bottom">
<b class="b4"></b>
<b class="b3"></b>
<b class="b2"></b>
<b class="b1"></b>
</b>
</div>
</p>
</td>
</p>
</td>
<td valign="top" class="padded-table">
<div class="content">
<!-- LOGIN CHECK -->
<%
intlevel=Session("level")
If intlevel=1 OR intlevel=2 then
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = -1 %>
<!-- CONTENT OF TABLE-START -->
<s2>Add an Employee</s2><br>
<br><br>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("kennels.mdb"))
' Receiving values from Form
strUsername=request.form("username")
strPassword=request.form("password")
intLevel=request.form("level")
set rs = Server.CreateObject("ADODB.recordset")
rs.Open "SELECT * FROM tblstaffusers", conn
sql = "insert into tblStaffUsers (username, password, level) values ('" & strUsername & "','" & strPassword & "',"&intLevel&")"
'Checks for blank values
If strUsername="" OR strPassword="" OR intLevel="" then
%> You did not fill in all the fields.<br>
<br>
<a href="addnewstaff2.asp">Go to the Add Employee screen</a>, <a href="addnewuser.asp">Add User screen</a> or <a href="staff.asp">Return to the Staff section</a>.<%
else
'Check to see if the username has been taken
Do Until rs.eof
If rs("username")=strUsername THEN
usernametaken=1
end if
rs.movenext
Loop
If usernametaken=1 then
%> The username <s4>"<%=strUsername%>"</s4> has been taken, you need to choose another.<br>
<br>
<br>
<a href="addnewstaff2.asp">Go to the Add Employee screen</a>, <a href="addnewuser.asp">Add User screen</a> or <a href="staff.asp">Return to the Staff section</a>.
<%
else
response.write sql
'conn.execute sql
%> Employee successfully added! <a href="staff.asp">Return to the Staff section.</a><br>
<br>
<%
end if
end if
rs.close
conn.Close
Set conn = Nothing
%>
<!-- CONTENT OF TABLE-END -->
<% else %>
You are not logged in. Click <a href="default.asp">here</a> to return to the login page.
<% end if %>
</div>
</td>
</tr>
</table>
</body>
</html>
Last edited:
