Tengo el siguiente codigo , es de un directorio con subdirectorio , el tema es que cuando quiero agregar subcategorias me dice que la subcategoria ya existe pero esta no existe , lo que pienso que debe ser que no esta pasando bien el id de la categoria a la subcategoria fijensen donde puse las /// ahi es donde queda el programa y me da esa leyenda el tema es que no se como arreglarlo para que pase bien la subcategoria
<%
if Session("Admin") = False or IsNull (Session("Admin")) = True then
Response.Redirect("login.asp")
end if
%>
<%
Dim Conn ' Open Database Connection
Dim RS ' Open Record Set
Dim SQL ' SQL statement
Dim DSN ' DSN Less Connection
DSN = "DBQ=" & Server.Mappath("category.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set RS = Server.CreateObject("ADODB.Recordset")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DSN
if Request.Form("Add") = "Add" Then
SQLValid = "SELECT subcatName from subcategory "
set RSValid=server.createobject("ADODB.Recordset")
RSValid.open SQLValid,Conn,3,1
if Request.Form("subcatName") = "" Then
Response.Redirect("error.asp?Error=Please enter the sub category name")
End if
if RSValid.recordcount > 0 Then
Response.Redirect("error.asp?Error=That Subcategory already existed") ////
End if
subcatName = Request.Form("subcatName")
catID = Request.Form("catID")
subcatDesc = Request.Form("subcatDesc")
SQLAdd = "INSERT INTO subcategory(catID,subcatName,subcatDesc)Values('"
SQLAdd = SQLAdd &catID&"','"&subcatName&"','"&subcatDesc&"')"
Conn.Execute(SQLAdd)
Response.Redirect("done.asp?Msg=Record has been added to database")
Else
SQL = "SELECT * FROM category order by catName"
RS.Open SQL, Conn
%>
la parte del formulario que envia es el siguiente :
category name :</div></td>
<td><input name="subcatName" type="text" id="subcatName">
</td>
</tr>
<tr>
<td width="150" class="bodyBold8">
<div align="right">Category
: </div></td>
<td><select name="subID" id="select" >
<%
do while not RS.eof
response.write "<option value=" & RS(0) & ">" & RS(1) & "</option>"
RS.movenext
loop
%>
</select></td>
</tr>
<tr>
<td width="150" valign="top" class="bodyBold8">
<div align="right">Subcat Description :
</div></td>
<td><textarea name="subcatDesc" rows="6" id="subcatDesc"></textarea></td>
</tr>
<tr>
<td width="150"> </td>
<td><input name="Add" type="submit" id="Add" value="Add">
<input type="reset" name="Submit3" value="Reset"></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
</table></td>
</tr>
</table>
</form></td>
</tr>