----------------------Below are all the codes don't have errors----
The only problem I have is when I Delete, I'ts not deleting the subject that I click.
I want to use the above codes to modify the code in "line 168"and in line"393"
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%Option Explicit%>
<%
Dim strCourseCode
Dim strSubjectCode
Dim strSubjectName
Dim objConn
Dim rsCheck
Dim sConnString
Dim strSQL
Dim Conn
Dim sConnection
Dim mysql
Dim strSQL2
Dim strDeleteRecord
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
</head>
<body>
<H3 align="center">Subject Specification per Course</H3>
<%strCourseCode = request.form("txtCourseCode")%>
<%
Session("CourseCode") = strCourseCode
'Response.Write(Session("CourseCode"))
'Session.Contents.Remove("CourseCode")
%>
<form name="form1" method="post" action="Management_SubjectCourse.asp?action=View">
</p>
<table width="137" border="0" align="center">
<tr>
<td width="62"> <span style="font-weight: bold">Course Code:</span></td>
<td width="65"><%
Set objConn = Server.CreateObject("ADODB.Connection")
Set rsCheck = Server.CreateObject("ADODB.Recordset")
sConnString = "Provider = Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("student.mdb") & ";" & _
"Persist Security Info = False"
objConn.Open(sConnString)
strSQL = "SELECT CourseCode FROM Course"
rsCheck.Open strSQL, objConn
%>
<select name="selectCourseCode">
<%If strCourseCode = "" then%>
<option value=""> </option>
<%else%>
<option value ="<%=request.form("txtCourseCode")%>" selected="selected"> <%response.write(request.form("txtCourseCode"))% ></option>
<!--
<option value ="" selected="selected"></option>
-->
<%Session.Contents.Remove("CourseCode")%>
<%end if%>
<%
do while not rscheck.EOF
%>
<option value="<%=rscheck("CourseCode")%>"><%=rscheck("Cou rseCode")%></option>
<%
rscheck.movenext
loop
%>
</select>
</td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit" value="View" /></td>
</tr>
</table>
</form>
<%'Response.Write Request.Cookies("Cookies")%>
<%'Response.Cookies("Cookies").expires = now%>
<!--<!--<!-- -->
<%IF Request.QueryString("action") = "View" then%>
<br />
<%
if strCourseCode = "" then
strCourseCode=Request.form("selectCourseCode")
else
strCourseCode = request.form("txtCourseCode")
end if
Response.Cookies("Cookies") = strCourseCode
Response.Cookies("CourseCode") = strCourseCode
%>
<table align="center">
<table border="0">
<tr>
<td><div align="center"><strong>Course Code:</strong></div></td>
<td><%Response.Write Request.Cookies("CourseCode")%></td>
</tr>
</table>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("student.mdb") & ";" & _
"Persist Security Info=True"
Conn.Open(sConnection)
mysql="SELECT * FROM SubjectCourse where CourseCode='" & strCourseCode & "'"
set rsCheck = Conn.Execute(mysql)
if strCourseCode = "" then
%>
<p>
<center>
<table width="200" border="0">
<tr>
<td> <span style="font-weight: bold">
</span></td>
</tr>
</table>
</p>
</center>
<%
Else
Response.write "<center> <table width=100% border=1><tr>"
%>
<% Response.write "<th width=15% align=center> " & "" & "</th>" %>
<% Response.write "<th width=15% align=center> " & "Subject Code:" & "</th>" %>
<%
Response.write "<th width=15% align=center>" & "Subject Name:" & "</th>"
While not rsCheck.EOF
Response.write "<tr>"
'
Response.write "<td>" & "<center> <a href = Management_SubjectCourse.asp?action=Delete> DELETE</a> </center>" & "</td>"
Response.cookies("DeleteCookies") = rsCheck(2).Value
%>
<!--<input name="txtDelete" type="hidden" value='<%'=rsCheck(0)%>'/> -->
<%
'
Response.write "<td>" & "<center>" & rsCheck(2).Value & "</center>" & "</td>"
Response.write "<td>" & "<center>" & rsCheck(3).Value & "</center>" & "</td>"
Response.write "</tr>"
rsCheck.Movenext
Wend
Response.write "</table>"
end if
%>
<!-- -->
<!-- -->
<!-- -->
<!-- -->
<!-- -->
<!-- -->
<!-- -->
<!-- -->
<form name="form1" method="post" action="Management_SubjectCourse.asp?action=Add">
</p>
<table width="233" border="0" align="center">
<tr>
<td width="110">Subject Code:</td>
<td width="70">
<%
Set objConn = Server.CreateObject("ADODB.Connection")
Set rsCheck = Server.CreateObject("ADODB.Recordset")
sConnString = "Provider = Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("student.mdb") & ";" & _
"Persist Security Info = False"
objConn.Open(sConnString)
strSQL = "SELECT * FROM Subject"
rsCheck.Open strSQL, objConn
%>
<select name="selectSubjectCode">
<!-- <option value=""></option> -->
<%
do while not rscheck.EOF
%>
<option value="<%=rscheck("Subject_Code")%>"><%=rscheck("S ubject_Code")%></option>
<%
rscheck.movenext
loop
%>
</select></td>
<%
Set objConn = Server.CreateObject("ADODB.Connection")
Set rsCheck = Server.CreateObject("ADODB.Recordset")
sConnString = "Provider = Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("student.mdb") & ";" & _
"Persist Security Info = False"
objConn.Open(sConnString)
strSQL2 = "SELECT * FROM Subject where '" & request.Form("selectSubjectCode") & "'"
rsCheck.Open strSQL2, objConn
%>
<input name="txtCourseCode" type="hidden" value='<%=Request.Cookies("CourseCode")%>'/>
<br />
<td width="39">
<input type="submit" name="Submit" value="Add" />
</td>
<tr>
</table>
</form>
<%End If%>
<!------------------- start of add button click-->
<%IF Request.QueryString("action") = "Add" then%>
<% strSubjectCode=Request.form("selectSubjectCode")
Set objConn = Server.CreateObject("ADODB.Connection")
Set rsCheck = Server.CreateObject("ADODB.Recordset")
sConnString = "Provider = Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("student.mdb") & ";" & _
"Persist Security Info = False"
objConn.Open(sConnString)
strSQL2 = "SELECT * FROM Subject where Subject_Code ='" & strSubjectCode & "'"
rsCheck.Open strSQL2, objConn
%>
<%
Session("SubjectCode") = strSubjectCode
Response.Write(Session("SubjectCode"))
%>
<br>
<%
strSubjectName=rsCheck("Subject_Name")
Session("SubjectName") = strSubjectName
Response.Write(Session("SubjectName"))
%>
<input name="txtSubjectName" type="hidden" value='<%=RsCheck("Subject_Name")%>'/>
<%
%>
<br />
<%
' if strCourseCode = "" then
strCourseCode = request.form("txtCourseCode")
'
' response.Write("null CC")
' end if
%>
<%if strSubjectCode="" then%>
<p>
<center>
<table width="200" border="0">
<tr>
<td> <span style="font-weight: bold"> Subject Code is Blank</span></td>
</tr>
</table>
</p>
</center>
<%elseif strCourseCode="" then%>
<p>
<center>
<table width="200" border="0">
<tr>
<td> <span style="font-weight: bold"> strCourseCode is Null</span></td>
</tr>
</table>
</p>
</center>
<%
else
Set objConn = Server.CreateObject("ADODB.Connection")
Set rsCheck = Server.CreateObject("ADODB.Recordset")
sConnString = "Provider = Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("student.mdb") & ";" & _
"Persist Security Info = False"
objConn.Open(sConnString)
strSQL = "SELECT * FROM SubjectCourse where CourseCode = '" & strCourseCode & "' AND Subject_Code = '" & strSubjectCode & "'"
rsCheck.Open strSQL, objConn,1,3
if not rsCheck.RecordCount=0 then
%>
<p>
<center>
<table width="200" border="0">
<tr>
<td> <span style="font-weight: bold">Subject Code and Course Code Already Exist!</span></td>
</tr>
</table>
</p>
</center>
<%else
rsCheck.addnew
rsCheck.fields("CourseCode")= strCourseCode
rsCheck.fields("Subject_Code")= strSubjectCode
rsCheck.fields("Subject_Name")= strSubjectName
rsCheck.Update
rsCheck.close
%>
<p>
<center>
<table width="200" border="0">
<tr>
<td> <span style="font-weight: bold">Add Successful!</span></td>
</tr>
</table>
</p>
</center>
<%
%>
<!-- --><%end if%>
<%end if%>
<%End If%>
<%IF Request.QueryString("action") = "Delete" then%>
<%
strDeleteRecord = request.Cookies("DeleteCookies")
Response.Cookies("DeleteCookies").expires = now
if strDeleteRecord = "" then%>
<p>
<center>
<table width="200" border="0">
<tr>
<td> <span style="font-weight: bold">Please Select a Course</span></td>
</tr>
</table>
</p>
</center>
<%else
Set objConn = Server.CreateObject("ADODB.Connection")
Set rsCheck = Server.CreateObject("ADODB.Recordset")
sConnString = "Provider = Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("student.mdb") & ";" & _
"Persist Security Info = False"
objConn.Open(sConnString)
mysql = "Delete * from SubjectCourse WHERE Subject_Code='" & strDeleteRecord & "'"
set rsCheck=objConn.Execute(mysql)
%>
<p>
<center>
<table width="200" border="0">
<tr>
<td> <span style="font-weight: bold">Delete Successful!</span></td>
</tr>
</table>
</p>
</center>
<%End If%>
<%End If%>
</body>
</html>