<%dim pid,i
pid=request.QueryString("pid")%>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select ename from paintings where pid="&pid&" ",conn,1,1
%>
<%=trim(rs("ename"))%>--ZHAO'S OIL PAINTINGS GALLERY|Tibet oil paintings|Tibet arts|Tibet pictures|Tibet photo|Oil paintings about Tibet|Tibet <%=trim(rs("ename"))%> oil paintings|Tibet arts <%=trim(rs("ename"))%>|Tibet pictures <%=trim(rs("ename"))%>|Tibet photo <%=trim(rs("ename"))%>|Oil paintings about Tibet <%=trim(rs("ename"))%>
<%=trim(rs("ename"))%>|oil paingtings|OIL PAINTINGS|arts|chinese oil paintings|Mr.Zhao Chunlin's gallery|canvas chunlin's oil paintings <%=trim(rs("ename"))%> gallery is a personal website aboutarts,oil-paintings,<%=trim(rs("ename"))%>chinese oil paintingsetc,like this gallery oil £¬paintings Tibet oil paintings|Tibet arts|Tibet pictures|Tibet photo|Oil paintings about Tibet|Tibet <%=trim(rs("ename"))%> oil paintings|Tibet arts <%=trim(rs("ename"))%>|Tibet pictures <%=trim(rs("ename"))%>|Tibet photo <%=trim(rs("ename"))%>|Oil paintings about Tibet <%=trim(rs("ename"))%> £¬<%=trim(rs("ename"))%>oil-painters £¬arts gallery £¬chinese paintings.
<% dim rs2
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from paintings where pid="&pid&" ",conn,1,1
%>
<%=trim(rs2("ename"))%>
<% = trim(rs2("Ewidth"))%>¡Á<% = trim(rs2("Eheight"))%>" (<% = trim(rs2("time"))%>)
(<% = trim(rs2("enote"))%>)
<%dim rs3,totalnum
set rs3=server.CreateObject("adodb.recordset")
rs3.open "select * from paintings order by pid",conn,1,1
totalnum=rs3.recordcount
if pid=1 then
%>
INDEX
>NEXT
<% else
if pid=totalnum then
%>
>PREVIOUS
INDEX
<% else %>
>PREVIOUS
INDEX
>NEXT
<% end if %>
<% end if
rs3.close
set rs3=nothing
%>