Ребята, у меня сайт газеты.. с mdb.

В неделю один раз добавляю номер.. работает нормально…
Только вот календарь что-то подводит..
Нажимаю на старые даты чтоб посмотреть старый номер газеты.. он открывает мне дату старую но с информацией последнего номера.
В чем может быть ошибка?
Помогите с советом плз,
может мне скрипт соурсе вставить сюда?
сайт работает на ASP.

в index.asp сперва загружается инклудом scripts.asp- там и находится код календаря, далее идет эт код:


автор<%
ConnOpen()
month_ = Right("00"&Trim(Request.QueryString("month_")), 2)
year_ = Trim(Request.QueryString("year_"))
If month_="" or year_="" Then
LastNomer()
day_ = Mid(CurrDate, 1, 2)
month_ = Mid(CurrDate, 4, 2)
year_ = Mid(CurrDate, 7, 4)
End If
day_ = Trim(Request.QueryString("day_"))
If Trim(day_)="" Then
day_ = FirstDayInMonth(month_, year_)
End If
day_ = Right("00"&day_, 2)
CurrDate = month_&"/"&day_&"/"&year_
CurrNomerF(month_&"/"&day_&"/"&year_)
%>
------------------

вот часть календаря в scripts.asp:

на верху вот такая фигня:[/li]

авторSub CurrNomerF(cdate)
day_ = Mid(cdate, 1, 2)
month_ = Mid(cdate, 4, 2)
year_ = Mid(cdate, 7, 4)

SQL = "SELECT TOP 1 * FROM art WHERE day(datest)="&day_&" AND month(datest)="&month_&" AND year(datest)="&year_&" ORDER BY nomern DESC;"
rst.Open SQL,Conn,3,1
If not rst.eof Then
CurrNomer = rst("nomern")
rst.Close
Else
rst.Close
LastNomer()
End If
End Sub

Function FirstDayInMonth(cmonth, cyear)
SQL = "SELECT TOP 1 day(datest) AS dd FROM art WHERE month(datest)="&month_&" AND year(datest)="&year_&" ORDER BY datest DESC;"
rst.Open SQL,Conn,3,1
FirstDayInMonth = 1
If not rst.eof Then
FirstDayInMonth = rst.fields.item("dd")
End If
rst.Close
End Function

Function Nomer_DateSt(id)
SQL = "SELECT TOP 1 * FROM art WHERE id="&id
rst.Open SQL,Conn,3,1
If Not rst.eof Then
datest = rst("datest")
cd = Right("0"&Day(datest),2)&"/"&Right("0"&Month(datest),2)&"/"&Year(datest)
Nomer_DateSt = cd & rst("nomern")
End If
rst.Close
End Function

Sub CurrDateF(cnomern)
SQL = "SELECT TOP 1 * FROM art WHERE nomern="&cnomern&" ORDER BY nomern DESC;"
rst.Open SQL,Conn,3,1
datest =rst("datest")
CurrDate = Right("0"&Day(datest),2)&"/"&Right("0"&Month(datest),2)&"/"&Year(datest)
rst.Close
End Sub

Sub LastNomer()
SQL = "SELECT TOP 1 * FROM art ORDER BY nomern DESC;"
rst.Open SQL,Conn,3,1
CurrNomer = rst("nomern")
datest =rst("datest")
CurrDate = Right("0"&Day(datest),2)&"/"&Right("0"&Month(datest),2)&"/"&Year(datest)
rst.Close
End Sub

Sub ShowDate(cdate)
Dim months
months = Array("Yanvar", "Fevral", "Mart", "Aprel", "May", "Iyun", "Iyul", "Avqust", "Sentyabr", "Oktyabr", "Noyabr", "Dekabr")
Response.Write Mid(cdate,1,2)&" "&months(Mid(cdate,4,2)*1-1)&" "&Mid(cdate,7,4)
End Sub

----------------





еще ниже, сам скпирт календаря:

авторSub Calendar(cmonth, cyear)
If cmonth = "" Then
cmonth = Mid(CurrDate,4,2)*1
End If
If cyear = "" Then
cyear = Mid(CurrDate,7,4)*1
End if

months = Array("Yanvar", "Fevral", "Mart", "Aprel", "May", "İyun", "İyul", "Avqust", "Sentyabr", "Oktyabr", "Noyabr", "Dekabr")

Set rst = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT DISTINCT datest, nomern FROM art WHERE year(datest)="&cyear&" AND month(datest)="&cmonth
rst.Open SQL,Conn,3,1

