<% title="契約画家" Painterid=ld_checknum(request("Painterid"),1,"Painterid") id=ld_checknum(request("id"),1,"ID") stitle=conn.execute("select title_jp from koba_painter where id="&Painterid&"")(0) set rs=server.createobject("adodb.recordset") sql="select * from koba_PainterPic where id="&id rs.open sql,conn,1,1 pic=rs("pic") ptitle=rs("title_jp") memo=rs("memo_jp") price=rs("price") rs.close set rs=nothing Objrs=Conn.Execute("Select Max(id) From koba_PainterPic Where id < "& id & " and Painterid=" & Painterid )(0) Objrs1=Conn.Execute("Select Min(id) From koba_PainterPic Where id > "& id & " and Painterid=" & Painterid )(0) If Not Objrs="" Then MaxID=Objrs Else MaxID=0 End If If Not Objrs1="" Then MinID=Objrs1 Else MinID=0 End If %> <%=ptitle%>-<%=web_title%>
画家：<%=stitle%> 作品
作品名: <%=ptitle%>
販売情報: <%=price%>
作品紹介: <%=showbody(memo)%>
<<前へ: <%If MaxID=0 Then %> No information <%else%> <%=conn.execute("select title_jp from koba_PainterPic where id="&MaxID)(0)%> <%end if%> [戻す] 次へ>>: <%If MinID=0 Then %> No information <%else%> <%=conn.execute("select title_jp from koba_PainterPic where id="&MinID)(0)%> <%end if%>