Horizontal Search Results.

[Jouster]

Hi,

I would like to show my search results in a horizontal "way" across the page about 4 items per row. I've been trying to come up with the ASP code to do this but can't seem to get it right. Has anyone done this and have some example code?

Thanks,
Rick

 

[FesterSXS]

something like this maybe?? coding is very much open to criticism

Response.Write &quot;<TABLE WIDTH=600 COLS=4 CELLSPACING=0 CELLPADDING=0 BORDER=0>&quot; & vbcrlf

intCount = 0

While NOT objResultsRS.EOF
  intCount = intCount + 1

  If intCount = 1 Then
    Response.Write &quot;<TR>&quot; & vbcrlf
  ElseIf intCount = 4 Then
    Response.Write &quot;</TR>&quot; & vbcrlf & &quot;<TR>&quot; & vbcrlf
    intCount = 0
  End If

  Response.Write &quot;<TD>&quot; & objResultsRS(&quot;Your_Results&quot;) & &quot;</TD>&quot; & vbcrlf

Wend

Do While intCount < 4
  Response.Write &quot;<TD>&nbsp;</TD>&quot; & vbcrlf
Loop

Response.Write &quot;</TR>&quot; & vbcrlf & &quot;</TABLE>&quot; & vbcrlf

Tony

http://www.phoenix-paints.co.uk/portfolio

 

[harmmeijer]

This dups the result of a query into an html table.

<%
dim rs
set rs = server.CreateObject(&quot;adodb.recordset&quot
rs.Open &quot;select * from mytable&quot;,&quot;wouldn't you like to know&quot;
with response
.Write &quot;<table>&quot; & vbcrlf
do until rs.EOF
.Write &quot; <tr>&quot; & vbcrlf
for each fld in rs.Fields
.Write &quot; <td>&quot; & vbcrlf
Response.Write fld.value
.Write &quot; </td>&quot; & vbcrlf
next
rs.MoveNext
.Write &quot; </tr>&quot; & vbcrlf
loop
.Write &quot;</table>&quot; & vbcrlf
end with
rs.close
set rs = nothing
%>

 

[FesterSXS]

oops forgot a bit...

Do While intCount < 4
  Response.Write &quot;<TD>&amp;nbsp;</TD>&quot; & vbcrlf

intCount = intCount + 1

Loop

Tony

http://www.phoenix-paints.co.uk/portfolio

 

[Jouster]

Thanks. The code tips worked well.