<%@ Language=JScript %> <% Response.Expires = 0; Session.Timeout = 5; function sh_pic() { if (Session("nv")>0) { Response.Write("blank"); } else { Response.Write(Session("file")); } } function shs(str) { Response.Write(Session(str)); } function shc(str) { Response.Write(str); } function wr_ivr(num) { if(num<10) { Response.Write("0"); } Response.Write(num); } %> <% var lang; if ((Request.QueryString("lang").count==0) || (Request.QueryString("lang")=="")) { lang="g"; } else { lang=Request.QueryString("lang"); } %>E.G. Buehrle Collection | <% var oRs; var oConn; var id_room; var id_pic; var r_id_pic; var p_max; var p_min; var st; if ((Request.QueryString("id_pic").count==0) || (Request.QueryString("id_pic")=="")) { id_pic=0; } else { id_pic=Number(Request.QueryString("id_pic")); } if ((Request.QueryString("id_room").count==0) || (Request.QueryString("id_room")=="")) { id_room=1; } else { id_room=Number(Request.QueryString("id_room")); } oConn = Server.CreateObject("ADODB.Connection"); oConn.Open("DSN=buehrle"); oRs=oConn.Execute("SELECT count(*) from t_pictures where id_pic="+id_pic+" and state>0"); if (oRs(0)>0) { r_id_pic=id_pic oRs.Close(); } else { oRs.Close(); oRs=oConn.Execute("SELECT min(id_room) from t_rooms where id_room>="+id_room); id_room=Number(oRs(0)); oRs.Close(); oRs=oConn.Execute("SELECT min(id_pic),max(id_pic) from t_pictures where room="+id_room+" and state=1"); p_min = Number(oRs(0)); p_max = Number(oRs(1)); // shc("pmax:"+p_max+"p_min"+p_min); if (p_max==0) { st=2; oRs=oConn.Execute("SELECT min(id_pic),max(id_pic) from t_pictures where room="+id_room+" and state="+st); p_min = Number(oRs(0)); p_max = Number(oRs(1)); } else { st=1; } oRs.Close(); r_id_pic=Math.round(Math.random()*(p_max-p_min))+p_min; oRs=oConn.Execute("select min(id_pic) from t_pictures where state="+st+" and id_pic>="+r_id_pic+" and room="+id_room); r_id_pic=Number(oRs(0)); oRs.Close(); } oRs=oConn.Execute(" select "+ "pa.first_name, "+ //0 "pa.second_name, "+ //1 "pi.name_"+lang+", "+ //2 "pi.id_pic, "+ //3 "pi.file, "+ //4 "pi.cp, "+ //5 "pi.nv "+ //6 " from t_painters pa, t_pictures pi "+ " where pa.id_painter=pi.id_painter and pi.id_pic="+r_id_pic); Session("first_name")=String(oRs(0)); Session("second_name")=String(oRs(1)); Session("name")=String(oRs(2)); Session("id_pic")=Number(oRs(3)); Session("file")=String(oRs(4)); Session("cp")=Number(oRs(5)); Session("nv")=Number(oRs(6)); oRs=oConn.Execute("SELECT id_room, "+ //0 "name_"+lang+", "+ // 1 "desc_"+lang+" "+ // 2 "from t_rooms where id_room="+id_room); Session("lang")=String(lang); Session("id_room")=String(oRs(0)); Session("rname")=String(oRs(1)); Session("desc")=String(oRs(2)); oRs.Close(); oConn.Close(); shs("rname"); %> |
<%wr_home(lang);%> E.G. Buehrle Collection
<% wr_menu(lang,0); %> 		<%wr_topnav(lang);%>
“ú–{Œê<%wr_lang(lang);%>
&id_pic=<%shs("id_pic");%>">
&id_pic=<%shs("id_pic");%>"> <%shs("name");%>
<%shs("first_name");shc(" ");shs("second_name"); %>

&id_room=<%shs("id_room");%>"><%wr_alt(14,lang);%>


<% shs("rname"); %>
<% var oRs; var oRs2; var oConn; oConn = Server.CreateObject("ADODB.Connection"); oConn.Open("DSN=buehrle"); oRs=oConn.Execute("select pa.id_painter,pa.first_name,pa.second_name from t_pictures pi, t_painters pa "+ "where pa.id_painter=pi.id_painter and pi.room="+id_room+" "+ "group by pa.id_painter,pa.first_name,pa.second_name"); while (!oRs.EOF) { Response.Write("
"+oRs(1)+" "+oRs(2)+"
    "); oRs2=oConn.Execute("Select id_pic,"+ //0 "name_"+lang+", "+ //1 "date_"+lang+ //2 " from t_pictures where room="+id_room+" and id_painter="+oRs(0)); while (!oRs2.EOF) { Response.Write("
  • "+oRs2(1)+""); if (oRs2(2)!="") { Response.Write(" ("+oRs2(2)+")
    • "); } oRs2.MoveNext(); } oRs2.Close(); Response.Write("
"); oRs.MoveNext(); } oRs.Close(); oConn.Close(); %>



© 1999 Stiftung Sammlung E.G. Bührle. Alle Rechte vorbehalten.
Legal info | Credits