Loop trough db with spacing..

[Pheddy]

Hi All!

I wonder, how can I loop trough a record in my database showing the first three matches in a cell structure, then create a new paragraph with the next three matches and so on..?

Thanks.
Frederik

[jhardman]

I'm not sure how you want the HTML done, but you will need to count to three and every three you reset the timer and start the new line or paragraph. For example, if you were doing it in a table, you would do something like this:

dim x
if not objRS.eof
   response.write "<table><tr>" & vbNewLine
 
   x = 0
do until objRS.eof
   response.write "<td><p>" & objRS("title") & " - " & objRS("description") & "</td>" & vbNewLine
   x = x + 1
   if x = 3 then
      response.write "</tr><tr>" & vbNewLine
      x = 0
   end if
   objRS.movenext
loop
response.write "</tr></table>" & vbNewLine
end if

There are a couple ways to structure the loop to get this same effect, but this is as good as any. Does this make sense?

Jared

[Pheddy]

Yeah sure, just needed some quidelines on how to construct the code, Im sure i will make it work from here. Thanks!

[Pheddy]

Hey again! I'm stuck on a problem with this code. I need to show a table with this code with two or three cells containing more than one info for each items. Quess I need to make a loop wihtin a loop. My code looks like this for now the underlaying cells are marked out. Can't seem to figure this out...

<%
dim varSelectedChar
dim x
if Request.QueryString("l") = "" then
  varSelectedChar = "a"
else
  varSelectedChar = Request.QueryString("l")
end if
 
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db1.mdb")
Conn.Open DSN
 
strSQL = "SELECT * FROM moveez WHERE m_titel LIKE '" & varSelectedChar & "%'"
Set rs = Conn.Execute(strSQL)
 
if not rs.EOF then
  response.write "<table border=""0"" cellpadding=""0"" style=""border-collapse: collapse"" width=""100%"">"
  response.write "<tr>"
 
  x = 0 
do until RS.eof 
  'Response.Write "<td width=""5"">&nbsp;</td>"
  Response.Write "<td width=""100""><a href=""?pid=details&fid=" & rs("ID") & """><img width=""80"" height=""100"" src=""/film/m_pic/" & RS("m_picture") & """></a></td>"
 
      'Response.Write "<td width=""5"">&nbsp;</td>"
      'Response.Write "<td>" & rs("m_titel") & "</td>"
 
      'Response.Write "<td>&nbsp;</td>"
      'Response.Write "<td>&nbsp;</td>"
 
  x = x + 1 
    if x = 5 then 
      response.write "</tr>"
      response.write "<tr>" 
    x = 0 
    end if 
      RS.movenext 
      loop 
 
    response.write "</tr>" 
    response.write "</table>"
 
  else
    Response.Write("SOME ERROR (" & varSelectedChar & ")"
end if
 
Conn.Close
Set Conn = Nothing
%>

[jhardman]

I'm not sure how this isn't working, you didn't say what was going wrong. Anyway, here's one thought. Whenever I need to write a lot of HTML markup including lots of quote marks, I dislike using the two double quotes solution, it seems to go wrong too often for me (and I know what I am doing) and I also see a lot of newbies making mistakes at it. It seems easier for me to declare a variable q = chr(34) and using that all the time for quote marks, or just dropping out of the vbscript temporarily like this:

'...
 
if not rs.EOF then %>
  <table border="0" cellpadding="0" style="border-collapse: collapse" width="100%"><tr>
   <%  
  x = 0 
do until RS.eof 
  %>
  <td width="100"><a href="?pid=details&fid=<%=rs("ID")%>"><img width="80" height="100" src="/film/m_pic/<%=RS("m_picture")%>"></a></td>
   <%
'...  

Not sure if that helps or not. Let me know.

Jared