<!-- #include file = "../Conn.asp" -->
<!-- #include file = "../Comm/Site_Class.asp" -->
<%
Response.Expires = -1 
Response.ExpiresAbsolute = Now() - 1 
Response.cachecontrol = "no-cache"

PagePath = "../"

Set Qsite = New Site_Class
Qsite.SiteConfig()

If Not IsObject(Conn) Then ConnectionDatabase()

Dim Rs,i,j,Ind_04
Dim TodayDate
Dim Sql

TodayDate = Qsite.FormatDate(Date())

Sql = "select * from AdTbl where AdWz like '%|5|%' and AdPause = '0' and ValidityDate > '"& TodayDate &"' order by AdId desc"

Set Rs = server.createobject("ADODB.Recordset")

Rs.Open Sql , Conn , 1 , 1
If Rs.Eof Then
	Ind_04 = ""
	
	Ind_04 = Ind_04 & "<table width=""983"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
	Ind_04 = Ind_04 & "<tr>"
	Ind_04 = Ind_04 & "<td height=""100""><img src=""Images/Ad_Ind_04_def.jpg"" width=""983"" height=""100"" border=""0"" /></td>"
	Ind_04 = Ind_04 & "</tr>"
	Ind_04 = Ind_04 & "<tr>"
	Ind_04 = Ind_04 & "<td height=""15""></td>"
	Ind_04 = Ind_04 & "</tr>"
	Ind_04 = Ind_04 & "</table>"
Else
	Ind_04 = ""
	Ind_04 = Ind_04 & "<table width=""983"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
	Ind_04 = Ind_04 & "<tr>"
	Ind_04 = Ind_04 & "<td height=""100"">"
	If Rs("AdType") = "1" Then
		Ind_04 = Ind_04 & "<object classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0"" width=""983"" height=""100"">"
		Ind_04 = Ind_04 & "<param name=""movie"" value="""& Rs("AdPicUrl") &""" />"
		Ind_04 = Ind_04 & "<param name=""quality"" value=""high"" />"
		Ind_04 = Ind_04 & "<embed src="""& Rs("AdPicUrl") &""" quality=""high"" pluginspage=""http://www.macromedia.com/go/getflashplayer"" type=""application/x-shockwave-flash"" width=""983"" height=""100""></embed>"
		Ind_04 = Ind_04 & "</object>"
	Else
		If Rs("AdUrl") <> "" And Rs("AdUrl") <> "http://" Then
			Ind_04 = Ind_04 & "<a href="""& Rs("AdUrl") &""" target=""_blank""><img src="""& Rs("AdPicUrl") &""" width=""983"" height=""100"" border=""0"" /></a>"
		Else
			Ind_04 = Ind_04 & "<img src="""& Rs("AdPicUrl") &""" width=""983"" height=""100"" border=""0"" />"
		End If
	End If
	Ind_04 = Ind_04 & "</td>"
	Ind_04 = Ind_04 & "</tr>"
	Ind_04 = Ind_04 & "<tr>"
	Ind_04 = Ind_04 & "<td height=""15""></td>"
	Ind_04 = Ind_04 & "</tr>"
	Ind_04 = Ind_04 & "</table>"
End If
Rs.Close
%>
document.write('<%=Ind_04%>');