Unable to extract data between two dates

[sausthav]

Hi All,
I am unable to get the excel open when user select two dates from my code. Previously i was successfully extracting values by selecting year and month values from the webpage. Could you help me out in writing the Access 2003 SQL query to resolve my issue. Looking forward to your help and support:) I am giving the snapshot of my code:

<%@Language=VBScript%>
 
<%
    Dim TmplXls
    Dim DestXls
    Dim DB
    Dim DBConn
    Dim DestXlsConn
    Dim FSO
    Dim XlsRS
    Dim DBRS
    Dim sqlText
    Dim strMnth
    Dim strYear
    Dim strlte10Pcnt
    Dim cnt1
    Dim cnt2
    Dim cnt3
 
 
 
    If Request.Form("Fst").Count = 0 Then
    strStartDate = "(Fst = Format([date],'ddmmyyyy'))"
    Else
        For cnt2 = 1 to Request.Form("Fst").Count
            If cnt2 = 1 Then
                strStartDate = "(Fst = " & Request.Form("Fst")(cnt2)
            Else
                strStartDate = strStartDate & " OR Fst = " & Request.Form("Fst")(cnt2)
            End If
    Next
        strStartDate = strStartDate & ")"
    End If
 
    If Request.Form("Lst").Count = 0 Then
        strLastDate = "(Lst = Format([date],'ddmmyyyy'))"
    Else
        For cnt3 = 1 To Request.Form("Lst").Count
        If cnt3 = 1 Then
                strLastDate = "( Lst = " & Request.Form("Lst")(cnt3)
            Else
                strLastDate = strLastDate & " OR Lst = " & Request.Form("Lst")(cnt3)
            End If
        Next
        strLastDate = strLastDate & ")"
    End If
 
 
 
 
    'Response.Write strYear
 
    TmplXls = Server.MapPath(".") & "\Memory_Use_Sample.xls"
    DestXls = Server.MapPath(".") & "\Memory_Use.xls"
    DB = Server.MapPath(".") & "\Server_Monitoring.mdb"
 
    Set FSO = Server.CreateObject("Scripting.FileSystemObject")
    FSO.GetFile(TmplXls).Copy DestXls
 
 
    Set FSO = Nothing
 
    Set DestXlsConn = Server.CreateObject("ADODB.Connection")
    DestXlsConn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & DestXls & "; " & "Extended Properties=""Excel 8.0;HDR=NO;"""
 
    Set XlsRS = Server.CreateObject("ADODB.Recordset")
    'XlsRS.Open "Select * from Report_Range", DestXlsConn, 1, 3
    XlsRS.Open "Select * from Memory_Use", DestXlsConn, 1, 3
 
    Set DBConn = Server.CreateObject("ADODB.Connection")
    Set DBConn = Server.CreateObject("ADODB.Connection")
    DBConn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & DB
 
    Set DBRS = Server.CreateObject("ADODB.Recordset")
    sqlText = "Select date, Time_Hour, ServerName, MemoryUse from Q1 where date between" & strStartDate
 
    'strSQL = "SELECT * " & _ 
        ' "FROM [RECORDS] " & _ 
         '"WHERE (CDate(Date_Pur) Between #" & _ 
        ' Format(Date_From,"m/d/yyyy") & "# And #" & _ 
        ' Format(Date_To,"m/d/yyyy") & "#)" 
 
   'Response.Write strText
  ' Response.End
        If Request.Form("Lst").Count > 0 Then
            sqlText = sqlText & " AND "& strLastDate 
        End If
 
    'Response.Write sqlText
    'Response.End
 
    DBRS.Open sqlText, DBConn, 1
     'Response.Write sqlText    
     'Response.End    
 
           If DBRS.Recordcount > 0 Then
        DBRS.MoveFirst
 
        Dim x, y
        x = 1
        Do While Not (DBRS.EOF)
            XlsRS.AddNew
            XlsRS.Fields(0).Value = x
 
            For y = 1 To 4
                XlsRS.Fields(y).Value = DBRS.Fields(y-1).Value
            Next
            XlsRS.Update
            DBRS.MoveNext
            x = x + 1
        Loop
 
        Response.Write "<META HTTP-EQUIV=""REFRESH"" Content=""0;URL=Memory_Use.xls"">"
        'Response.Write "Matching records found"
 
    Else
        Response.Write "No matching records found"
    End If    
 
 
    DBRS.Close
    Set DBRS = Nothing
 
    DBConn.Close
    Set DBConn = Nothing
 
    DestXlsConn.Close
    Set DestXlsConn = Nothing
 
    'Response.Write "<META HTTP-EQUIV=""REFRESH"" Content=""0;URL=Memory_Use.xls"">"
    'XlsRS.Close
 
    'Set XlsRS = Nothing
%>

[jhardman]

Hi All,
I am unable to get the excel open when user select two dates from my code. Previously i was successfully extracting values by selecting year and month values from the webpage. Could you help me out in writing the Access 2003 SQL query to resolve my issue. Looking forward to your help and support:) I am giving the snapshot of my code:

So what part doesn't work? Are you getting a syntax error when you query the db? Try doing a response.write of the query from the working version and from the current broken version, I bet you will see an obvious difference. If you don't please post both versions of the query (like it looks when finished).

Jared