|
Home > Archive > IIS ASP > July 2005 > Menu List
You are viewing an archived Text-only version of the thread.
To view this thread in it's original format and/or if you want to reply to
this thread please [click here]
|
|
| Lina Manjarres 2005-07-20, 5:57 pm |
| Hello,
I have a form page in ASP where the first menu/list function as a filter of
the second menu list. Once I select an item form the first combo I get the
second menu full of options. This is correct. My probem is that the first
combo gets the default value again and I do not see what I did choose.
I do not know if I explained this correctly. Hope someone can understand me.
Thanks a lot, Lina
| |
| Ray Costanzo [MVP] 2005-07-20, 5:57 pm |
| Show the code you're using to populate the first drop down and the code
you're using to retrieve that value.
Ray at work
"Lina Manjarres" <LinaManjarres@discussions.microsoft.com> wrote in message
news:99F75FD7-A982-4B75-B617-AC79CB03354D@microsoft.com...
> Hello,
>
> I have a form page in ASP where the first menu/list function as a filter
of
> the second menu list. Once I select an item form the first combo I get the
> second menu full of options. This is correct. My probem is that the first
> combo gets the default value again and I do not see what I did choose.
>
> I do not know if I explained this correctly. Hope someone can understand
me.
>
> Thanks a lot, Lina
| |
| Lina Manjarres 2005-07-20, 5:57 pm |
| This is the function code tu fill the combos, wher vector is a variable Pais
filled with a recorset.
Function ComboRS(vector)
'Pinto el combo
for i= 0 to UBound(vector, 2)
Response.Write "<option value='"& vector(0,i) &" - "& vector(1,i)&"'>"&
vector(0,i) &" - "& vector(1,i) & vbCrLf
next
End Function
%>
Here is the call to the recordset and the way I fill the variable Pais:
strPais = "select IdPais, NmPais from Paises order by NmPais"
Call OpenRS(rsPais,strPais,ConnAxs)
Pais = rsPais.GetRows
Call CloseRS(rsPais)
If request.form("CboPais") = "" Then
CadenaPais = "57"
Else
Izquierda = instr(1,request.form("CboPais"),"-")
CadenaPAis = Trim(Left(request.form("CboPais"),Izquierda - 1))
End If
Here is how I work out the first combo:
'<select name="cboPais" size="1" tabindex="10" onChange="submit();">
'<option selected>-- Seleccione un PaÃ_s --
'<%Call ComboRS(Pais)%>
This is the code for the recorset of the other combo:
strCentral = "select IdProyecto, NmProyecto from Proyectos Where IdPais
='"& CadenaPais &"' AND Tecnologia = '"& TipoPlanta &"' order by NmProyecto"
Call OpenRS(rsCentral,strCentral,ConnAxs)
Central = rsCentral.GetRows
Call CloseRS(rsCentral)
I do not get any error message. My problem is tha once I select the first
combo it did filter the second one, but I can't see the data I just selected.
Let's say I select Colombia, and I see it at this pont. But very soon
Colombia is not there, anymore.
Thanks a lot!!!
"Ray Costanzo [MVP]" wrote:
> Show the code you're using to populate the first drop down and the code
> you're using to retrieve that value.
>
> Ray at work
>
> "Lina Manjarres" <LinaManjarres@discussions.microsoft.com> wrote in message
> news:99F75FD7-A982-4B75-B617-AC79CB03354D@microsoft.com...
> of
> me.
>
>
>
| |
| Ray Costanzo [MVP] 2005-07-20, 5:57 pm |
| Try this:
sSelectedCategory = Request.Form("cboPais")
Then get rid of the "selected" text in that dropdown box. (<option
selected>-- Seleccione un País --)
Then, add a second argument to your ComboRS function and use it as such:
Function ComboRS(vector,SelectedValue)
'Pinto el combo
for i= 0 to UBound(vector, 2)
Response.Write "<option value='" & vector(0,i) & " - " &
vector(1,i)& "'"
If vector(0,i) = SelectedValue Then REsponse.Write " selected"
Response.Write ">" & vector(0,i) & " - " & vector(1,i) & vbCrLf
next
End Function
Ray at work
"Lina Manjarres" <LinaManjarres@discussions.microsoft.com> wrote in message
news:DB66EE64-8221-4589-A650-4ED8258C3AFD@microsoft.com...
> This is the function code tu fill the combos, wher vector is a variable
Pais
> filled with a recorset.
>
> Function ComboRS(vector)
> 'Pinto el combo
> for i= 0 to UBound(vector, 2)
> Response.Write "<option value='"& vector(0,i) &" - "& vector(1,i)&"'>"&
> vector(0,i) &" - "& vector(1,i) & vbCrLf
> next
> End Function
>
>
> %>
>
>
> Here is the call to the recordset and the way I fill the variable Pais:
>
> strPais = "select IdPais, NmPais from Paises order by NmPais"
> Call OpenRS(rsPais,strPais,ConnAxs)
> Pais = rsPais.GetRows
> Call CloseRS(rsPais)
>
> If request.form("CboPais") = "" Then
> CadenaPais = "57"
> Else
> Izquierda = instr(1,request.form("CboPais"),"-")
> CadenaPAis = Trim(Left(request.form("CboPais"),Izquierda - 1))
> End If
>
> Here is how I work out the first combo:
>
> '<select name="cboPais" size="1" tabindex="10" onChange="submit();">
> '<option selected>-- Seleccione un País --
> '<%Call ComboRS(Pais)%>
>
> This is the code for the recorset of the other combo:
>
> strCentral = "select IdProyecto, NmProyecto from Proyectos Where IdPais
> ='"& CadenaPais &"' AND Tecnologia = '"& TipoPlanta &"' order by
NmProyecto"
> Call OpenRS(rsCentral,strCentral,ConnAxs)
> Central = rsCentral.GetRows
> Call CloseRS(rsCentral)
>
> I do not get any error message. My problem is tha once I select the first
> combo it did filter the second one, but I can't see the data I just
selected.[vbcol=seagreen]
> Let's say I select Colombia, and I see it at this pont. But very soon
> Colombia is not there, anymore.
>
> Thanks a lot!!!
>
>
> "Ray Costanzo [MVP]" wrote:
>
message[vbcol=seagreen]
filter[vbcol=seagreen]
the[vbcol=seagreen]
first[vbcol=seagreen]
understand[vbcol=seagreen]
| |
| Lina Manjarres 2005-07-20, 5:57 pm |
| Thank you Ray
I follow your instruccions, but I allways get the first combo to display the
first item in the table instead the one I selected.
Do you think I am doing something wrong?
You can see what I am saying by going to this link:
http://manager-soft.com/clientes/mi...html/inicio.htm
and then try the menu "Plantas de Generación" and then "LÃ_neas"
Thanks a lot!
"Ray Costanzo [MVP]" wrote:
> Try this:
>
> sSelectedCategory = Request.Form("cboPais")
>
> Then get rid of the "selected" text in that dropdown box. (<option
> selected>-- Seleccione un PaÃ_s --)
>
> Then, add a second argument to your ComboRS function and use it as such:
>
> Function ComboRS(vector,SelectedValue)
> 'Pinto el combo
> for i= 0 to UBound(vector, 2)
> Response.Write "<option value='" & vector(0,i) & " - " &
> vector(1,i)& "'"
> If vector(0,i) = SelectedValue Then REsponse.Write " selected"
> Response.Write ">" & vector(0,i) & " - " & vector(1,i) & vbCrLf
> next
> End Function
>
>
> Ray at work
>
> "Lina Manjarres" <LinaManjarres@discussions.microsoft.com> wrote in message
> news:DB66EE64-8221-4589-A650-4ED8258C3AFD@microsoft.com...
> Pais
> NmProyecto"
> selected.
> message
> filter
> the
> first
> understand
>
>
>
| |
| Ray Costanzo [MVP] 2005-07-20, 8:47 pm |
| Well, the most important thing is to understand what the goal is. The goal
is to take have the server be aware of the value of the selected item when
it redraws the page after the user selects an item from the first dropdown.
Then, as it loops through those items and is writing out all the <option>
html again, what you want to do in your loop is put in a test to see if the
item that is currently being written is the one that the person selected.
If it is, then add " selected" to the HTML output. Here's a simple example:
<%
Dim i
i = Request.Querystring("dropdown")
%>
<html>
<body>
<form method="get">
<select name="dropdown" onchange="this.form.submit();">
<%
For j = 1 To 10
Response.Write "<option value=""" & j & """"
If CStr(j) = CStr(i) Then Response.Write " selected"
Response.Write ">" & j & "</option>" & vbCrLf
Next
%>
</form>
</body>
</html>
As far as your page, I don't see any dropdowns. I just see javascript
errors and EOF errors.
Ray at home
"Lina Manjarres" <LinaManjarres@discussions.microsoft.com> wrote in message
news:D79D4698-EA43-45DC-8AFE-3DE13D565A99@microsoft.com...
> Thank you Ray
>
> I follow your instruccions, but I allways get the first combo to display
> the
> first item in the table instead the one I selected.
>
> Do you think I am doing something wrong?
>
> You can see what I am saying by going to this link:
> http://manager-soft.com/clientes/mi...html/inicio.htm
> and then try the menu "Plantas de Generación" and then "Líneas"
>
> Thanks a lot!
>
| |
| Lina Manjarres 2005-07-21, 2:48 am |
| Yes, something like that is what i am looking for.
The link I gave you is working. Just make sure you select "Plantas de
Generación" and then "LÃ_neas"
So, Ray, what should I do? Should I change my forms from Post to GET?
"Ray Costanzo [MVP]" wrote:
> Well, the most important thing is to understand what the goal is. The goal
> is to take have the server be aware of the value of the selected item when
> it redraws the page after the user selects an item from the first dropdown.
> Then, as it loops through those items and is writing out all the <option>
> html again, what you want to do in your loop is put in a test to see if the
> item that is currently being written is the one that the person selected.
> If it is, then add " selected" to the HTML output. Here's a simple example:
>
> <%
> Dim i
> i = Request.Querystring("dropdown")
> %>
> <html>
> <body>
> <form method="get">
> <select name="dropdown" onchange="this.form.submit();">
> <%
> For j = 1 To 10
> Response.Write "<option value=""" & j & """"
> If CStr(j) = CStr(i) Then Response.Write " selected"
> Response.Write ">" & j & "</option>" & vbCrLf
> Next
> %>
> </form>
> </body>
> </html>
>
> As far as your page, I don't see any dropdowns. I just see javascript
> errors and EOF errors.
>
> Ray at home
>
>
>
>
> "Lina Manjarres" <LinaManjarres@discussions.microsoft.com> wrote in message
> news:D79D4698-EA43-45DC-8AFE-3DE13D565A99@microsoft.com...
>
>
| |
| Ray Costanzo [MVP] 2005-07-21, 6:01 pm |
|
"Lina Manjarres" <LinaManjarres@discussions.microsoft.com> wrote in message
news:2EA25101-7D74-42DF-B886-F458FC8C1516@microsoft.com...
> Yes, something like that is what i am looking for.
Have you tried applying the logic to your specific code?
> The link I gave you is working. Just make sure you select "Plantas de
> Generación" and then "Líneas"
CollapseMenu is not defined - Line 62
collapse is not defined - Line 86
collapse is not defined - Line 196
collapse is not defined - Line 53
collapse is not defined - Line 1
That's what I get in Firefox.
> So, Ray, what should I do? Should I change my forms from Post to GET?
Not necessarily. If there's reason to post, post. Then just use
Request.Form instead of Request.QueryString
Ray at work
| |
| Lina Manjarres 2005-07-22, 2:56 am |
| I have tried what you told me but I do not get anything better.
Maybe I do not do what I am supposed to do.
Try the link again and see if it works now.
Thanks a lot!
"Ray Costanzo [MVP]" wrote:
>
> "Lina Manjarres" <LinaManjarres@discussions.microsoft.com> wrote in message
> news:2EA25101-7D74-42DF-B886-F458FC8C1516@microsoft.com...
>
> Have you tried applying the logic to your specific code?
>
>
>
> CollapseMenu is not defined - Line 62
> collapse is not defined - Line 86
> collapse is not defined - Line 196
> collapse is not defined - Line 53
> collapse is not defined - Line 1
>
> That's what I get in Firefox.
>
>
>
>
> Not necessarily. If there's reason to post, post. Then just use
> Request.Form instead of Request.QueryString
>
> Ray at work
>
>
>
|
|
|
|
|