|
<%=pagevar%>
<%if IsObject(RSx) then
prodop = 1
Col = 0
Opt = 0
pname = ""
tdwith = "33%"
maxcol = 3
rowCount = 0
colcnt = 1
%>
<%while not RSx.eof and rowCount < RSx.PageSize
imgurl = RSx("imageurl0")
custid = RSx("yid")
website = RSx("cowebsite")
if instr(1,website,"p:") < 1 and website <> "" then
website = "http://" & website
end if
if imgurl = "" then
imgurl = "noimg.gif"
end if
if colcnt Mod 2 = 0 Then
colstr = "#FFF1DB" 'odd
Else
colstr = "#EDEDED" 'even
end if
%>
|
|
<%=RSx("coname")%>
<%=RSx("subtext")%>
Address: <%=RSx("coaddr1")%> <%=RSx("cocity")%>, <%=RSx("costate")%> <%=RSx("cozip")%>
Phone: <%=RSx("cophone")%>
Website: <%=website%>
|
<%rowCount = rowCount + 1
colcnt = colcnt + 1
RSx.Movenext
wend%>
<%else %>
No results available for this search . . . |
<%end if%>
<%if rowCount > 5 then%>
<%response.write pagevar
end if %>
|
.