-
ホーム / <%=title%> / <%=stitle%>
アーティスト: <%=stitle%> プロフィール: <%=showbody(memo)%> 作品一覧 <%Set rs = Server.CreateObject("ADODB.RecordSet") sql="select * from koba_PainterPic where Painterid="&id rs.open sql,conn,1,1 if rs.eof and rs.bof then %> Not Information! <%else n=0 do while not rs.eof n=n+1 %>" target="_blank"> <%=LeftT(rs("title_jp"),10)%> " Rs.MoveNext loop end if Rs.Close Set Rs = Nothing %> <<前へ: <%If MaxID=0 Then %> No information <%else%> <%=Left(conn.execute("select title from koba_painter where id="&MaxID)(0),15)%> <%end if%> 次へ>>: <%If MinID=0 Then %> No information <%else%> <%=Left(conn.execute("select title from koba_painter where id="&MinID)(0),15)%> <%end if%>