Response.Write "<table border=0 cellpadding=2 cellspacing=0 width=100%>"&chr(13)
Response.Write "<tr bgcolor=red align=center>"&chr(13)
Response.Write "<td width=14% class=txt><font color=white>Be.</font></td><td width=14% class=txt><font color=white>Ça.</font></td><td width=14% class=txt><font color=white>Ç.</font></td><td width=14% class=txt><font color=white>Ca.</font></td><td width=14% class=txt><font color=white>C.</font></td><td bgcolor=#221786 width=14% class=txt><font color=#ffffff>Ş.</font></td><td bgcolor=#221786 width=14% class=txt><font color=#ffffff>В.</font></td>"&chr(13)
Response.Write "</tr>"&chr(13)

kalendar = Array (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)
If weekday("01."&cmonth&"."&cyear) = 1 Then
d = 7
Else
d = weekday("01."&cmonth&"."&cyear) - 1
End If
If cmonth = 1 or cmonth = 3 or cmonth = 5 or cmonth = 7 or cmonth = 8 or cmonth = 10 or cmonth = 12 Then
mm = 31
Else
mm = 30
End If
If cmonth = 2 Then
If cyear / 4-int(cyear / 4) = 0 Then
mm = 29
Else
mm = 28
End If
End If
j = 0
For i = d - 1 To d + mm
j = j + 1
kalendar(i) = j
Next
i = 0
tt = 0
For k = 1 To int(((d + mm) / 7) + 1)
If tt = 1 and kalendar(i) > mm Then
Exit For
End If
Response.Write "<tr align=center>"
For j = 1 To 7
If cmonth - month(date) = 0 AND kalendar(i) - day(date) = 0 AND cyear - year(date) = 0 Then
Response.Write "<td bgcolor=red class=txt><font size=1>"
Else
If j = 6 OR j = 7 Then
Response.Write "<td class=txt><font size=1 color=#796DE7>"
Else
Response.Write "<td class=txt><font size=1>"
End If
End If
If kalendar(i) > 0 and kalendar(i) <= mm Then
If not rst.eof Then
If cmonth - month(rst("datest")) = 0 AND kalendar(i) - day(rst("datest")) = 0 AND cyear - year(rst("datest")) = 0 Then
If j = 6 OR j = 7 Then
Response.Write "<a href='index.asp?day_="&kalendar(i)&"&month_="&cmonth&"&year_="&cyear&"'><font color=#2B5374><b>"&kalendar(i)&"</a>"
Else
Response.Write "<a href='index.asp?day_="&kalendar(i)&"&month_="&cmonth&"&year_="&cyear&"'><font color=#000><b>"&kalendar(i)&"</a>"
End If
If not rst.eof Then
rst.MoveNext
End If
Else
Response.Write kalendar(i)
End If
Else
Response.Write kalendar(i)
End If
tt = 1
End If
Response.Write "</TD>"&chr(13)
i = i + 1
Next
Response.Write "</TR>"&chr(13)
j = j + 1
Next
Response.Write "<tr>"&chr(13)
Response.Write "<td colspan=7 align=center> </td>"&chr(13)
Response.Write "</tr>"&chr(13)
Response.Write "<tr>"&chr(13)
Response.Write "<td colspan=7 align=center>"&chr(13)

Response.Write "<form method=get action=index.asp>"&chr(13)
Response.Write "<select name=month_ class=txt>"&chr(13)
For i=1 to 12
ss = ""
if i-cmonth=0 then ss = " selected" end if
Response.Write "<option value="&i&" class=table "&ss&">"&months(i-1)&"</option>"&chr(13)
Next
Response.Write "</select>"&chr(13)
Response.Write "<select name=year_ class=txt>"&chr(13)
For i=2002 to 2005
ss = ""
if i-cyear=0 then ss = " selected" end if
Response.Write "<option value="&i&" class=table "&ss&">"&i&"</option>"&chr(13)
Next
Response.Write "</select><img src=null width=40 height=1><br>"&chr(13)
Response.Write "<input type=submit value=' Goster '>"&chr(13)

Response.Write "</td>"&chr(13)
Response.Write "</tr>"&chr(13)
Response.Write "</form>"&chr(13)
Response.Write "</table>"&chr(13)
rst.Close
End Sub




Модератор, сорри за длинный длинный код, если это проблема. У меня просто выхода нет, ошибку никак не могу найти (

Надеюсь, кто - нибудь поможет.
Спасибо заранее.


вот это, в MDB, запрос на выборку

называется query1.
2 таблицы.. nn и datets. в nn номер выпуска, а в datest дата выпуска.
если конструктором аккесс посмотреть, вот такой код лежит там:

SELECT MAX(nomern) AS nn, datest
FROM art
GROUP BY nomern, datest;

Ну, что посоветуете, знатоки ?