Вывод последних новостей

@pipok · Регистрация: 21.04.2007

Студворк — интернет-сервис помощи студентам

Эх, задолбало меня такое положение вещей, что не делаю, а приходится спрашивать...

Идея очень проста и вроде бы легко реализуема, но
неработает! Это новости, где пользователь может вывести новости, например за последнюю неделю.
Вот кусок скрипта:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
nDays = Request.Cookies('News')('days')
 
if Request.form('cookie') = 'true' then
    'Response.Cookies('News')('types') = Request.Form('types')
    Response.Cookies('News')('days') = Request.Form('days')
    Response.Cookies('News').expires = date + 365
    'Types = Request.Form('types')
    nDays = Request.Form('days')
End If
 
if nDays = '' then
    nDays = 30
End If
 
defDate = dateadd('d', -cint(nDays), date)
 
set rs = Server.CreateObject('ADODB.Recordset')
sql = 'SELECT * FROM News '
sql = sql & 'WHERE date > '#' & defDate & '#' '
sql = sql & 'ORDER BY Date DESC'
rs.open  sql, my_conn, 3

20.05.2007, 14:50

Есть ли ошибка? если да, то на какую строку ругается?

1) Response.Cookies('News').expires = dateadd('d',365,date) вместо
Response.Cookies('News').expires = date + 365
2) в запросе, вместо date>#my_date# написать date>'my_date', если не поможет - то посмотреть, что в defDate - если точки, то заменить на слеш

@pipok · 20.05.2007, 16:18 **[ТС]**

Вроде ничего не помогает, уже неделю парюсь с этой лабудой.

Вот чего пишет...
Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][Äðàéâ&aring ;ð ODBC Microsoft Access] Íåñîî&og rave;âåòñ&ogra ve;âèå òèïîâ äàííû&ot ilde; â âûðàæ&aring ;íèè óñëîâ&egr ave;ÿ îòáîð&agra ve;.

/enclave/news.asp, line 165

20.05.2007, 16:44

У тебя написано:
Access - Несоответствие типов данных в выражении условия отбора
Во-первых, если у тебя поле Date называется - то это слово является зарезервированным в Access (http://www.aspfaq.com/faq/faqShow.asp?fid=141). Попробуй вместо Date написать news.date
Во-вторых, перед rs.open... поставь Response.write(sql) и посмотри, что у тебя за запрос, и напиши его сюда, попробуем разобраться

@pipok · 20.05.2007, 18:43 **[ТС]**

Нет, ничего не помогает.

20.05.2007, 18:58

Добавь Session.LCID=1049
Попробуй выполнить следующие запросы:

SELECT * FROM News WHERE news.date > '01.12.2000' ORDER BY news.Date DESC

SELECT * FROM News WHERE news.date > '20/12/2000' ORDER BY news.Date DESC

SELECT * FROM News WHERE news.date > #12/20/2000# ORDER BY news.Date DESC

SELECT * FROM News WHERE news.date > #20/12/2000# ORDER BY news.Date DESC

Какой-то из них обязательно заработает - напиши какой (подозреваю, что первый).

@pipok · 20.05.2007, 20:46 **[ТС]**

первые два неработает, третий работает, но, но только если ввести туда числа в ручую, то всё ок, но стоит написать чтонить подобное
sql = 'SELECT * FROM News '
sql = sql & 'WHERE Data > #' & month(defDate) & '/' & day(defDate) & '/' & year(defDate) & '# '
sql = sql & 'ORDER BY Data DESC;' как вылетит такая мессага:
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][Äðàéâ&aring ;ð ODBC Microsoft Access] Ñëèøê&ic irc;ì ìàëî ïàðàì&arin g;òðîâ. Òðåáó&ari ng;òñÿ 1.

/enclave/news.asp, line 169
если долго извращатся, то вылетает много чего, но в основном:

Microsoft][Äðàéâ&aring ;ð ODBC Microsoft Access] Òàáëè&o uml;à 'News' óæå îòêðû&ograv e;à äðóãè&igra ve; ïîëüçî âàòåë&ari ng;ì äëÿ ìîíîï&ici rc;ëüíîã&i circ; äîñòó&iu ml;à èëè îòêðû&ograv e;à â èíòåð&agr ave;êòèâ&iacut e;îì ðåæèì&arin g; è íå ìîæåò áûòü èçìåí& aring;íà â ïðîãðà& igrave;ìå.

Заколебало меня, я пытался изменить формат даты в БД, но ничего она не изменилась

