opsætning af recorder

Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT [Forfatter],[Dato],[Tekst],[Overskrift] FROM news ORDER BY [id] DESC"
rs.Open sql, cn, 3, 4

        Function MyDateFormat(thedate)
              Dim m, d, y, mdArr
              mdArr = Split("Januar,Februar,Marts,April,Maj,Juni,Juli,August,September,Oktober,November,December",",")
              m = mdArr(Month(CDate(thedate))-1)
              d = day(Cdate(thedate))
              y = year(Cdate(thedate))
              MyDateFormat = m & " " & d & ". " & y
        End Function

If Not (rs.BOF Or rs.EOF) Then
    response.write "nyheder<br /><br />"

    Do While Not rs.EOF
   
        strForfatter = rs("Forfatter")
        strOverskrift = rs("Overskrift")
        strTekst = rs("Tekst")
        strDate = rs("Dato")


if month(strDate) = maaned then
       
          response.write "<b>" & MyDateFormat(strDate) & " - " & strOverskrift & "<b/><br /><br />" & _
                      strTekst & "<br /><br />" & _
                      "Skrevet af " & strForfatter & ".<br /><br />"
else
mdArr = Split("Januar,Februar,Marts,April,Maj,Juni,Juli,August,September,Oktober,November,December",",")

response.write mdArr(month(strDate)-1)
`response.write "<b>" & MyDateFormat(strDate) & " - " & strOverskrift & "<b/><br /><br />" & _
                      strTekst & "<br /><br />" & _
                      "Skrevet af " & strForfatter & ".<br /><br />"

End If
maaned = month(strDate)
    rs.MoveNext
    Loop
    Response.Write ""
    else
    Response.Write "Der er endnu ikke nogle Nyheder"
end if
%>
Sådan her vil jeg tro... Dog kræver den her kodning at dine indlæg er indsat i tabellen efter dato, altså selvom du order by id, skal datoerne også være sat i rækkefølge. I hvert fald efter måned.

fx. må der i tabellen ikke stå.
dato:
24-09-2004
3-08-2004
23-09-2004

hvis der gør det så laver vi lidt om på det ;-)

glemte lige at den skal MAX skal udskrife de 2 nyeste nyheder fra en månede og selvf. for hvert år.

EKS.

nyheder

2003
Marts

Marts 1. 2004 - test test 1
egw r ty w try et ryret
Skrevet af nr 12.


Januar

Januar 17. 2004 - test 11
trh uyk i kl yu
Skrevet af test3.


2003
Juli

Juli 1. 2003 - test test 1
egw r ty w try et ryret
Skrevet af nr 12.

Juni 17. 2003 - test 11
trh uyk i kl yu
Skrevet af test3.


dette kunen evt være et eks på fremvisning

der står datoer som

27-03-2004 osv osv

2003
Marts


skulle være

2004
Marts

Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT top 2 [Forfatter],[Dato],[Tekst],[Overskrift] FROM news group by month(dato) ORDER BY [id] DESC"
rs.Open sql, cn, 3, 4

        Function MyDateFormat(thedate)
              Dim m, d, y, mdArr
              mdArr = Split("Januar,Februar,Marts,April,Maj,Juni,Juli,August,September,Oktober,November,December",",")
              m = mdArr(Month(CDate(thedate))-1)
              d = day(Cdate(thedate))
              y = year(Cdate(thedate))
              MyDateFormat = m & " " & d & ". " & y
        End Function

If Not (rs.BOF Or rs.EOF) Then
    response.write "nyheder<br /><br />"

    Do While Not rs.EOF
   
        strForfatter = rs("Forfatter")
        strOverskrift = rs("Overskrift")
        strTekst = rs("Tekst")
        strDate = rs("Dato")


if month(strDate) = maaned then

          response.write "<b>" & MyDateFormat(strDate) & " - " & strOverskrift & "<b/><br /><br />" & _
                      strTekst & "<br /><br />" & _
                      "Skrevet af " & strForfatter & ".<br /><br />"
else
mdArr = Split("Januar,Februar,Marts,April,Maj,Juni,Juli,August,September,Oktober,November,December",",")

response.write mdArr(month(strDate)-1)
`response.write "<b>" & MyDateFormat(strDate) & " - " & strOverskrift & "<b/><br /><br />" & _
                      strTekst & "<br /><br />" & _
                      "Skrevet af " & strForfatter & ".<br /><br />"

End If
maaned = month(strDate)
    rs.MoveNext
    Loop
    Response.Write ""
    else
    Response.Write "Der er endnu ikke nogle Nyheder"
end if
%>

Prøv sådan her, måske virker det.

