vis måned og år

Prøv denne (ikke testet):

<select>
<%
for f=0 to 11
  response.write "<option value='"& month(dateadd("m",f,date())) &"-"& year(dateadd("m",f,date())) &"'>"& monthName(month(dateadd("m",f,date()))) &" - "& year(dateadd("m",f,date()))
next
%>
</select>

- fennec

virker lige som det skal

måske du kan hjælpe med mit næste problem

hvordan tilrettet min sql så ?

If Request.Form("tmpdato") <> "" Then
    tmpdato = Request.Form("tmpdato")
Else   
    tmpdato = Month(date())
End If


strSQL = "SELECT * FROM Kalender WHERE Month(KalenderSlutdato) = " & tmpdato & " ORDER BY KalenderStartdato ASC"

Det kan jeg sikkert godt hjælpe med :o)
Men jeg mangler lidt info. Hvad er det du vil trække ud af databasen??

- fennec

her får du lige hele koden:

<table width="160" border="0" cellpadding="2" cellspacing="2">
            <tr align="left" valign="top">
              <td width="1" rowspan="2" class="Vsider">&nbsp;</td>
              <td width="2">&nbsp;</td>
              <td><img src="../pix/kalender.gif" width="138" height="29"></td>
            </tr>
            <tr align="left" valign="top">
              <td width="2">&nbsp;</td>
              <td>
                <% Menu = Request.querystring("Menu")
        Umenu = Request.querystring("Umenu") %>
                <form action="../indhold/indhold.asp?Menu=<%= Menu %>&Umenu=<%= Umenu %>" method="post" name="form1" target="iframe">
                  <select name="tmpdato" class="text_box" id="tmpdato" style="width:130;">
                    <option>- V&aelig;lg m&aring;ned -</option>
                    <%
                    for f=0 to 12
                          response.write "<option value='"& month(dateadd("m",f,date())) &"-"& year(dateadd("m",f,date())) &"'>"& monthName(month(dateadd("m",f,date()))) &" - "& year(dateadd("m",f,date()))
                    next
                    %>
                  </select>
                  <br><br>
                  <input name="vis" type="submit" value="Vis valgte" class="text_box">
                </form><strong>
<%
If Request.Form("tmpdato") <> "" Then
    tmpdato = Request.Form("tmpdato")
Else   
    tmpdato = Month(date())
End If

'Select case tmpdato
'case 1: Navn = "Januar"
'case 2: Navn = "Februar"
'case 3: Navn = "Marts"
'case 4: Navn = "Apris"
'case 5: Navn = "Maj"
'case 6: Navn = "Juni"
'case 7: Navn = "Juli"
'case 8: Navn = "August"
'case 9: Navn = "September"
'case 10: Navn = "Oktober"
'case 11: Navn = "November"
'case 12: Navn = "December"
'end select

'response.write Navn%></strong><br>
<br>
                <%
                strSQL = "SELECT * FROM Kalender WHERE Month(KalenderSlutdato) = " & tmpdato & " ORDER BY KalenderStartdato ASC"
                set rs = Conn.execute(strSQL)
        %>
                <%
            'hvis der ingen poster er i db
            if rs.EOF then
                response.Write("")

            else

            Do Until rs.EOF
%>
               
    <% KalenderTitel = rs("KalenderTitel") %>
    <a href="kalenderinfo.asp?KID=<%= rs("KalenderID") %>" class="menu" target="iframe" title="Læs mere om: <%= KalenderTitel %>">
    <b><font size="-2"><%= KalenderTitel %></font></b><br>
    <font size="-2"><%= rs("KalenderSted") %><br>
   
   
    <% If rs("KalenderStartdato") = rs("KalenderSlutdato") Then %>
   
    <%
    TmpDato = rs("KalenderStartdato")
        response.write FormatDateTime(TmpDato, vbLongDate)
    %>
    <% Else %>
    <% End If %>
    </font></a><br><br>
    <%
        RS.MoveNext
        Loop
    %>
   
                <% end if %>
                <% LukDB %>
              </td>
            </tr>
          </table>

Det er altså events/aktiviteter du vil trække ud??

Alle de events som har start eller slut dato inden for den valgte måned??

- fennec

Det er altså events/aktiviteter du vil trække ud??
- ja

Alle de events som har start eller slut dato inden for den valgte måned??
- ja, men en event kan godt strække sig over flere mdr.


Men der er jo sql'en som skal manepuleres.......

