Problema con SUB Tengo una página ASP con PWS instalado en un sistema Windows 98.
************************************************** **
El asunto es que realizo una consulta a una DB y para no hacer muy largo el código en mi página utilizo subrutinas, y luego, solo le paso los parametros necesarios.
El código es el siguiente:
*********************
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>.:: Borrar archivo ::.</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel=Stylesheet type="text/css" href="style.css" title="Estilo">
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#FF0000" vlink="#0000FF" alink="#00FF99">
<%
dim str_seleccion
Dim materia, direcctorio
' Declaro el objeto de Conexión a la base de datos
Set ConexionDB = Server.CreateObject("ADOdb.connection")
'Abro el objeto con el DRIVER específico
ConexionDB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath("db/files.mdb")
'Obtengo la selección del usuario y elimino la "/"
str_seleccion=replace(request.form("cmb_materia"), "/","")
Response.Write(str_seleccion)
select case str_seleccion
case amc:
MostrarForm "Arquitectura de Microcomputadoras",amc
case arh:
MostrarForm "AdministraciÓn de Recusos Humanos",arh
case atg:
MostrarForm "Anteproyecto de Trabajo de Grado",atg
case blg1:
MostrarForm "Biología I",blg1
case blg2:
MostrarForm "BiologÍ II",blg2
case bsg:
MostrarForm "Bioseguridad",bsg
case dch:
MostrarForm "Derecho",dch
case diag:
MostrarForm "Diagnóstico por Imágenes",diag
case emd1:
MostrarForm "Electrónica Médica I",emd1
case emd2:
MostrarForm "Electrónica Médica II",emd2
case emd3:
MostrarForm "Electrónica Médica III",emd3
case epy:
MostrarForm "Evaluación de Proyectos",epy
case eyf:
MostrarForm "Economía y Finanzas",eyf
case mcn:
MostrarForm "MecÁnica",mcn
case ohp:
MostrarForm "Organización Hospitalaria",ohp
case otc:
MostrarForm "Óptica",otc
case pty:
MostrarForm "Proyecto de trabajo de Grado",pty
case qtl:
MostrarForm "Química Clínica y Técnica de Laboratorio",qtl
case rlg:
MostrarForm "Reología",rlg
case sct2:
MostrarForm "Sistemas de Control II",sct2
case sdg1:
MostrarForm "Sistemas Digirales I",sdg1
case sdg2:
MostrarForm "Sistemas Digitales II",sdg2
case default:
Response.Write("Error")
end select
%>
<%
Sub MostrarForm(materia,direcctorio)
Response.Write(materia& ", "& direcctorio)%>
<form action="borrararchivo.asp" method="post" name="frm_borrar" id="frm_borrar">
<br>
<font face=Verdana, Arial size=2>materia</font><br><br>
<%if destino=diag then
Set rs = ConexionDB.Execute("Select * from tbl_archivos where Materia='dim/' Order By Fecha DESC")
else
Set rs = ConexionDB.Execute("Select * from tbl_archivos where Materia='" &direcctorio& "/' Order By Fecha DESC")
end if
if (rs.EOF) then
%>
<font face="Verdana" color="#cccccc"><br><br><br><center>No se ha encontrado ningun registro</center></font>
<% else %>
<table width="95%" border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="#000000">
<td width="4%"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></td>
<td width="33%"><strong><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Archivo</font></strong></td>
<td width="38%"><div align="center"><strong><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Descripción</font></strong></div></td>
<td width="25%"><div align="center"><strong><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Fecha</font></strong></div></td>
</tr>
<% do while not rs.EOF %>
<tr bgcolor="#FFFFCC">
<td><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
<input class="boton" name="chk_materia" type="checkbox" id="<%=(rs("NombreArchivo"))%>" value="chk_materia">
</font></td>
<td><%=(Rs("NombreArchivo"))%></td>
<td><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=(Rs("Descripcion"))%></font></td>
<td><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=(Rs("Fecha"))%></font></td>
</tr>
<%
rs.MoveNext
loop
%>
</table>
</form>
<%end if%>
</body>
</html>
<%End Sub 'MostrarForm %>
*********************fin***********************
La idea de esto es que me despliegue datos con check boxs, me mostrará un listado de archivos que tengo que "eliminar del servidor"
He probado con
MostrarForm(paramero1, parametro2) ---> como en Vbasic
pero me salta un error que dice que SUB "no admite paréntesis"
Utilicé un if para realizar la consulta ya que uno de los direcctorios tiene el nombre "DIM" , y como ésto es una palabra reservada...
Necesito ayuda con respecto a esto, ya que al parecer no entra en la Sub.
Desde ya muchas gracias!
