HELP with radio buttons PLEASE!!!!!!

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

HELP with radio buttons PLEASE!!!!!!

Logged in as: Guest

arrSession:exec spGetSession 2,3,41278

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> ASP >> HELP with radio buttons PLEASE!!!!!!
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

HELP with radio buttons PLEASE!!!!!! - 12/20/2006 4:47:11 AM

jlavilla

Posts: 1
Score: 0
Joined: 12/20/2006
Status: offline

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???