where is the error

cazeno · Sep 18, 2000

i want to get the values if one is selected in a listbox menu in a variable
but its not working...the variable is always empty....
here is the code

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<%@LANGUAGE="VBScript"%>


<form name="form1">
<select name="tablename" size="4">
<option value="item" selected>item</option>
<option value="cust" >cust</option>
<option value="prod" >prod</option>
<option value="site" >site</option>
</select>
<%
DIM tablename

SELECT CASE Request.Form("item&quot

CASE Request.Form("item&quot

tablename = Request.Form("cust&quot

CASE Request.Form("cust&quot

tablename = Request.Form("prod&quot

CASE Request.Form("prod&quot

tablename = Request.Form("prod&quot

CASE Request.Form("site&quot

tablename = Request.Form("site&quot

END SELECT
%>
<input type="submit" name="Button" value="Submit">
</form>

<%
set myConnection = Server.CreateObject("ADODB.Connection&quot

myConnection.Open "DSN=ph;UID=sa"
SQLQuery = "select * from " & tablename
set RSTitleList = myConnection.Execute(SQLQuery)%>

<p> </p>
<table cellpadding=2 cellspacing=0 border=1>
<tr bgcolor="#cccccc">
<% for each field in RSTitleList.Fields %>
<th><%=field.Name%></th>
<% next %>
</tr>
<% WHILE NOT RSTitleList.EOF %>
<tr>
<% for each field in RSTitleList.Fields %>
<td><small><%=field.Value%></small></td>
<% next %>
</tr>
<%
RSTitleList.MoveNext
Wend
%>
</table>
</head>

please help dont know...what do to
caz [sig][/sig]

Guest_imported · Sep 18, 2000

You should use :
SELECT CASE Request.Form("[red]tablename[/red]&quot instead of :
SELECT CASE Request.Form("[red]item[/red]&quot

cazeno · Sep 18, 2000

but the other problem i have that i dont how to retrieve the value from the selected listbox......
i made it like that but nothing is happening at all
--------------------------------
Sub proc_onClick()
tablename = table.getValue()
SELECT CASE Request.Form("tablename&quot

CASE tablename = "item"
tablename = tablename
CASE tablename = "cust"
tablename = tablename
CASE tablename = "prod"
tablename = tablename
CASE tablename = "site"
tablename = tablename
break
END SELECT
End Sub
---------------------------
where table is now the name of the listbox in the form.....i dont how to get the value of the selected field...e.g. prod is selected how can i get the value????¿¿¿¿ [sig][/sig]

Guest_imported · Sep 18, 2000

If you have the listbox named tablename, then
request.form("tablename&quot will return the value of whatever option has been selected:

Select case request.form("tablename&quot
case "item"
do something
case "prod"
do something else
----------------
and so on
end select

cazeno · Sep 18, 2000

this is not returning anything maybe theres something wrong somewhere else i dont now. the first time my code looked nearly like that with the same result
if i DIM my_variable without giving it a value from the begging on there is an error cause the variableiis empty...
here again the code....i have to get this to run till tomorow
so
---------------------------------
<form name="f1" method="get" action="test.asp">
<select name="table" size="4">
<option value="item" selected>item</option>
<option value="cust" >cust</option>
<option value="prod" >prod</option>
<option value="site" >site</option>
</select>
<%
DIM RSTitleList
DIM tablename
tablename = "cust"
Sub proc_onClick()
Request.Form("f1.table&quot

SELECT CASE Request.Form("table&quot

CASE "item"
tablename = Request.Form("item&quot

CASE "cust"
tablename = Request.Form("cust&quot

CASE "prod"
tablename = Request.Form("prod&quot

CASE "site"
tablename = Request.Form("site&quot

break
END SELECT
End Sub

set myConnection = Server.CreateObject("ADODB.Connection&quot

myConnection.Open "DSN=ph;UID=sa"
SQLQuery = "select * from "& tablename
set RSTitleList = myConnection.Execute(SQLQuery)
%>
<input type="submit" name="proc" value="Submit" onClick="proc_onClick">
</form>
<p> </p>
<table cellpadding=2 cellspacing=0 border=1>
<tr bgcolor="#cccccc">
<% for each field in RSTitleList.Fields %>
<th><%=field.Name%></th>
<% next %>
</tr>
<% WHILE NOT RSTitleList.EOF %>
<tr>
<% for each field in RSTitleList.Fields %>
<td><small><%=field.Value%></small></td>
<% next %>
</tr>
<%
RSTitleList.MoveNext
Wend
%>
------------------------------------
caz [sig][/sig]

Guest_imported · Sep 18, 2000

I think you're getting confused at the point where you need to pass the value of selected option. Here's the simple code which works. You just thoroughly look at the way form's elements are named and referenced in the code; especially listbox and option elements of listbox.
Copy and save the following code as test.asp

<%@language=vbscript%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
</HEAD>
<BODY>

<%
if len(request("tablename&quot) > 0 then
Response.Write request("tablename&quot
end if
%>

<form name="f1" method="post" action="test.asp">
<select name="tablename" size="4">
<option value="item" selected>item</option>
<option value="cust">cust</option>
<option value="prod">prod</option>
<option value="site">site</option>
</select>
<input type="submit">
</form>

</BODY>
</HTML>

And one more thing -- if you use Form collection of Request object, you need to specify post in method attribute of a form: <form name="f1" method="post" action="test.asp">

Hope you'll get at least first results -- value of selected option.

cazeno · Sep 18, 2000

no nothing

mean nothing now he submits something...i understand the code above but i still dont know how to put this into the variable. if i click on my submit button HTTP Fehler 404 this comes up.
im no programmer and think this is the problem .... hmmmoh well
[sig][/sig]

Guest_imported · Sep 18, 2000

Let's start from the very beginning.

1.From your code I assume that your asp page submits form's information to itself and form f1 and processing code are in the same page.
2. In order for you to be able to get the value of a particular element of a form, you need to refer to it as in following :
request.form("element_name&quot
3. In order for you to assign this value to a variable, you need to do this:
dim some_variable
some_variable = request.form("element_name&quot
4. If you have number of elements with the same name, then request.form("element_name&quot will refer to a collection of elements and will hold an array of all elements with the same name.
5. In your case you have a <select>element named tablename. And <select> element contains a collection of <option> elements, which actually provide values. So if you want to find out which <option> element of the <select> element has been selected, you check to see which value has been passed with request.form("tablename&quot:

dim [red]table[/red]
[red]table[/red] = request.form("tablename&quot

One more time : tablename is the name of <select> element.

junnantes · Sep 18, 2000

1) guestg was right! make method=post and action="<name of your asp page>"
2) i assume you're using only one page and let's say it's name is "sample.asp"
3) you need to use <if..else..end if> statement to test if the request object has something on it after the user click the Submit button..
4) the code looks something like this

<%If Request("tablename&quot

="" Then%>

<form name="form1" method="post" action="sample.asp">
<select name="tablename" size="4">
<option value="item" selected>item</option>
<option value="cust" >cust</option>
<option value="prod" >prod</option>
<option value="site" >site</option>
</select>
<input type="submit" name="Button" value="Submit">
</form>

<%Else

DIM tablename

tablename = Request.Form("tablename&quot

set myConnection = Server.CreateObject("ADODB.Connection&quot

myConnection.Open "DSN=ph;UID=sa"
SQLQuery = "select * from " & tablename
set RSTitleList = myConnection.Execute(SQLQuery)%>

...continue your codes here...

hope this helps you,
bhudz [sig]<p>Jun Nantes<br><a href=mailto:bhudz@junnantes.com>bhudz@junnantes.com</a><br><a href=

http://www.junnantes.com>Jun

Nantes Official Internet Site</a><br>[/sig]

cazeno · Sep 18, 2000

thx to u both.... it works *g* im a little bit sorry for myself that i couldnt make it on my own..but its the first step.
caz [sig][/sig]

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

where is the error

cazeno

Technical User

Guest_imported

New member

cazeno

Technical User

Guest_imported

New member

cazeno

Technical User

Guest_imported

New member

cazeno

Technical User

Guest_imported

New member

junnantes

MIS

cazeno

Technical User

Similar threads

Part and Inventory Search

Sponsor