<%
dim objcon
set objcon=Server.CreateObject("ADODB.Connection")
'Access with DSN
objcon.ConnectionString="DSN=metroa2.data"
objcon.open
dim objrs_chk
dim date1
set objrs_chk = Server.CreateObject("ADODB.RecordSet")
objrs_chk.open " select * from information where categories = 'Fire_ Brigade' and IsNull(days_allowed)=false" ,objcon,,2,check1
Do while NOT objrs_chk.EOF
date1= objrs_chk("hosting_date")
objrs_chk("expiry_date")=Dateadd("d",objrs_chk("days_allowed"),date1)
if Date()>objrs_chk("expiry_date") AND objrs_chk("paid")=true then
objrs_chk("check")=true
end if
if Date()< objrs_chk("expiry_date") AND objrs_chk("paid")=true then
objrs_chk("check")=true
end if
if Date()>objrs_chk("expiry_date") AND objrs_chk("paid")=false then
objrs_chk("check")=false
end if
if objrs_chk("paid")=false then
objrs_chk("check")=false
end if
objrs_chk.Update
objrs_chk.movenext
loop
%>
<%
dim objrs1
set objrs1 = Server.CreateObject("ADODB.RecordSet")
objrs1.open " select * from information where (categories ='Fire_ Brigade' AND check = true)and serial = true ",objcon
%>
Untitled Document
