SQLsætning med between dates og dynamisk specifik måned

jeg forestiller mig noget med at indtaste månedsnummer og årstal i to felter og en knap "hent", som så fremtryller det ønskede??

det må være noget med at trække 2 variabler fra en form over på en siden hvor
aar og maaned står og så automatisk udskrifte 2008 og 1 med det man har valgt i formen?

Noget i denne stil:

[side1.asp]
<form action="side2.asp" method="get">
<select name="aar">
  <option value="2005">2005</option>
  <option value="2006">2006</option>
  <option value="2007">2007</option>
</select><br>
<select name="maaned">
  <option value="1">Jan</option>
  <option value="2">Feb</option>
  <option value="3">Mar</option>
  <option value="4">Apr</option>
  <option value="5">Maj</option>
  <option value="6">Jun</option>
  <option value="7">Jul</option>
  <option value="8">Aug</option>
  <option value="9">Sep</option>
  <option value="10">Okt</option>
  <option value="11">Nov</option>
  <option value="12">Dec</option>
</select><br>
</form>

[side2.asp]
<%
aar = cLng(request.querystring("aar"))
maaned = cLng(request.querystring("maaned"))
datoMonthStart = dateserial(aar,maaned,1)
datoMonthEnd = dateserial(aar,maaned+1,0)

%>

Hej Fennec - godt du fangede dette spm - for det er jo en videreudvikling af din tidligere kode fra andre spm - jeg nåede ikke lige at lægge det nedenstående på før du kommenterede, men her er hvad jeg er nået frem til, men det virker ikke helt:

<%

dim orec, SQL, ID, k, strConnect

Valg = request.form("Valg")
    if Valg = "" then
%>
<table class="tillad" cellspacing="0" cellpadding="0" border="0" width="100">
<tr><td>
<table  cellspacing="0" cellpadding="0" border="0" width="100">
<form name=sampleform action="soegTil.asp" method=post>
<tr>
    <td colspan="4" align="center">
        <h4>
            Søg events
        </h4>
    </td>
</tr>
<tr>
    <td>
Årstal:
  </td>
  <td><select name="aarstal" >
    <option >&nbsp;</option>
    <option >2007</option>
    <option >2008</option>
    <option >2009</option>
    <option >2010</option>
    <option >2011</option>
   
</select>           
</td>
</tr><br>
<tr>
    <td>
  Måned:
  </td>
  <td><select name="maanedsnr" >
    <option >&nbsp;</option>
    <option >1</option>
    <option >2</option>
    <option >3</option>
    <option >4</option>
    <option >5</option>
    <option >6</option>
    <option >7</option>
    <option >8</option>
    <option >9</option>
    <option >10</option>
    <option >11</option>
    <option >12</option>
</select>   
</td>
</table><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input type=submit value=SØG name=SØG >
</form>
</td></tr>
</table>
<%
    else
       
        function DBDate(fDate)
    dim fDay, fMon, fYear
    fDay = right("0"& day(fDate),2)
    fMon = right("0"& month(fDate),2)
    fYear = year(fDate)
    DBDate = fmon&"-"&fday&"-"&fyear
    end function
   
        aarstal = request.form("aarstal")
        maanedsnr = request.form("maanedsnr")
       
       
        'dfra = Month(dfra) & "-" & day(dfra) & "-" & year(dfra)
        'dtil = Month(dtil) & "-" & day(dtil) & "-" & year(dtil)
        aar = aarstal  ' her sættes aktuelt år
        maaned = maanedsnr 'her ændres måned til det man ønsker
        datoMonthStart = dateserial(aar,maaned,4)'her ændre til ønskede måned
        datoMonthEnd = dateserial(aar,maaned + 1,0)
       
openconnection

strtext = "select * from til where dfra<=#"& DBDate(datoMonthEnd) &"# and dtil>=#"& DBDate(datoMonthStart) &"#  order by dfra desc"

etdata strtext       
           
            if dbset.eof then
           
            response.write "<br><font size=+1>Der er ingen opdaterede events</font>"
            else
           
      response.write "<div class=tabel2>"
      response.write "<table border=1 cellpadding=0 cellspacing=0 width=900>"
      response.write "<tr><th colspan=9><font color='#0000FF'>events i København </font></th></tr>"
      Response.Write "<tr><th align=center>Journr.</th><th width=70>Dato fra</th><th width=70>Dato til</th><th  width=70>Tid</th><th>Hvad</th><th>Hvor</th><th>Kreds</th><th>Tild.</th><th>Kat.</th><th>&nbsp;</th></tr>"
           
            Do while not dbset.eof
           
            if color = 0 then
                Response.write "<tr bgcolor=#FFFFFF>"
                color = 1
            else
                Response.write "<tr bgcolor=#E8E8E8>"
                color = 0
            end if
           
            response.write "<td width=140>&nbsp;<FONT face=Verdana size=1>" & trim(dbset(1)) & "</td><td >&nbsp;<FONT face=Verdana size=1>" & trim(dbset(2)) & "</td><td>&nbsp;<FONT face=Verdana size=1>" & trim(dbset(3)) & "</td><td>&nbsp;<FONT face=Verdana size=1>" & trim(dbset(4)) & "</td><td>&nbsp;<FONT face=Verdana size=1>" & trim(dbset(5)) & "</td><td>&nbsp;<FONT face=Verdana size=1>" & trim(dbset(6)) & "</td><td>&nbsp;<FONT face=Verdana size=1>" & trim(dbset(7)) & "</td><td>&nbsp;<FONT face=Verdana size=1>" & trim(dbset(10)) & "</td><td>&nbsp;<FONT face=Verdana size=1>" & trim(dbset(8)) & "</td><td width=20> <a href=""../tilladelser/tilladelser/" & trim(dbset(9)) & """>se</a></td>"
   

            Response.write "</tr>"
   
            dbset.movenext
            loop
            response.write "</table>"   
closeconnection
end if
end if
%>

når jeg fyre dette af får jeg bare en blank side?? IDeen er den samme som din tror jeg nok

Du har ikke noget "Valg" element.

Jeg plejer at bruge en "mode". Du skal bare rette lidt i de første par linjer af den kode du allerede har:

<%
dim orec, SQL, ID, k, strConnect
if Request.querystring("mode") <> "search" then
%>
<table class="tillad" cellspacing="0" cellpadding="0" border="0" width="100">
<tr><td>
<table  cellspacing="0" cellpadding="0" border="0" width="100">
<form name="sampleform" action="soegTil.asp?mode=search" method="post">
...
...

jeg har nu tilføjet din "mode"men får stadig ikke noget? der skal vel ændres noget
ved dette:
aar = aarstal  ' her sættes aktuelt år
        maaned = maanedsnr 'her ændres måned til det man ønsker
        datoMonthStart = dateserial(aar,maaned,4)'her ændre til ønskede måned
        datoMonthEnd = dateserial(aar,maaned + 1,0)
Monthstart skal 4 tallet ikke ændres til maanedsnr?

Har du en side jeg kan se det på (link)??

desværre er det på et intranet

hej fennec - er du gået død? :-)

har fået det til at virke - tak for inspirationen, - læg et svar

Vi havde problemer med mail systemet igår, så jeg fik ikke nogen mails fra E, også er det desværre lidt svært at følge med i alle ? :o)

Men godt at du selv kunne klare det.

.o) <-- One Eyed Jack