Jim,

Your function uses the cussql query to retrieve the records. I think you
want to use the sql variable which is the picklist function paramter.

Marios Alexandrou
Web and Desktop Software Developer
http://www.mariosalexandrou.com


----- Original Message -----
From: "jim Hundley" <[EMAIL PROTECTED]>
To: "ActiveServerPages" <[EMAIL PROTECTED]>
Sent: Monday, August 19, 2002 11:24 AM
Subject: strange result from a select list function


I have a site that I am working on that is select list intensive so I
figured I'd be clever and write myself a very simple function to fill in
the <options> parts.  I'm new to building functions in ASP but I got it
to work eventually.  But on subsequent calls to the function I am still
getting the first option list.

I have my function in a public.asp file :

function picklist(sql)
dim picktemp
set pickrs = server.createobject("adodb.recordset")
pickrs.Open cussql,conn
do until pickrs.EOF
picktemp = picktemp & "<option value=" & pickrs.Fields(0) & ">"
& pickrs.Fields(1) &"</option>"
pickrs.MoveNext
loop
set pickrs = nothing
picklist = picktemp
end function

which I <!--#include file="public.asp" --> in the page in question.

Then I call it for a select list:

<SELECT id=customer name=customer>
<%
cussql = "select customerid, companyname from customers"
Response.Write picklist(cussql)
%>
</SELECT>

but when I call it later on the same page with a different SQL ( which
works as expected in query analyzer) I get the same listing:

<SELECT id=activity name=activity>
<%
actsql = "select activityid, activity from tblrefactivity"
Response.Write picklist(actsql)
%>
</SELECT>

I have a feeling I'm missing something very simple but I just can't see
it

Jim Hundley
Development
www.vbti.com




---
You are currently subscribed to activeserverpages as: [email protected]
To unsubscribe send a blank email to [EMAIL PROTECTED]

Reply via email to