Select statement

[jrthor2]

I have a page where I am listing the months that I hve data for in my database. I am getting the first 2 digits from my date_show column and then using a case statement to determine what month it is. I want to be able to click on the Month name, and it only show me those items that belong to that month. I am passing the month value (Ex. 10 for October, 11 for November, etc. How can I get my select statement to work because the date_show field is defined as a date. Below is the code I have so far (maybe there is an easier way to do this, if so, please advise):

<%
Dim iPageSize       'How big our pages are
Dim iPageCount      'The number of pages we get back
Dim iPageCurrent    'The page we want to show
Dim iRecordsShown   'Loop controller for displaying iPageSize records
Dim I               'Standard looping var

' Get parameters
iPageSize = 10 ' You could easily allow users to change this

' Retrieve page to show or default to 1
If Request.QueryString("page") = "" Then
	iPageCurrent = 1
Else
	iPageCurrent = CInt(Request.QueryString("page"))
End If

db = "/db/ziondb.mdb"
%>

<!--#include virtual="/inc/dbconn.asp"-->
<%
sel_month = Request.Querystring("months")
Select Case True
Case (trim(request.querystring("months"))) = ""
    SQLstmt = "SELECT * from Bible_Verses"
Case (trim(request.querystring("months"))) <> ""
	SQLstmt = "SELECT * from Bible_Verses where Left(date_show,2) = " & sel_month & " order by date_show"
End Select	
Set objPagingRS = Server.CreateObject("adodb.recordset")
objPagingRS.PageSize = iPageSize
objPagingRS.CacheSize = iPageSize
Response.Write(SQLstmt)
' Open RS
objPagingRS.Open SQLstmt,conn,3,3


' Get the count of the pages using the given page size
iPageCount = objPagingRS.PageCount

' If the request page falls outside the acceptable range,
' give them the closest match (1 or max)
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1

' Check page count to prevent bombing when zero results are returned!
If iPageCount = 0 Then
%>
  <tr>
                  <td valign=top align=center> 
                    <p align="left"><img src="../images/bible_verse_top.gif" width="403" height="28"></p>
                    <p>No 
                      records 
                      found!</p>
      <a href="index.asp" onFocus="if(this.blur)this.blur()">Back to Bible Verse Listing</a>
    </td>
  </tr>
<%
Else
	' Move to the selected page
	objPagingRS.AbsolutePage = iPageCurrent
%>
			<tr>
				<td colspan="3"><div align="center">							
				<%
				Set objMonthsRS = Server.CreateObject("adodb.recordset")
				SQL_query = "SELECT distinct(left(date_show,2)) AS Months FROM Bible_Verses"
				objMonthsRS.Open SQL_query,conn,3,1
				
		Do While Not objMonthsRS.eof 
		months = objMonthsRS("Months")
		if Right(months,1) = "/" then
			months = "0" & Left(months,1)
		end if
		Select Case months 
		Case "01" 
			MonthNme = "January" 
		Case "02" 
			MonthNme = "February" 
		Case "03" 
			MonthNme = "March" 
		Case "04" 
			MonthNme = "April"
		Case "05" 
			MonthNme = "May" 
		Case "06" 
			MonthNme = "June"
		Case "07" 
			MonthNme = "July"
		Case "08" 
			MonthNme = "August"
		Case "09" 
			MonthNme = "September"
		Case "10" 
			MonthNme = "October"
		Case "11" 
			MonthNme = "November"
		Case "12" 
			MonthNme = "December"
		End Select 
				%>
                    <a href="index.asp?months=<%=months%>" onFocus="if(this.blur)this.blur()"><%=MonthNme%></a>
				<%	objMonthsRS.movenext 
				Loop
			%>

				</div>
				
				</td>
			</tr>
<%
x=0
Dim iRecordCount,mycolor
iRecordCount = 0
mycolor = "#ffffff"
Do while iRecordCount < iPageSize And NOT objPagingRS.EOF
If mycolor = "#ffffff" Then 
			mycolor = "#d7d7ff" 
		Else 
			mycolor = "#ffffff" 
		End If 
		
strdate = objPagingRS("date_show")
bible_verse = objPagingRS("bible_verse")
%>
                <tr valign="top" bgcolor="<%= mycolor %>"> 
                  <td> 
                    <a href="update.asp?strdate=<%= strdate%>" onFocus="if(this.blur)this.blur()"><%= strdate %></a> 
                  </td>
                  <td> 
                    <% = bible_verse %> 
                  </td>
                  <td nowrap><a href="delete.asp?strdate=<%= strdate%>" onFocus="if(this.blur)this.blur()">Delete</a></td>
                </tr>
                <% 
				iRecordCount = iRecordCount + 1
				objPagingRS.MoveNext
	Loop
	conn.Close
	'objPagingRS.Close
	Set conn = nothing
	Set SQLstmt = nothing
	Set objPagingRS = Nothing	
	
%>

[jrthor2]

Thanks, that works!