Привет всем.


Люди добрые, значит есть проблема которая задолбала меня, в прямом смысле этого слово.

Есть АСП скрипт для сайта газеты. Работает с Access Driver. То есть, считывает информацию с базы .mdb
Проблема в том что, когда я по фтп загрузил файлы.. уже в базе были записи, и когда открываю сайт, в новостях появляется именно те записи. Значит, он с базы считывает информации, вытаскивает на сайт. Правильно?
Есть еще и панель для админа: где можно добавить/удалить/редактировать номер газеты ( в номере новости, в новостях автора, картинки и так далее ), можно добавить/удалить/редактировать РАЗДЕЛЫ ( меню) форума, и о погоде, голосование И.Т.Д.

Значит, захожу я в эт чертовый панель админа…, нажимаю на список номеров, далее перехожу на список новостей… и все отлично показывает. Все разделы, номера, новости, текст он с базы берет. Считывает тоже нормально с базы. Так?

Проблема знаете в чем?
Я не могу добавить, удалить или редактировать через вэб админ панел. Стоит нажать на ДЕЛЕТЕ то переходит на пустую страницу. Или кнопку добавить. Тьфу !


Вот открываю у себя .mdb базу и пищу все что хочу. Делаю уплоад.. ну на сайте показывает, в админ панел тоже.
А через вэб админ панел ну никак не возможно добавить/удалить/редактировать! Вот блин, да?

Не подскажите, в чем проблема?? Может, какие то настройки нужно сделать на сервере?? Доступ дать на редактирование?


Вот линк на сайт:
http://www.rabita.az/azrabita/daz/test/index.asp

Линк на админ панел:
http://www.rabita.az/azrabita/daz/test/admin/admin.asp


*Если нужно, могу написать логин и пароль тоже для доступа.

paparome ,
Спасибо.
Щас попытаюсь с доступом разобраться.

А насчет пассворда.. эт тестовый сайт, ничего страшного не будет. Хотя чем черт не шутит?))

Ну уже все. Спасибо за совет, заработал !
Все работает !


Благодарю! :)

Еще вопрос,
Когда открывается сайт, он показывает номер 2002 года. А для того чтоб посмотреть 2004 год, 14 апреля надо переходить с помощью календаря.
Как сделать чтоб он открывал последний номер ??

Вот скипт:
calendar.asp


<%
if month_ = "" then month_=month(date) end if
if year_ = "" then year_=year(date) end if

months = Array("Январь","Февраль","Март","Апрель","Май","Июнь","Июль","Август","Сентябрь","Октябрь","Ноябрь","Декабрь")

set rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT DISTINCT [date] FROM news WHERE year([date])="&year_&" AND month([date])="&month_
rs.Open SQL,Conn,3,1
%>
<table border=1 cellpadding=0 cellspacing=1 width=140 class=txt bordercolor=#9e9e9e>

<tr bgcolor=#ffcc00>
<td width=14%>Пн.</td><td width=14%>Вт.</td><td width=14%>Ср.</td><td width=14%>Чт.</td><td width=14%>Пт.</td><td bgcolor="#2B5374" width=14%><font color=#ffffff>Сб.</td><td bgcolor="#2B5374" width=14%><font color=#ffffff>Вс.</td>
</tr>
<%
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."&month_&"."&year_) = 1 then
d = 7
else
d = weekday("01."&month_&"."&year_) - 1
end if
if month_ = 1 or month_ = 3 or month_ = 5 or month_ = 7 or month_ = 8 or month_ = 10 or month_ = 12 then
mm = 31
else
mm = 30
end if
if month_ = 2 then
if year_ / 4-int(year_ / 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 bgcolor=#f4f4f4>"
for j = 1 to 7
if month_ - month(date) = 0 AND kalendar(i) - day(date) = 0 AND year_ - year(date) = 0 then
response.write "<td bgcolor=#ffcc00>"
else
if j = 6 or j = 7 then
response.write "<td><font color=#2B5374> "
else
response.write "<td> "
end if
end if
if kalendar(i) > 0 and kalendar(i) <= mm then
if not rs.eof then
if month_ - month(rs("date")) = 0 AND kalendar(i) - day(rs("date")) = 0 AND year_ - year(rs("date")) = 0 then
if j = 6 or j = 7 then
response.write "<a href=news.asp?day="&kalendar(i)&"&month="&month_&"&year="&year_&"&mm=1 class=cal><font color=#2B5374><b>"&kalendar(i)&"</a>"
else
response.write "<a href=news.asp?day="&kalendar(i)&"&month="&month_&"&year="&year_&"&mm=1 class=cal><font color=#000><b>"&kalendar(i)&"</a>"
end if
if not rs.eof then
rs.movenext
end if
else
response.write kalendar(i)
end if
else
response.write kalendar(i)
end if
tt = 1
end if
response.write "</TD>"
i = i + 1
next
response.write "</TR>"
j = j + 1
next
%>
</table>

еще есть script.asp, так вот там тоже что то с датой... боюсь скопировать сюда, 477 строк скрипта там )))

еще, в index.asp ан верху такая фигня есть)


<%
ConnOpen()
month_ = Right("00"&Trim(Request.QueryString("month_")), 2)
year_ = Trim(Request.QueryString("year_"))
If month_="" or year_="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 = day_&"/"&month_&"/"&year_
CurrNomerF(day_&"/"&month_&"/"&year_)
%>

ПОМОГИТЕ ! ПЛЗ!

)) спасибо,
я понял в чем проблема... он показывает последний номер. То что нужно. Кое что исправил, и все работает )