<%
    Dim strSearchDate
        strSearchDate = Request.Form("searchdate")
       
        
    Response.Write strSearchDate & ("&nbsp;This is the Info from the previous page<BR>")
    
    'Convert the date to US standard for strSearchDate'
        Dim varDate
        Dim varLocale
        Dim dattoUS
        
            varLocale = SetLocale(1033)
            varDate = strSearchDate
            dattoUS = FormatDateTime(varDate, 2)
            
        Response.Write ("Date as converted back to US") & " " & ("<font color='red'>") & dattoUS & ("</font><br><br>")
%>
<!-- RETREIVING INFO FROM THE DATABASE ACCORDING TO DATE ENTERED -->
<%
    Response.Write ("<font color='red'><strong><u>RETREIVING INFO FROM THE DATABASE ACCORDING TO DATE ENTERED</u></strong></font><br>")
    Response.Write ("Take the date from the previous page and converted") & " " & ("<font color='red'>") & dattoUS & ("</font><br>")
    Response.Write ("and match it up in DB.<br>")
    
    'Connect to the DB'
    Dim adoCon
    Dim objRS
    Dim strSQL
    
    Set adoCon = Server.CreateObject("ADODB.Connection")
    adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../sms.mdb")
    Set objRS = Server.CreateObject("ADODB.Recordset")
    strSQL = "SELECT * FROM clients"
    objRS.Open strSQL, adoCon
        
    Do while not objRS.EOF
        Dim dattodb
            dattodb = dattoUS
                'Response.Write dattodb & ("<BR>")
                
            if objRS("datetosend") = dattodb Then
                Response.Write ("Not Found")                
            Else
                Response.Write objRS("datetosend") & ("<BR>")
            End if
    objRS.MoveNext
    loop
%>