Perdonen que insista se los ruego , pero es de vital importancia para mi resolver este tema que me tiene trabado hace 3 dias -
Lo que mecesito hacer a este codigo que les paso es agregarle la categoria para que cuando despliege la categoria me despliegue la subcategoria correspondiente para poder insertar un registro segun estos parametros , no se los pido de vago por que no lo quiero hacer sino por que ya he probado de todo y nada me dio resultado . Agradecere mucho me ayuden con este tema -
ESTA ES LA TABLA QUE UTILIZO
tengo estas tablas :
category
catID
catName
company
Listid
subcatid
companyname
* NOTA TAMBIEN PROBE PONIENDOLE UN CAMPO catID
subcategory
SubcatID
catID
subcatName
Y ACA ESTA EL CODIGO ......
<%
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("Submit")="ADD" then
'add record
sqlVerify="select companyName from company where companyName='" & request("name") & "'"
set rsVeri=server.createobject("adodb.recordset")
rsVeri.open sqlVerify,conn,3,1
if Request("name") = "" then
response.Write"<script language=JavaScript>alert('Blank Company Name');</script>"
response.write"<script language=javaScript>history.back()</script>"
else
if Request("address") = "" then
response.Write"<script language=javaScript>alert('Blank Address');</script>"
response.write"<script language=javascript>history.back()</script>"
else
if rsVeri.recordcount>0 then
response.write "<script language=javaScript>alert('Duplicate Record');</script>"
response.write "<script language=javascript>history.back()</script>"
else
compName=request("name")
compAdd=request("address")
compEmail=request("email")
compPhone=request("phone")
compFax=request("fax")
compUrl=request("url")
compServices=request("services")
keySearch = request("keyword")
imageUrl=request("image")
sqlAdd="insert into company(subcatID,companyName,CompanyAddress,compan yEmail"
sqlAdd=sqlADD & ",companyPhone,companyFax,companyUrl,companyServic e,keywordSearch,image)Values("
sqlAdd=sqlAdd & request("subID") & ",'" & compName & "','" & compAdd & "','" & compEmail & "','" & compPhone & "','"
sqlAdd=sqlAdd & compFax & "','" & compUrl & "','" & compServices & "','"& KeySearch & "','"& imageUrl & "')"
set rsAdd=server.createObject("adodb.recordset")
rsAdd.open sqlAdd,conn
set rsAdd=nothing
Response.Redirect("done.asp?Msg=Record has been added to our database")
end if 'end varify
end if
end if
end if
SQL="select subcatID,subcatName,catID from subcategory order by subcatName asc"
rs.open sql,conn
%>
<html>
<link href="style.css" rel="stylesheet" type="text/css">
<form name="AddNew" method="post" action="add.asp">
<table width="500" border="0" align="center" cellpadding="2" cellspacing="0">
<tr>
<td height="21" colspan="2"><div align="center" class="navlink10bl"></div></td>
</tr>
<tr>
<td class="bbullet7w"><div align="right"></div></td>
<td height="20" class="bbullet7w"><font color="#FF0000">Note
(*) are fequired fields</font></td>
</tr>
<tr>
<td width="150"> <div align="right" class="bodyBold8">*
Nombre del Negocio: </div></td>
<td><input type="text" name="name"> </td>
</tr>
<tr>
<td width="150"> <div align="right" class="bodyBold8">*Direccion:
</div></td>
<td><input name="address" type="text" size="30"></td>
</tr>
<tr>
<td width="150" valign="top"> <div align="right" class="bodyBold8">
*Servicio o Rubro: </div></td>
<td><textarea name="services" cols="30" rows="4" id="services"></textarea>
</td>
</tr>
<tr>
<td width="150"> <div align="right" class="bodyBold8">Email
: </div></td>
<td><input name="email" type="text" size="30"></td>
</tr>
<tr>
<td width="150"> <div align="right"><span class="bodyBold8">*
Telefono:</span> </div></td>
<td><input name="phone" type="text" size="30"></td>
</tr>
<tr>
<td width="150"> <div align="right" class="bodyBold8">
Horario de Arención</div></td>
<td><input name="fax" type="text" size="30"></td>
</tr>
<tr>
<td width="150"> <div align="right" class="bodyBold8">*Enlace:
</div></td>
<td><input name="url" type="text" size="30"></td>
</tr>
<tr>
<td><div align="right" class="bodyBold8">*Keyword:</div></td>
<td><input name="keyword" type="text" id="keyword" size="30"></td>
</tr>
<tr>
<td width="150"> <div align="right" class="bodyBold8">Imagen
path: </div></td>
<td><input name="image" type="text" id="image2" size="30"></td>
</tr>
<tr>
<td width="150"> <div align="right"><span class="bodyBold8">Sub
Category:</span> </div></td>
<td><select name="subcatID" 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"> </td>
<td class="navlink"> </td>
</tr>
<tr>
<td width="150"> </td>
<td><input type="submit" name="Submit" value="ADD"></td>
</tr>
</table>
</form>
</html>
