populate dropdown using getrows 1

[w11z]

Hello everyone,

I'm trying to populate a dropdown list using the GetRows:

varSQL = "SELECT * FROM dbTable"
Set dbReponse = Server.CreateObject("ADODB.Recordset&quot
dbReponse.Open varSQL, dbLink

lingAbTab = dbReponse.GetRows()

<select size=&quot;1&quot; name=&quot;readEn&quot;>
<option value=&quot;0&quot; selected>-</option>
<%
For iRowLoop = 0 to UBound(lingAbTab, 2)
For iColLoop = 0 to UBound(lingAbTab, 1)
if (iColLoop = 0) then
aff = &quot;<option value=&quot; & lingAbTab(iColLoop, iRowLoop) & &quot;>&quot;
Else if (iColLoop = 1) then
aff = aff & lingAbTab(iColLoop, iRowLoop) & &quot;</option>&quot;
End if
Next
Response.Write(aff)
Next
%>
</select>

The result should be:

1- yes
2- no
3- maybe
etc.

The error I get is: Unexpected 'Next' (After the End If)

Can someone help me?

Thanks

 

[MrGreed]

change:
Else if (iColLoop = 1) then

to:

Elseif (iColLoop = 1) then

VBScript/ASP use &quot;elseif&quot; Javascript uses &quot;else if&quot;


MrGreed

http://www.pastame.com

&quot;did you just say Minkey?, yes that's what I said.&quot;

 

[MrGreed]

You'll want to remove the open &quot;(&quot; and close &quot&quot; from the if statements also.

MrGreed

http://www.pastame.com

&quot;did you just say Minkey?, yes that's what I said.&quot;

 

[w11z]

Thank you very much MrGreed... Sometimes solutions are to easy to find.

 

[Funka]

you might be able to clean this up a bit by changing this:

For iRowLoop = 0 to UBound(lingAbTab, 2)
 For iColLoop = 0 to UBound(lingAbTab, 1)
  if (iColLoop = 0) then
    aff = &quot;<option value=&quot; & lingAbTab(iColLoop, iRowLoop) & &quot;>&quot;
  Else if (iColLoop = 1) then
    aff = aff & lingAbTab(iColLoop, iRowLoop) & &quot;</option>&quot;
  End if
 Next
  Response.Write(aff)
Next

to this:

For iRowLoop = 0 to UBound(lingAbTab, 2)
    Response.Write &quot;<option value=&quot;&quot;&quot; & lingAbTab(0, iRowLoop) & &quot;&quot;&quot;>&quot; & lingAbTab(1, iRowLoop) & &quot;</option>&quot;
Next

please note in the above snippet, to ignore any linebreaks as the Response.Write statement should all be on one line!

also notice that two consecutive quote marks lets you output an &quot;un-escaped&quot; quote mark inside a string.

best of luck!
-f!

 

[w11z]

Thanks Funka! I will try it your way. Always looking to optimise the code.