<!--#include file="mycartconn/conn.asp" -->
<%
set rs = server.createobject("adodb.recordset")
sql = "select top 1 id from A_slide where flag=1 and share_set=1 order by newid()"
rs.open sql,conn,1,1
if Not (rs.bof And rs.eof) then
	response.redirect "mofahe.asp?moliheid="&CLng(rs("id"))&""
Else
	response.write "<script>window.close();</script>"
End if
rs.close
Set rs=Nothing
conn.close
Set conn=nothing%>
