<% 'if request("itemid")="" then itemid="index" else itemid=clean(request("itemid"))%>

<%=get_info(itemid)%>

<% set conn=server.createobject("adodb.connection") set rs=Server.CreateObject("adodb.Recordset") conn.open=dbstring sqlstmt = "select gal from data where id='" & itemid & "'" rs.open sqlstmt, conn if rs.eof=false then gal=rs("gal") if isnull(gal) then gal="" end if if gal<>"" then %>

<% z=0 set conn=server.createobject("adodb.connection") set rs=Server.CreateObject("adodb.Recordset") conn.open=dbstring sqlstmt = "select * from gals_inner where gal=" & gal & " order by seder asc" rs.open sqlstmt, conn while rs.eof=false num=rs("num") pic=rs("picname") if z=0 then %> <% end if%> <% z=z+1 if z=3 then z=0 %> <% end if rs.movenext wend %>
<%=rs("title")%>
<%end if%>