strSQL = "SELECT * FROM Kalender WHERE Month(KalenderSlutdato) = " & tmpdato & " ORDER BY KalenderStartdato ASC"

det er jo denne del Month(KalenderSlutdato) som skal være lig med <option value>,
kan man lave det noget i stil med Month(year(KalenderSlutdato) ?

ved godt ovenstående virker

Fint nok. Så laver vi lige selecten til en dato (den første i hver måned)

<select>
<%
for f=0 to 11
  TmpDato = dateserial(year(dateadd("m",f,date())),month(dateadd("m",f,date())),1)
  response.write "<option value='"& TmpDato &"'>"& monthName(month(TmpDato)) &" - "& year(TmpDato)
next
%>
</select>

Også kan du bruge denne sql:
strSQL = "SELECT * FROM Kalender WHERE KalenderStartdato < '"& dateadd("m",1,tmpdato) &"' and KalenderSlutdato > '" & tmpdato & "' ORDER BY KalenderStartdato ASC"

Den vælger alle hvor Startdato mindre end den sidste dato i måneden og Slutdato er størrer end den første i måneden. Desuden skal datoformatet sikkert afstemmes det som databasen bruger. Hvilken database er det??

- feccen

det er en access db.

Så skal der bruges # i stedet for '. Og Access bruger mm-dd-yyyy formatet. Formatat ændres med denne funktione:

Function ConvertToSqlDate(dato)
dim SQLYear,SQLMonth,SQLDay
  SQLYear = Year(dato)
  SQLMonth = Month(dato)
  SQLDay = Day(dato)
  if SQLDay<10 then
    SQLDay = 0&SQLDay
  end if
  if SQLMonth<10 then
    SQLMonth = 0&SQLMonth
  end if
  ConvertToSqlDate = SQLMonth&"-"&SQLDay&"-"&SQLYear
End Function
...
...
strSQL = "SELECT * FROM Kalender WHERE KalenderStartdato < #"& ConvertToSqlDate(dateadd("m",1,tmpdato)) &"# and KalenderSlutdato > #" & ConvertToSqlDate(tmpdato) & "# ORDER BY KalenderStartdato ASC"

får følgende sql udtræk ......... der må der være en fejl

SELECT * FROM Kalender WHERE KalenderStartdato < '09-02-1900' and KalenderSlutdato > '10' ORDER BY KalenderStartdato ASC

Smid lige dette i toppen af siden. Så kører ASP med dansk datoformat.

session.lcid = 1030

nyt sql udtræk

SELECT * FROM Kalender WHERE KalenderStartdato < #01-01-2005# and KalenderSlutdato > #12-01-2004# ORDER BY KalenderStartdato ASC

Det skulle være rigtigt. Så burde den finde alle i december måned (12-01-2004 <-> 01-01-2005)

- fennec

den udskriver bare ikke noget , selv om der er 5 indlæg i dec mdr.

Prøv at ændre denne:
ConvertToSqlDate = SQLMonth&"-"&SQLDay&"-"&SQLYear

til dette:
ConvertToSqlDate = SQLYear&"-"&SQLMonth&"-"&SQLDay

det virker ikke ... se her

http://www.skjernkulturcenter.dk/test/index.asp?Menu=2&Umenu=&Template=indhold

her kan du se alle indlæg i kalenderen

http://www.skjernkulturcenter.dk/test/index.asp

Hvis jeg vælger december få jeg 5 resultater. Er det ikke rigtigt??

nej der er ingen indlæg i december

her kan du se alle indlæg i kalenderen

http://www.skjernkulturcenter.dk/test/index.asp

drop lige et svar, så du kan få dine velfortjente points :-)

må finde en anden måde af lave udtræk på , måske noget med et felt i db'en kun
undeholder mdr og år

Du kan godt få et svar, men jeg vil nu hellere hjælpe med at finde en løsning.

Hvilken datatype er KalenderStartdato og KalenderSlutdato i database?? Er det tekst eller "dato og klokkeslet"?

du kan hente en kopi af kalender db her

http://www.skjernkulturcenter.dk/test/kalender.mdb

- fennec

det ville være helt kanon hvis du kan finde en løsning

Skal nok kikke på det i morgen, men nu tager jeg fri :o)

Denne skal virke:
ConvertToSqlDate = SQLMonth&"-"&SQLDay&"-"&SQLYear

Så får du sætninger som ser sådan ud, og da de kan køre i Access (får de rigtige resultater), kan de også køre i ASP:

(alle i oktober)
SELECT * from kalender where kalenderStartdato <#11-01-2004# and kalenderSlutdato > #10-01-2004# ORDER BY KalenderStartdato ASC