(

@pipok · 20.05.2007, 21:02 **[ТС]**

Всё! Работает! Ты мне помог, это я там кое чего незаметное забыл изменить, сделал так:
.....
<%
defDate = dateadd('d', -cint(nDays), now)
NewsDate = month(defDate) & '/' & day(defDate) & '/' & year(defDate)

sql = 'SELECT * FROM News WHERE news.date > #' & NewsDate & '# ORDER BY news.Date DESC;'
%>
.....

Фу, ща ещё пару разных наворотов сделать и новости готовы...

Новые блоги и статьи Все статьи Все блоги /
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .

Sergik
	20.05.2007, 14:50
	Есть ли ошибка? если да, то на какую строку ругается? 1) Response.Cookies('News').expires = dateadd('d',365,date) вместо Response.Cookies('News').expires = date + 365 2) в запросе, вместо date>#my_date# написать date>'my_date', если не поможет - то посмотреть, что в defDate - если точки, то заменить на слеш

@pipok 0 / 0 / 0 Регистрация: 21.04.2007 Сообщений: 156
	20.05.2007, 16:18 [ТС]
	Вроде ничего не помогает, уже неделю парюсь с этой лабудой. Вот чего пишет... Microsoft OLE DB Provider for ODBC Drivers error '80040e07' [Microsoft][Äðàéâ&aring ;ð ODBC Microsoft Access] Íåñîî&og rave;âåòñ&ogra ve;âèå òèïîâ äàííû&ot ilde; â âûðàæ&aring ;íèè óñëîâ&egr ave;ÿ îòáîð&agra ve;. /enclave/news.asp, line 165 0

Sergik
	20.05.2007, 16:44
	У тебя написано: Access - Несоответствие типов данных в выражении условия отбора Во-первых, если у тебя поле Date называется - то это слово является зарезервированным в Access (http://www.aspfaq.com/faq/faqShow.asp?fid=141). Попробуй вместо Date написать news.date Во-вторых, перед rs.open... поставь Response.write(sql) и посмотри, что у тебя за запрос, и напиши его сюда, попробуем разобраться

@pipok 0 / 0 / 0 Регистрация: 21.04.2007 Сообщений: 156
	20.05.2007, 18:43 [ТС]
	Нет, ничего не помогает. 0

Sergik
	20.05.2007, 18:58
	Добавь Session.LCID=1049 Попробуй выполнить следующие запросы: SELECT * FROM News WHERE news.date > '01.12.2000' ORDER BY news.Date DESC SELECT * FROM News WHERE news.date > '20/12/2000' ORDER BY news.Date DESC SELECT * FROM News WHERE news.date > #12/20/2000# ORDER BY news.Date DESC SELECT * FROM News WHERE news.date > #20/12/2000# ORDER BY news.Date DESC Какой-то из них обязательно заработает - напиши какой (подозреваю, что первый).

@pipok 0 / 0 / 0 Регистрация: 21.04.2007 Сообщений: 156
	20.05.2007, 20:46 [ТС]
	первые два неработает, третий работает, но, но только если ввести туда числа в ручую, то всё ок, но стоит написать чтонить подобное sql = 'SELECT * FROM News ' sql = sql & 'WHERE Data > #' & month(defDate) & '/' & day(defDate) & '/' & year(defDate) & '# ' sql = sql & 'ORDER BY Data DESC;' как вылетит такая мессага: Microsoft OLE DB Provider for ODBC Drivers error '80040e10' [Microsoft][Äðàéâ&aring ;ð ODBC Microsoft Access] Ñëèøê&ic irc;ì ìàëî ïàðàì&arin g;òðîâ. Òðåáó&ari ng;òñÿ 1. /enclave/news.asp, line 169 если долго извращатся, то вылетает много чего, но в основном: Microsoft][Äðàéâ&aring ;ð ODBC Microsoft Access] Òàáëè&o uml;à 'News' óæå îòêðû&ograv e;à äðóãè&igra ve; ïîëüçî âàòåë&ari ng;ì äëÿ ìîíîï&ici rc;ëüíîã&i circ; äîñòó&iu ml;à èëè îòêðû&ograv e;à â èíòåð&agr ave;êòèâ&iacut e;îì ðåæèì&arin g; è íå ìîæåò áûòü èçìåí& aring;íà â ïðîãðà& igrave;ìå. Заколебало меня, я пытался изменить формат даты в БД, но ничего она не изменилась ( 0

@pipok 0 / 0 / 0 Регистрация: 21.04.2007 Сообщений: 156
	20.05.2007, 21:02 [ТС]
	Всё! Работает! Ты мне помог, это я там кое чего незаметное забыл изменить, сделал так: ..... <% defDate = dateadd('d', -cint(nDays), now) NewsDate = month(defDate) & '/' & day(defDate) & '/' & year(defDate) sql = 'SELECT * FROM News WHERE news.date > #' & NewsDate & '# ORDER BY news.Date DESC;' %> ..... Фу, ща ещё пару разных наворотов сделать и новости готовы... 0