He adecuedo el codigo de lexus y la pagina queda en blanco, no muestra errores y nada de eso, sera que hice mal la adecuacion, aqui anexo la adecuacion del codigo de Lexus a mi estructura sera que le puse algo mal ????
<%@ LANGUAGE="VBScript" %>
<%
Option Explicit
'Buffer the response, so Response.Expires can be used
Response.Buffer = TRUE
%>
<?xml version="1.0"?>
<!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">
<!--
Filename: viewsubdef.asp
Date: $Date: 2005/08/19 17:00:50 $
Version: $Revision: 1.00 $
Purpose: This is the administrative Task.
-->
<!-- #include file = "../public.asp" -->
<%
Dim cnnDB, sid
Set cnnDB = CreateCon
sid = GetSid
%>
<head>
<title>
<%=lang(cnnDB, "HelpDesk")%> - <%=lang(cnnDB, "Manage")%> <%=lang(cnnDB, "subdef")%>
</title>
<link rel="stylesheet" type="text/css" href="../default.css">
<script language = "JavaScript">
<%
'CONSULTA PARA OBTENER LOS DATOS
Dim rstsubcate
Set rstsubcate = SQLQuery(cnnDB, "SELECT DISTINCT scategory_id, subcat_id, sname FROM sub_task")
x=0
%>
// FUNCION DE COMBO BOX COMBINADO
function sublist(inform, selecteditem)
{
inform.subcatagory.length = 0
<%
count = 0
y = 0
Do While Not rstsubcate.EOF
%>
x = <%= trim(y) %>;
subcat = new Array();
subcatagorys = "<%=(rstsubcate("subcat_id"))&" "&(rstsubcate("sname")) %>";
subcatagoryof = "<%=(rstsubcate("scategory_id"))%>";
subcatagoryid = "<%=(rstsubcate("subcat_id"))%>";
subcat[x,0] = subcatagorys;
subcat[x,1] = subcatagoryof;
subcat[x,2] = subcatagoryid;
If (subcat[x,1] == selecteditem)
{
var option<%=trim(count)%> = new Option(subcat[x,0], subcat[x,2]);
inform.subcatagory.options[inform.subcatagory.length]=option<%= trim(count)%>;
}
<%
count = count + 1
y = y + 1
rstsubcate.movenext
Loop
rstsubcate.close
%>
}
</script>
</head>
<body>
<%
' Check for perms to view this page
Call CheckAdmin
%>
<div align="center">
<table class="Normal">
<tr class="Head1">
<td colspan="4">
<%=lang(cnnDB, "subdef")%> </td>
</tr>
<tr class="Head2">
<td>
<div align="center">
<%=lang(cnnDB, "categories")%>
</div>
</td>
<td>
<div align="center">
<%=lang(cnnDB, "subcat")%>
</div>
</td>
</tr>
<FORM NAME="Listas" METHOD="POST" ACTION="viewtask.asp">
<tr class="Body1"> <!-- LISTAS DEPENDIENTES DE CATEGORIAS Y SUBCATEGORIAS -->
<td align="center">
<SELECT size="1" id="categ" name="categ" onChange = "javascript
:sublist(this.form, categ.value);">
<OPTION SELECTED>Seleccione una <%=lang(cnnDB, "cat")%></OPTION>
<% Dim rstcate
Set rstcate = SQLQuery(cnnDB, "SELECT DISTINCT category_id, cname FROM categories")
Do While Not rstcate.EOF
%>
<OPTION VALUE="<%=rstcate("category_id")%>"><%=rstcate("cn ame")%></OPTION>
<%
rstcate.Movenext
Loop
rstcate.Close
%>
</SELECT>
</td>
<td>
<SELECT id="subcatagory" name="subcatagory" size="1">
<OPTION SELECTED value="none"></OPTION>
</SELECT>
</td>
</tr>
</FORM>
</table>
</body>