(alle i december)
SELECT * FROM Kalender WHERE KalenderStartdato < #01-01-2005# and KalenderSlutdato > #12-01-2004# ORDER BY KalenderStartdato ASC

Men du skal lige have ændret denne:
If Request.Form("tmpdato") <> "" Then
    tmpdato = Request.Form("tmpdato")
Else   
    tmpdato = Month(date())
End If

til:
If Request.Form("tmpdato") <> "" Then
    tmpdato = Request.Form("tmpdato")
Else   
    tmpdato = datesetial(year(date()),Month(date()),1)
End If

får denne fejl

Der opstod en Microsoft VBScript-kørselsfejl (0x800A000D)
Typer stemmer ikke overens: 'datesetial'

det er det her som det er galt med

If Request.Form("tmpdato") <> "" Then
    tmpdato = Request.Form("tmpdato")
Else   
    tmpdato = datesetial(year(date()),Month(date()),1)
End If

Det var en tyrk fejl fra min side :o)

dateserial(...)

- fennec

kanon kanon , nu virker det sku helt perfekt ........  :-)

Tusinde tak for hjælp

poster lige hele koden hvis nogen evt kan bruge den:

<table width="160" height="95%" border="0" cellpadding="2" cellspacing="2">
            <tr align="left" valign="top">
              <td width="1" rowspan="2" class="Vsider">&nbsp;</td>
              <td width="2">&nbsp;</td>
              <td height="29"><img src="../pix/kalender.gif" width="138" height="29"></td>
            </tr>
            <tr align="left" valign="top">
              <td width="2">&nbsp;</td>
              <td>
                <%    
                    Menu = Request.querystring("Menu")
                    Umenu = Request.querystring("Umenu")
                %>
                <form action="../indhold/indhold.asp?Menu=<%= Menu %>&Umenu=<%= Umenu %>" method="post" name="form1" target="iframe">
                  <select name="tmpdato" class="text_box" id="tmpdato" style="width:130;">
                    <option>- V&aelig;lg m&aring;ned -</option>
                    <%
                        for f=0 to 11
                          TmpDato = dateserial(year(dateadd("m",f,date())),month(dateadd("m",f,date())),1)
                          response.write "<option value='"& TmpDato &"'>"& monthName(month(TmpDato)) &" - "& year(TmpDato)
                        next
                    %>
                </select>
                  <br><br>
                  <input name="vis" type="submit" value="Vis valgte" class="text_box">
                </form>
<%
If Request.Form("tmpdato") <> "" Then
    tmpdato = Request.Form("tmpdato")
Else   
    tmpdato = dateserial(year(date()),Month(date()),1)
End If
%><br>
<br>
    <%
        Function ConvertToSqlDate(dato)
        dim SQLYear,SQLMonth,SQLDay
          SQLYear = Year(dato)
          SQLMonth = Month(dato)
          SQLDay = Day(dato)
          if SQLDay<10 then
            SQLDay = 0&SQLDay
          end if
          if SQLMonth<10 then
            SQLMonth = 0&SQLMonth
          end if
          ConvertToSqlDate = SQLMonth&"-"&SQLDay&"-"&SQLYear
        End Function
       
        strSQL = "SELECT * FROM Kalender WHERE KalenderStartdato < #"& ConvertToSqlDate(dateadd("m",1,tmpdato)) &"# and KalenderSlutdato > #" & ConvertToSqlDate(tmpdato) & "# ORDER BY KalenderStartdato ASC"
        set rs = Conn.execute(strSQL)
    %>
        <br><br>               
    <%
        'hvis der ingen poster er i db
        if rs.EOF then
            response.Write("")

        else

        Do Until rs.EOF
    %>
               
    <% KalenderTitel = rs("KalenderTitel") %>
    <a href="kalenderinfo.asp?KID=<%= rs("KalenderID") %>" class="menu" target="iframe" title="Læs mere om: <%= KalenderTitel %>">
    <b><font size="-2"><%= KalenderTitel %></font></b><br>
    <font size="-2"><%= rs("KalenderSted") %><br><br><br>
    <%= rs("KalenderStartdato") %><br><br>
    <%= rs("KalenderSlutdato") %><br><br>
    </font></a><br><br>
   
    <%
        RS.MoveNext
        Loop
    %>
   
    <% end if %>
    <% LukDB %>
              </td>
            </tr>
          </table>

Godt at høre at det virker.
.o) <-- One Eyed Jack