[invision]

Sorry, wrong subject title.

I wish to use a Do...While loop to echo out results from a SQL query to my database.

PHP Code:

    Dim cn,sql,Rs
                Set cn = Server.CreateObject("ADODB.Connection")
                cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("../../database/TESTER.mdb") &";Persist Security Info=False"
  
                sql = "SELECT * FROM clients WHERE status = 1"
                
    
    WHILE LOOP
    
                response.write ('<option val="uid"> client_name </option>')
                
    END WHILE LOOP
    
    &#37;> 

What is the best way to do this?

[omniman]

seems like a typo - what's on line 17?

[invision]

Oops, sorry about that. I posted up the wrong script. Too many things in my clipboard

I'm trying to use a while loop to echo out entries from my table into option values for a select menu.

Is there an easy way to do this?

[omniman]

If Not Rs.EOF Then
   Response.Write("<select id='blahblah'>")
End If
 
Do while not Rs.EOF
   Response.Write "<option value = '" & RS ("uid") & "'> & Rs("client_name") & "</option>""
   Rs.MoveNext
   If Rs.EOF Then
      Response.Write("</select>")
   End If
Loop 

[invision]

Thanks for the fast response.

I've tried putting the code in, but got an error:

Code:

Microsoft VBScript compilation  error '800a0401'

Expected end of statement

/client_space/add_project.asp, line 56

Response.Write "<option value = '" & RS ("uid") & "'> & Rs("client_name") & "</option>""
------------------------------------------------------------^

[omniman]

It's a problem with the quotes, that's all - figure it out.

[invision]

Do I have to cancel out the quotes around the Rs("client_name") or just use singles?

Sorry to be such a noob to ASP

[invision]

OK, so I now have:

PHP Code:

    <%

                Set cn = Server.CreateObject("ADODB.Connection")

                cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("../../database/HIDDEN/db.mdb") &";Persist Security Info=False"

  

                sql = "SELECT * FROM clients WHERE status = 1"

                

If Not Rs.EOF Then

   Response.Write("<select id='client'>")

End If



Do while not Rs.EOF

   Response.Write "<option value = """ & Rs ("uid") & """>" & Rs("client_name") & "</option>"

   Rs.MoveNext

   If Rs.EOF Then

      Response.Write("</select>")

   End If

Loop

    

%> 

and I get the following HTML output:

HTML Code:

  <p><strong>Username:</strong> <br /><select name="client">
	
	 <font face="Arial" size=2>
<p>Microsoft VBScript runtime </font> <font face="Arial" size=2>error '800a01a8'</font>

<p>
<font face="Arial" size=2>Object required: ''</font>
<p>
<font face="Arial" size=2>/client_space/add_project.asp</font><font face="Arial" size=2>, line 51</font> 

Any assistance would be brilliant at this point. I'm stuck for ideas I'm afraid.