<%
Set mrs=Server.CreateObject("ADODB.recordset")
Set rs2=Server.CreateObject("ADODB.recordset")
sql = "Select Max(QuoteEndDate) as maxEndDate From tblQuote Where IsActive = True"
mrs.Open sql,DBConn,3,1
mdate = mrs("maxEndDate")
If IsNull(mdate) OR mdate = "" OR mdate < Date() Then
%>
<% Response.Redirect("QuoteUpdater.asp")
Else
mrs.Close
sql = "Select * From tblQuote Where QuoteStartDate <= #" & Date() & "# and QuoteEndDate >= #" & Date() & "#"
rs2.Open sql,DBConn,3,1
qtitle = rs2("QuoteTitle")
qtext = rs2("QuoteText")
qfile = rs2("QuoteUrduImage")
rs2.Close
Set mrs = Nothing
Set rs2 = Nothing
%>
<% End If %>
Hakim Mohammed Said