jeg får denne fejl

Tegnet er ugyldigt
index.asp, line 59
`response.write "<b>" & MyDateFormat(strDate) & " - " & strOverskrift & "<b/><br /><br />" & _

skal det tegn være der !??

jeg tror det ikke så slettede det men så fik jeg denne
Microsoft][ODBC Microsoft Access-driver] Du har forsøgt at køre en forespørgsel, der ikke medtager det angivne udtryk "Forfatter" som en del af en aggregatfunktion.
index.asp, line 28

og forfatter findes i databasen !!

Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT top 2 * FROM news group by month(dato) ORDER BY [id] DESC"
rs.Open sql, cn, 3, 4

        Function MyDateFormat(thedate)
              Dim m, d, y, mdArr
              mdArr = Split("Januar,Februar,Marts,April,Maj,Juni,Juli,August,September,Oktober,November,December",",")
              m = mdArr(Month(CDate(thedate))-1)
              d = day(Cdate(thedate))
              y = year(Cdate(thedate))
              MyDateFormat = m & " " & d & ". " & y
        End Function

If Not (rs.BOF Or rs.EOF) Then
    response.write "nyheder<br /><br />"

    Do While Not rs.EOF
   
        strForfatter = rs("Forfatter")
        strOverskrift = rs("Overskrift")
        strTekst = rs("Tekst")
        strDate = rs("Dato")


if month(strDate) = maaned then

          response.write "<b>" & MyDateFormat(strDate) & " - " & strOverskrift & "<b/><br /><br />" & _
                      strTekst & "<br /><br />" & _
                      "Skrevet af " & strForfatter & ".<br /><br />"
else
mdArr = Split("Januar,Februar,Marts,April,Maj,Juni,Juli,August,September,Oktober,November,December",",")

response.write mdArr(month(strDate)-1)
response.write "<b>" & MyDateFormat(strDate) & " - " & strOverskrift & "<b/><br /><br />" & _
                      strTekst & "<br /><br />" & _
                      "Skrevet af " & strForfatter & ".<br /><br />"

End If
maaned = month(strDate)
    rs.MoveNext
    Loop
    Response.Write ""
    else
    Response.Write "Der er endnu ikke nogle Nyheder"
end if
%>

Det tegn var lige en fejl jeg fik lavet :-)
Og mht. det andet tror jeg det her løser det problem i hvert fald..

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access-driver] Der kan ikke grupperes efter felter, der er markeret med "*".
index.asp, line 28

Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT top 2 * FROM news ORDER BY [id] DESC"
rs.Open sql, cn, 3, 4

        Function MyDateFormat(thedate)
              Dim m, d, y, mdArr
              mdArr = Split("Januar,Februar,Marts,April,Maj,Juni,Juli,August,September,Oktober,November,December",",")
              m = mdArr(Month(CDate(thedate))-1)
              d = day(Cdate(thedate))
              y = year(Cdate(thedate))
              MyDateFormat = m & " " & d & ". " & y
        End Function

If Not (rs.BOF Or rs.EOF) Then
    response.write "nyheder<br /><br />"
i = 0
    Do While Not rs.EOF
   
        strForfatter = rs("Forfatter")
        strOverskrift = rs("Overskrift")
        strTekst = rs("Tekst")
        strDate = rs("Dato")


if month(strDate) = maaned then
if not i = 1 then
          response.write "<b>" & MyDateFormat(strDate) & " - " & strOverskrift & "<b/><br /><br />" & _
                      strTekst & "<br /><br />" & _
                      "Skrevet af " & strForfatter & ".<br /><br />"
i = 1
end if
else
mdArr = Split("Januar,Februar,Marts,April,Maj,Juni,Juli,August,September,Oktober,November,December",",")

response.write mdArr(month(strDate)-1)
response.write "<b>" & MyDateFormat(strDate) & " - " & strOverskrift & "<b/><br /><br />" & _
                      strTekst & "<br /><br />" & _
                      "Skrevet af " & strForfatter & ".<br /><br />"
i = 0

End If
maaned = month(strDate)
    rs.MoveNext
    Loop
    Response.Write ""
    else
    Response.Write "Der er endnu ikke nogle Nyheder"
end if
%>

Sådan her muligvis i stedet så...

virker ikke den skriver KUN de første 2 recorder og ikek de 2 første fra hver månede

og den skriver ikek det med årstallet kun:

nyheder

Juli
Juli 1. 2003 - test test 1

wegw r ty w try et ryret

Skrevet af nr 12.

Juni
Juni 17. 2003 - test 11

trh uyk i kl yu

Skrevet af test3.


OG juli skriver den alm. men Juni skriver den med FED skrift !??

Self...

Det var mig der havde lavet en fejl ;-)

Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT top 2 * FROM news ORDER BY [id] DESC"
rs.Open sql, cn, 3, 4

        Function MyDateFormat(thedate)
              Dim m, d, y, mdArr
              mdArr = Split("Januar,Februar,Marts,April,Maj,Juni,Juli,August,September,Oktober,November,December",",")
              m = mdArr(Month(CDate(thedate))-1)
              d = day(Cdate(thedate))
              y = year(Cdate(thedate))
              MyDateFormat = m & " " & d & ". " & y
        End Function

If Not (rs.BOF Or rs.EOF) Then
    response.write "nyheder<br /><br />"
i = 0
    Do While Not rs.EOF
   
        strForfatter = rs("Forfatter")
        strOverskrift = rs("Overskrift")
        strTekst = rs("Tekst")
        strDate = rs("Dato")


if month(strDate) = maaned then
if not i = 1 then
          response.write "<b>" & MyDateFormat(strDate) & " - " & strOverskrift & "<b/><br /><br />" & _
                      strTekst & "<br /><br />" & _
                      "Skrevet af " & strForfatter & ".<br /><br />"
i = 1
end if
else
mdArr = Split("Januar,Februar,Marts,April,Maj,Juni,Juli,August,September,Oktober,November,December",",")
response.write mdArr(year(strDate)) & "<br>"
response.write mdArr(month(strDate)-1)
response.write "<b>" & MyDateFormat(strDate) & " - " & strOverskrift & "<b/><br /><br />" & _
                      strTekst & "<br /><br />" & _
                      "Skrevet af " & strForfatter & ".<br /><br />"
i = 0
maaned = month(strDate)
End If

    rs.MoveNext
    Loop
    Response.Write ""
    else
    Response.Write "Der er endnu ikke nogle Nyheder"
end if
%>

får denne fejl nu !!

Der opstod en Microsoft VBScript-kørselsfejl (0x800A0009)
Indekset er uden for området: 'year(...)'
/news/index.asp, line 59

response.write mdArr(year(strDate)) & "<br>"

Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT top 2 * FROM news ORDER BY [id] DESC"
rs.Open sql, cn, 3, 4

        Function MyDateFormat(thedate)
              Dim m, d, y, mdArr
              mdArr = Split("Januar,Februar,Marts,April,Maj,Juni,Juli,August,September,Oktober,November,December",",")
              m = mdArr(Month(CDate(thedate))-1)
              d = day(Cdate(thedate))
              y = year(Cdate(thedate))
              MyDateFormat = m & " " & d & ". " & y
        End Function

If Not (rs.BOF Or rs.EOF) Then
    response.write "nyheder<br /><br />"
i = 0
    Do While Not rs.EOF
   
        strForfatter = rs("Forfatter")
        strOverskrift = rs("Overskrift")
        strTekst = rs("Tekst")
        strDate = rs("Dato")


if month(strDate) = maaned then
if not i = 1 then
          response.write "<b>" & MyDateFormat(strDate) & " - " & strOverskrift & "<b/><br /><br />" & _
                      strTekst & "<br /><br />" & _
                      "Skrevet af " & strForfatter & ".<br /><br />"
i = 1
end if
else
mdArr = Split("Januar,Februar,Marts,April,Maj,Juni,Juli,August,September,Oktober,November,December",",")
response.write year(strDate) & "<br>"
response.write mdArr(month(strDate)-1)
response.write "<b>" & MyDateFormat(strDate) & " - " & strOverskrift & "<b/><br /><br />" & _
                      strTekst & "<br /><br />" & _
                      "Skrevet af " & strForfatter & ".<br /><br />"
i = 0
maaned = month(strDate)
End If

    rs.MoveNext
    Loop
    Response.Write ""
    else
    Response.Write "Der er endnu ikke nogle Nyheder"
end if
%>

Sådan her så skulle den gerne være der...

okay den skriver stadigvæk kun de 2 nyeste nyheder ialt og ikke de 2 nyeste nyheder per mdr.

og så skriver den årstal over alle nyheder som dette:

2003
Juli
Juli 1. 2003 - test test 1

æøå wegw r ty w try et ryret

Skrevet af nr 12.

2003
Juni
Juni 17. 2003 - test 11

trh uyk i kl yu

Skrevet af test3.

og det skal den ikke den skal kun skrive det over den nyeste nyhed for året og så den måde den skriver det nu bare med top 2 nyheder for hver månede og ikke top 2 ialt for alle nyheder.

Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT top 2 * FROM news ORDER BY [id] DESC"
rs.Open sql, cn, 3, 4

        Function MyDateFormat(thedate)
              Dim m, d, y, mdArr
              mdArr = Split("Januar,Februar,Marts,April,Maj,Juni,Juli,August,September,Oktober,November,December",",")
              m = mdArr(Month(CDate(thedate))-1)
              d = day(Cdate(thedate))
              y = year(Cdate(thedate))
              MyDateFormat = m & " " & d & ". " & y
        End Function

If Not (rs.BOF Or rs.EOF) Then
    response.write "nyheder<br /><br />"
i = 0
    Do While Not rs.EOF
   
        strForfatter = rs("Forfatter")
        strOverskrift = rs("Overskrift")
        strTekst = rs("Tekst")
        strDate = rs("Dato")


if month(strDate) = maaned then
if i <> 1 then
          response.write "<b>" & MyDateFormat(strDate) & " - " & strOverskrift & "<b/><br /><br />" & _
                      strTekst & "<br /><br />" & _
                      "Skrevet af " & strForfatter & ".<br /><br />"
i = 1
end if
else
mdArr = Split("Januar,Februar,Marts,April,Maj,Juni,Juli,August,September,Oktober,November,December",",")
if year(strDate) <> aar then
response.write year(strDate) & "<br>"
aar = year(strDate)
end if
response.write mdArr(month(strDate)-1)
response.write "<b>" & MyDateFormat(strDate) & " - " & strOverskrift & "<b/><br /><br />" & _
                      strTekst & "<br /><br />" & _
                      "Skrevet af " & strForfatter & ".<br /><br />"
i = 0
maaned = month(strDate)
End If

    rs.MoveNext
    Loop
    Response.Write ""
    else
    Response.Write "Der er endnu ikke nogle Nyheder"
end if
%>

prøv lige det her.,

okay nu viser den det som dette:

nyheder

2003
JuliJuli 1. 2003 - test test 1

æøå wegw r ty w try et ryret

Skrevet af nr 12.

JuniJuni 17. 2003 - test 11

trh uyk i kl yu

Skrevet af test3.

så den del ser ok ud men den viser jo ikke TOP 2 nyheder for hver månede KUN de seneste 2 nyheder. !!  Så jeg kan ikke se om det virker med er andet årstal !!

Det er mystisk synes jeg at den kun skriver de første 2



Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT top 2 * FROM news ORDER BY [id] DESC"
rs.Open sql, cn, 3, 4

        Function MyDateFormat(thedate)
              Dim m, d, y, mdArr
              mdArr = Split("Januar,Februar,Marts,April,Maj,Juni,Juli,August,September,Oktober,November,December",",")
              m = mdArr(Month(CDate(thedate))-1)
              d = day(Cdate(thedate))
              y = year(Cdate(thedate))
              MyDateFormat = m & " " & d & ". " & y
        End Function

If Not (rs.BOF Or rs.EOF) Then
    response.write "nyheder<br /><br />"
i = 0
    Do While Not rs.EOF
   
        strForfatter = rs("Forfatter")
        strOverskrift = rs("Overskrift")
        strTekst = rs("Tekst")
        strDate = rs("Dato")


if month(strDate) = maaned then
if i <> 1 then
          response.write "<b>" & MyDateFormat(strDate) & " - " & strOverskrift & "<b/><br /><br />" & _
                      strTekst & "<br /><br />" & _
                      "Skrevet af " & strForfatter & ".<br /><br />"
i = 1
end if
else
mdArr = Split("Januar,Februar,Marts,April,Maj,Juni,Juli,August,September,Oktober,November,December",",")
if year(strDate) <> aar then
response.write year(strDate) & "<br>"
aar = year(strDate)
end if
response.write mdArr(month(strDate)-1)
response.write "<b>" & MyDateFormat(strDate) & " - " & strOverskrift & "<b/><br /><br />" & _
                      strTekst & "<br /><br />" & _
                      "Skrevet af " & strForfatter & ".<br /><br />"
i = 0
maaned = month(strDate)
End If
response.write "**** & i & "*****<br>"
    rs.MoveNext
    Loop
    Response.Write ""
    else
    Response.Write "Der er endnu ikke nogle Nyheder"
end if
%>

Vis lige den her, hvad den skriver

nope :) www.p2u.dk/news/index.asp

Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT top 2 * FROM news ORDER BY [id] DESC"
rs.Open sql, cn, 3, 4

        Function MyDateFormat(thedate)
              Dim m, d, y, mdArr
              mdArr = Split("Januar,Februar,Marts,April,Maj,Juni,Juli,August,September,Oktober,November,December",",")
              m = mdArr(Month(CDate(thedate))-1)
              d = day(Cdate(thedate))
              y = year(Cdate(thedate))
              MyDateFormat = m & " " & d & ". " & y
        End Function

If Not (rs.BOF Or rs.EOF) Then
    response.write "nyheder<br /><br />"
i = "nul"
    Do While Not rs.EOF
   
        strForfatter = rs("Forfatter")
        strOverskrift = rs("Overskrift")
        strTekst = rs("Tekst")
        strDate = rs("Dato")


if month(strDate) = maaned then
if i = "foerste" then
          response.write "<b>" & MyDateFormat(strDate) & " - " & strOverskrift & "<b/><br /><br />" & _
                      strTekst & "<br /><br />" & _
                      "Skrevet af " & strForfatter & ".<br /><br />"
i = "anden"
end if
else
mdArr = Split("Januar,Februar,Marts,April,Maj,Juni,Juli,August,September,Oktober,November,December",",")
if year(strDate) <> aar then
response.write year(strDate) & "<br>"
aar = year(strDate)
end if
response.write mdArr(month(strDate)-1)
response.write "<b>" & MyDateFormat(strDate) & " - " & strOverskrift & "<b/><br /><br />" & _
                      strTekst & "<br /><br />" & _
                      "Skrevet af " & strForfatter & ".<br /><br />"
i = "foerste"
maaned = month(strDate)
End If
response.write "**** & i & "*****<br>"
    rs.MoveNext
    Loop
    Response.Write ""
    else
    Response.Write "Der er endnu ikke nogle Nyheder"
end if
%>

fatter dykkerbriller af hvorfor det ikke virker, koden ser god nok ud synes jeg..
Prøv lige den her så.

nej desværrer se linket !! :)

Hvor mange poster har du i databasen ?

uhh 10-12 stykker !!

www.p2u.dk/news/default.asp

Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT top 2 * FROM news ORDER BY [id] DESC"
rs.Open sql, cn, 3, 4

        Function MyDateFormat(thedate)
              Dim m, d, y, mdArr
              mdArr = Split("Januar,Februar,Marts,April,Maj,Juni,Juli,August,September,Oktober,November,December",",")
              m = mdArr(Month(CDate(thedate))-1)
              d = day(Cdate(thedate))
              y = year(Cdate(thedate))
              MyDateFormat = m & " " & d & ". " & y
        End Function

If Not (rs.BOF Or rs.EOF) Then
    response.write "nyheder<br /><br />"
i = "nul"
    Do While Not rs.EOF
   
        strForfatter = rs("Forfatter")
        strOverskrift = rs("Overskrift")
        strTekst = rs("Tekst")
        strDate = rs("Dato")


if month(strDate) = maaned then
if i = "foerste" then
          response.write "<b>" & MyDateFormat(strDate) & " - " & strOverskrift & "<b/><br /><br />" & _
                      strTekst & "<br /><br />" & _
                      "Skrevet af " & strForfatter & ".<br /><br />"
response.write "**** & i & "*****<br>"

i = "anden"
end if
else
mdArr = Split("Januar,Februar,Marts,April,Maj,Juni,Juli,August,September,Oktober,November,December",",")
if year(strDate) <> aar then
response.write year(strDate) & "<br>"
aar = year(strDate)
end if
response.write mdArr(month(strDate)-1)
response.write "<b>" & MyDateFormat(strDate) & " - " & strOverskrift & "<b/><br /><br />" & _
                      strTekst & "<br /><br />" & _
                      "Skrevet af " & strForfatter & ".<br /><br />"
i = "foerste"
maaned = month(strDate)
End If
response.write "**** & i & "*****<br>"
    rs.MoveNext
    Loop
    Response.Write ""
    else
    Response.Write "Der er endnu ikke nogle Nyheder"
end if
%>

Prøv den her...

Bliver nødt til at smutte i seng, men vender tilbage i morgen...

nope men

dette er dit seneste script www.p2u.dk/news/index.asp
dette er de recorder der findes www.p2u.dk/news/default.asp

når vi kommer ikke længere kan jeg se vil du lægge et svar fordi du prøvede at hjælpe !?

Ja, du får et svar her, virker det stadig ikke =

nej over hovedet ikke men får hjælp på Experts-Exchange

Oki lækkert nok ;-)

Takker for points, håber du får det til at virke, ellers så sig til.

jeg har fået en løsning men skal have lavet noget så jeg kan få vist nyhederne fra en bestemt månede altså hvis jeg har 3 nyheder i en månede så skal jeg kunne klikke på tallet og få vist de nyheder på newslist.asp

har dette www.p2u.dk/news/eetest2.asp