multiple loops with different conditions whilst querying sql table

[omar999]

im trying to figure out a way to query sql table several times within the same asp statement. as opposed to opening a new asp statement each time to query sql table again & again etc

so this is what I want to do in theory

do while ID 1-6
do something / perform loop

do while ID 7-12
do something / perform loop

at the moment I can only query table and loop all records and im not sure how to set multiple loops

<%
DIM objConn
Set objConn = my conn string goes here
objConn.Open
 
DIM ZUIDERDAM2011
ZUIDERDAM2011 = "SELECT * From UK_Cruise_Holland_And_America_Zuiderdam_2011 WHERE ID IN (1,2,3,4,5,6)"
 
DIM objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open ZUIDERDAM2011, objConn
 
If objRS.Eof Then 
Response.write "<div align='center'>Sorry there are no current records.</div>" 
Else 
 
Response.write "<table align=""center"" id=""Cruiseprices"" cellpadding=""0"" cellspacing=""0"">"
Response.write "<tr><td class=""empty"">&nbsp;</td>"
Response.write "<td class=""header"">Sail Date >> </td>"
Response.write "<td class=""header"">14 May &amp;<br />21 May</td>"
Response.write "<td class=""header"">28 May</td>"
Response.write "<td class=""header"">4 Jun</td>"
Response.write "<td class=""header"">11 Jun</td>"
Response.write "<td class=""header"">18Jun, 25Jun,<br />02Jul, 09Jul,<br />16Jul, 23Jul,<br />30Jul, 06Aug</td></tr>"
Response.write "<tr><td class=""empty"">&nbsp;</td>"
Response.write "<td class=""titles"">Cabin</td>"
Response.write "<td class=""titles"">Twin</td>"
Response.write "<td class=""titles"">Twin</td>"
Response.write "<td class=""titles"">Twin</td>"
Response.write "<td class=""titles"">Twin</td>"
Response.write "<td class=""titles"">Twin</td></tr>"
Response.Write "<tr><td rowspan=""6"" class=""header"">Inside<br /><br />Stateroom</td>"
 
Do while not objRS.Eof 
 
Response.Write "<td class=""titles"">" & objRS("Cabin_Category") & "</td>"
Response.Write "<td>&pound;" & objRS("Price_Band_1") & "</td>"
Response.Write "<td>&pound;" & objRS("Price_Band_2") & "</td>"
Response.Write "<td>&pound;" & objRS("Price_Band_3") & "</td>"
Response.Write "<td>&pound;" & objRS("Price_Band_4") & "</td>"
Response.Write "<td>&pound;" & objRS("Price_Band_5") & "</td></tr>"
 
objRS.movenext
 
Loop 
end if 
 
Response.Write "</table>" & vbCrLf
 
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
 

thanks in advance
omar.

[viktorka]

Why do you need loop if you may use "if" inside of your loop:

if ID<7 then
do something
else
do something
end if

[omar999]

thanks for the reply. iv actually found a better way of doing this using via a for loop

for x = 1 to 6
  'do something
   objRS.movenext
next
 
for x = 7 to 10
  'do something
   objRS.movenext
next
 

and so on

omar.

[viktorka]

Could be this way, but in this case, do not forget to check in the loop for the end of the record, otherwise objRS.movenext command will crash your program.

Keep in mind that this is more lines of code.