Listing Data from mdb. in a listbox

[obekdik]

Hello guys thx for help

I have a huge database with about 3000 datas. This database holds 8 different tables with 4 5 different colomns. I tried to build a web interface for my collegues to enter their datas by using this interface. I face a problem.

What I want to do for ex. is make a list of Company Names in a text box by calling them from my mdb. I tried to use the code in the attachment, that code but by that I could only list one agent name to the page. How can show the whole agent names in a box and make them choose one from the list for the new entry

[Newsgroup_User]

obekdik wrote:
> Hello guys thx for help
>
> I have a huge database with about 3000 datas. This database holds 8 different
> tables with 4 5 different colomns. I tried to build a web interface for my
> collegues to enter their datas by using this interface. I face a problem.
>
> What I want to do for ex. is make a list of Company Names in a text box by
> calling them from my mdb. I tried to use the code in the attachment, that code
> but by that I could only list one agent name to the page. How can show the
> whole agent names in a box and make them choose one from the list for the new
> entry
>
> <select name="AgentName" size="1" id="AgentName">
> <option value="">Agent...</option>
> <option value="<%=rs1("AgentName")%>"><%=rs1("AgentName")%></option></select>
>

You need to loop through your recordset.

Its easy to do using the built in behaviours in Dreamweaver CS3.

1. Create your recordset
2. Insert list/menu from the Form panel
3. Select your list on the page, then from the properties panel click on
Dynamic
4. Select your recordset, label and value.
5. Job done, grab yourself a coffee and marvel at the power of Dreamweaver.

Dooza

[obekdik]

This is the same thing I did before I wrote the code it didn't make what I want. By this ıt only shows I data ı want to see all the data

[Newsgroup_User]

obekdik wrote:
> This is the same thing I did before I wrote the code it didn't make what I want. By this ?t only shows I data ? want to see all the data

Sounds like your doing something wrong, or I am misunderstanding your
problem.

The code you showed doesn't include the loop, so something didn't work.

Dooza

[obekdik]

How can I enter the loop my friend actually I dont know how to do it

[Newsgroup_User]

obekdik wrote:
> How can I enter the loop my friend actually I dont know how to do it

If you had done what I previously suggested it should have worked, and
the select would now look something like this:

<select name="customer" id="customer" onchange="this.form.submit()">
<option value="" <%If (Not isNull(Customer)) Then If ("" =
CStr(Customer)) Then Response.Write("selected=""selected""") :
Response.Write("")%>>All</option>
<%
While (NOT rsCustomers.EOF)
%><option value="<%=(rsCustomers.Fields.Item("Customer").Value)%>" <%If
(Not isNull(Customer)) Then If
(CStr(rsCustomers.Fields.Item("Customer").Value) = CStr(Customer)) Then
Response.Write("selected=""selected""") : Response.Write("")%>
><%=(rsCustomers.Fields.Item("Name").Value)%></option>
<%
rsCustomers.MoveNext()
Wend
If (rsCustomers.CursorType > 0) Then
rsCustomers.MoveFirst
Else
rsCustomers.Requery
End If
%>
</select>

Dooza

[Newsgroup_User]

Dooza wrote:
> obekdik wrote:
>> How can I enter the loop my friend actually I dont know how to do it
>
> If you had done what I previously suggested it should have worked, and
> the select would now look something like this:
>
> <select name="customer" id="customer" onchange="this.form.submit()">
> <option value="" <%If (Not isNull(Customer)) Then If ("" =
> CStr(Customer)) Then Response.Write("selected=""selected""") :
> Response.Write("")%>>All</option>
> <%
> While (NOT rsCustomers.EOF)
> %><option value="<%=(rsCustomers.Fields.Item("Customer").Value)%>" <%If
> (Not isNull(Customer)) Then If
> (CStr(rsCustomers.Fields.Item("Customer").Value) = CStr(Customer)) Then
> Response.Write("selected=""selected""") : Response.Write("")%>
> ><%=(rsCustomers.Fields.Item("Name").Value)%></option>
> <%
> rsCustomers.MoveNext()
> Wend
> If (rsCustomers.CursorType > 0) Then
> rsCustomers.MoveFirst
> Else
> rsCustomers.Requery
> End If
> %>
> </select>
>
> Dooza

I should have said, this is example code from one of my projects, its
not meant to be a solution to yours, just an example of what the code
might look like.

Dooza