<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../connections/conn_sql.asp" -->
<%
  result="0"
  if not session("Logon") then
				  Username=Request.Form("Username")
				  Password=Request.Form("Password")
				  
				  If Not (username="" or Password="") then
								Sql= "SELECT * FROM Bangkokadmin WHERE admin_username='" & username&"' and admin_password='" & Password &"'"
								Set Rs_admin=conn_sql.execute(SQL) 
								'admin
								 If Rs_admin.Eof Then   
												  response.redirect "login.asp" & "?result="&result				    			  
								Else 'admin

																      
									  session("Logon")=true
									  session("Admin")=true
									  session("username")=username
									  session("password")=password

                                     'Trade 90 Day
									 Sql="DELETE FROM BangkokTradelink WHERE DateDiff(D,bangkokTradeLink.LinkTradeDate,Getdate()) > 90 "
									 Conn_sql.Execute(SQL)

									'Classified 90 Day
									'BangkokClassLink
									 Sql="DELETE FROM BangkokClasslink WHERE DateDiff(D,bangkokClassLink.LinkCatDate,Getdate()) > 90 "
									 Conn_sql.Execute(SQL)
									'BangkokSubClassLink
									 Sql="DELETE FROM BangkoksubClassLink WHERE DateDiff(D,BangkoksubClassLink.LinkSubCatDate,Getdate()) > 90 "
									 Conn_sql.Execute(SQL)

									'Ads 90 Day
									 Sql="DELETE FROM Bangkokadlink WHERE DateDiff(D,bangkokAdLink.LinkAdDate,Getdate()) > 90 "
									 Conn_sql.Execute(SQL)

									'Member 90 Day
									 Sql="DELETE FROM BangkokMember WHERE DateDiff(D,BangkokMember.member_date_last_login,Getdate()) > 90 "
									 Conn_sql.Execute(SQL)

									'Postcard 14 Day
									 Sql="DELETE FROM BangkokSubEcardLink WHERE DateDiff(D,BangkokSubEcardLink.LinkSubEcardDate,Getdate()) > 14 "
									 Conn_sql.Execute(SQL)


									  Rs_admin.Close
									  conn_sql.Close
									  Set Rs_admin=Nothing
									  Set conn_sql=nothing								
									 Response.Redirect "default.asp"	 											  
                                    End if 'admin									
					 else
									  response.redirect "login.asp" & "?result="&result				    			  
					end if	  
					
  else				
		  response.Redirect "default.asp"	 
  end if
%>