Seperate Results with a comma 2

[jojo79]

I have an asp page that creates a Server.CreateObject("ADODB.recordset"), What I am trying to do is have the retune value seperated by a comma. Example below.

skew = request.querystring("q")
sql="SELECT wh_qty,wh_skid,wh_cases FROM ipc_warehouse WHERE wh_skew= '" + skew + "'"

after creating a ADODB.recordset I am currently using the following code to return my sql.

do until rs.EOF
   for each x in rs.fields
        response.write("total inv. " & x.value & " !")
    next
   rs.MoveNext
loop

I am trying to get the results to comeback separated by a comma, no column name just the value.

Example:

response.write rs("wh_skid")","rs("wh_cases")","rs("wh_qty")

Any help or direction would be great, Thanks in advance.

 

[monksnake]

Assign the return value from the query to a variable, then in your loop just append the new value with a comma onto the end of it:

dim totalInvString
do until rs.EOF
   for each x in rs.fields
      totalInvString = totalInvString & x.value & ",";    
   next
   rs.MoveNext
loop

After this you will have a comma delimited set of values with a comma on the end. You may or may not want to keep that comma on the end. If not, just trim the last character off of totalInvString.


<.

 

[Tarwn]

Another option would be to use the much faster and more efficient GetString() method.

-T