<%
mysql = "select * from services where id="& request.querystring("id")&" order by soryOrder "
mysql = "select id,sname,sDescription from services order by soryOrder"
set rsser = server.CreateObject("ADODB.Recordset")
set rsser = con.execute(mysql)
if not rsser.EOF then
%>
<%
dim ctr
ctr = 0
'while not rs.eof
while not rsser.EOF
%> <%
if ctr mod 2 = 0 and ctr <> 0 then
response.write" | "
end if
ctr=ctr+1
%>
|
|
<%
rowcount=rowcount+1
rsser.MoveNext
wend
rsser.close
end if
%>
<%
if request.querystring("id")<>"" then
sqld = "select * from whatsnew where id="&request.querystring("id")
set rsd = server.createobject("ADODB.Recordset")
rsd.open sqld,con,adOpenStatic
%>
<%
end if
%> |
