addproduct.asp
<!-- #include file ="../include/funciones.asp" -->
<%
'Dim fs, a, strRespuesta
Dim strNombreUsuario, strUsuarios
Dim Conn
'ABRE CONEXION
Set rstcat = Server.CreateObject("ADODB.Recordset")
Set rstsubcat = Server.CreateObject("ADODB.Recordset")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open CONNECTIONSTRING
'VERIFICA EXISTENCIA DE SESION
Call ValidarSesion(TODOS)
strNombreUsuario = Session("NOMBRE")
respuesta=request.querystring("res")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body >
<form name="form1" method="post" action="hhhhh.asp">
<table border="0" cellpadding="1" cellspacing="1" class="text_tetrapak">
<tr>
<td colspan="2"> <div align="center"></div></td></tr>
<tr>
<td colspan="2"><hr align="center" width="100%" size="1" color="707e67"></td></tr>
<tr>
<td width="98"><strong>Descripción:</strong></td>
<td width="261"><div align="left"><input name="descripcion" type="text" class="InputBoxText" id="descripcion" size="75" maxlength="250"></div></td>
</tr>
<tr>
<td><strong>Category:</strong></td>
<td>
<select name="cboCC" id="cboCC" class="InputBoxText" onChange="Cambia()">
<%
strSQL = "SELECT idcategory,description FROM Category order by description"
Set rstcat = Conn.Execute(strSQL)
do while not rstcat.eof
response.write "<option value= ""&rstcat.Fields(0)&"" SELECTED >"&rstcat.Fields(1)&"</option>"
rstcat.MoveNext
Loop%>
</select>
</td>
</tr>
<tr>
<td><strong>SubCategory:</strong></td>
<td>
<select class="InputBoxText" name="cboSistema" id="cboSistema">
<%
strSQL = "SELECT idsubcategory,description FROM SUBCATEGORY "
Set rstsubcat = Conn.Execute(strSQL)
do while not rstsubcat.eof
response.write "<option value=""&rstsubcat.Fields(0)&"" selected>"&rstsubcat.Fields(1)&"</option>"
rstsubcat.MoveNext
Loop%>
</select>
</td></tr>
<tr>
<td><strong>Definition:</strong></td>
<td>
<textarea name="definition" cols="45" rows="3"></textarea></td>
</tr>
<tr>
<td colspan="2"><hr width="100%" size="1" color="707e67"></td>
</tr>
<tr>
<td colspan="2"><div align="center">
<input name="id" type="hidden" id="id" value="!ID!">
<input name="enviar" type="button" class="boton_enviar" id="enviar" value="enviar" onclick="if (validar_forma()) {form1.submit();}">
</div></td>
</tr>
</table>
</body>
</html>
<script LANGUAGE="javascript">
<!--
function Cambia()
{
LbCambio=true;
sToEval = "LlenaCC();";
document.body.style.cursor = "wait";
top.location.replace("paginasubcat.asp?txtCC=" + form1.cboCC.options(form1.cboCC.selectedIndex).tex t); return true;
}
//Llena el combo de Sistemas
function LlenaCC(sData)
{
var sData = new String(top.frames["BorraFrame"].Data.innerText)
LlenaCombo(frmRepGastosInt.cboSistema,true,sData);
document.body.style.cursor = "default";
return;
}
//Llena el combo enviado por paámetro
function LlenaCombo(oSelect, bEmptyFirst, sData)
{
var oElem, sElem, sText, sValue
if (bEmptyFirst)
{
while (oSelect.options.length > 0)
{
oSelect.options.remove(0);
}
}
while (sData != "")
{
sElem = sData.substring(0,((sData.indexOf("|",0) != -1) ? sData.indexOf("|",0) : sData.length ));
sValue = sElem.substring(0,sData.indexOf(";",0));
sText = sElem.substring(sData.indexOf(";",0)+1,sElem.lengt h);
sData = (sData.indexOf("|",0) == -1) ? "" : sData.substring(sData.indexOf("|",0)+1,sData.lengt h);
oElem = document.createElement("OPTION");
oElem.text = sText;
oElem.value= sValue;
oSelect.add(oElem);
}
return;
}
//-->
</script>
paginasubcat.asp
<!-- #include file ="../include/funciones.asp" -->
<%
'Recordsets
Dim rstsubcat
Dim lsSql,lsCC
lsCC=trim(Request.QueryString("txtCC"))
response.write lsCC
response.end
'Crea objetos de Base de Datos
'Set cmd = Server.CreateObject("ADODB.Command")
Set rstsubcat = Server.CreateObject("ADODB.Recordset")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open CONNECTIONSTRING
'Establece tipo de comando
'cmd.CommandType=1
'Set cmd.ActiveConnection = Conn
strSQL = "SELECT idsubcategory,description FROM SUBCATEGORY where idcategory="&lsCC&""
'Ejecuta instrucción
rstsubcat.open lsSql, Conn
do while not rstsubcat.EOF
lnContador=lnContador + 1
LrsSistemas.MoveNext
loop
%>
<HTML>
<HEAD>
</HEAD>
<BODY>
<DIV ID="Data"><%
if lnContador >0 then
rstsubcat.MoveFirst
Do While Not rstsubcat.EOF
Response.Write rstsubcat.Fields("idsubcategory").Value & ";" & rstsubcat.Fields("idsubcategory").Value & " - " & rstsubcat.Fields("description").Value
LrsSistemas.MoveNext
If Not rstsubcat.EOF Then Response.Write "|"
Loop
rstsubcat.Close
Set rstsubcat= Nothing
else
Response.Write "Vacio"
end if
%></DIV>
<SCRIPT LANGUAGE=javascript>
<!--
top.LlenaCC()
//top.frames["Working"].<%=LsToEval%>();
//-->
</SCRIPT>
</BODY>
</HTML>
ayudenme
estoy pasando el campo description y quiero pasar el idcategory hago como
la linia del jscript q esta en rojo es donde paso los parametros