First the code,..
<%@ Language=VBScript @%>
<%
Option Explicit
' Response.Buffer=1
Response.Expires = -1
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "Cache-Control", "no-cache, must-revalidate"
Dim strPathSinImprimirGer
Dim strPathSinImprimirZon
Dim strPathImpresas
Dim strSinImprimirGer
Dim strSinImprimirZon
Dim strImpresas
Dim resultado
strPathImpresas="Q:\Rec\Cir\Impreso"
strPathSinImprimirGer="Q:\Rec\Cir\Ger"
strPathSinImprimirZon="Q:\Rec\Cir\Zon"
strImpresas=CargaCirculares(strPathImpresas)
strSinImprimirGer=CargaCirculares (strPathSinImprimirGer)
strSinImprimirZon=CargaCirculares (strPathSinImprimirZon)
Function CargaCirculares(strPath)
Dim FSObject
Dim FSOFolder
Dim FSOFile
Dim FSOItem
Dim strCirculares
Set FSObject=Server.CreateObject("Scripting.FileSystemObject")
Set FSOFolder=FSObject.GetFolder(strPath)
Set FSOFile=FSOFolder.Files
strCirculares=""
For Each FSOItem In FSOFile
strCirculares = strCirculares & Left(FSOItem.name,len(FSOItem.name)- 4) & ";"
Next
CargaCirculares = left(strCirculares,len(strCirculares)-1)
Set FSObject = Nothing
Set FSOFolder = Nothing
Set FSOFile = Nothing
End Function
%>
<html>
<head>
<META name=VI60_defaultClientScript content=VBScript>
<title>BNA - Circulares</title>
<link rel="stylesheet" href="DLWEB.css">
</head>
<body>
<P style="FONT-WEIGHT: bold; COLOR: darkblue; LINE-HEIGHT: 0; FONT-FAMILY: serif; LETTER-SPACING: 0px">
<IMG alt="" src="images\logoBNA.gif" align=left> Banco de la Nacion Argentina
</P>
<P style="FONT-WEIGHT: bold; COLOR: darkblue; LINE-HEIGHT: 0; FONT-STYLE: italic; FONT-FAMILY: serif; LETTER-SPACING: 0px">
"Consulta e Impresion de Circulares"
</P>
<FONT style="COLOR: black; FONT-STYLE: normal; FONT-FAMILY: sans-serif" color=#00008b>
<P style="FONT-WEIGHT: bold; COLOR: darkblue; LINE-HEIGHT: 0; FONT-STYLE: italic; FONT-FAMILY: serif; LETTER-SPACING: 0px">
<FONT face=Arial>
</FONT>
</P>
<HR>
<P style="FONT-WEIGHT: bold; COLOR: #467ab4; LINE-HEIGHT: 0; FONT-STYLE: italic; FONT-FAMILY: serif; LETTER-SPACING: 0px" align=center>
<INPUT type=radio id=radSeleccion1 name=radSeleccion1>
Impresas
<INPUT type=radio id=radSeleccion2 name=radSeleccion2 > Sin Imprimir </P>
<HR id=HR1>
<FONT face=Arial>
<P style="FONT-WEIGHT: bold; COLOR: #467ab4; LINE-HEIGHT: 0; FONT-STYLE: italic; FONT-FAMILY: serif; LETTER-SPACING: 0px">
<form id=form1 name=form1>
<P> </P>
<P> </P>
<TABLE cellSpacing=1 cellPadding=1 width="50%" bgColor=paleturquoise border=1 style="WIDTH: 50%" align=center>
<TBODY>
<TR>
<TD>
<P style="FONT-WEIGHT: bold; FONT-SIZE: smaller; COLOR: royalblue" align=center>Circular</P>
</TD>
<TD style="FONT-WEIGHT: bold; FONT-SIZE: smaller">
<P style="COLOR: royalblue" align=center> Ver</P>
</TD>
</TR>
<%
Dim S,X
s=split(Resp,";")
For Each X In S
%>
<TR>
<TD>
<INPUT type=checkbox id=checkbox name=checkbox1> <%=X%> <FONT face=Tahoma color=mediumblue size=2><STRONG></A> </STRONG></FONT>
</TD>
<TD>
<P align=center><INPUT style="FONT-SIZE: xx-small; WIDTH: 28px; HEIGHT: 18px" type=button size=9 value=Ver id=button1 name=button1 >
</FONT>
</FONT></P></TD></TR>
<%
Next
%>
</TBODY></TABLE></FONT></FONT></FORM>
</body>
</html>
I´m from argentina and i need to excuse my poor english....
What i need is when i select one of the radio buttons the value of the variable Resp ( s=split(Resp,";")) is asigned with the content of one of the next vars declared on top
strImpresas=CargaCirculares(strPathImpresas)
strSinImprimirGer=CargaCirculares (strPathSinImprimirGer)
strSinImprimirZon=CargaCirculares (strPathSinImprimirZon)
cna anyone help me plz???