%@ Language=VBScript CODEPAGE=1255 %> <% Dim SQL,rs,Found SQL = " SELECT news.autonum, news.date_new, news.news FROM news WHERE (((Month([date_new]))=Month(Date()))) ORDER BY Month([date_new]) DESC" Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open SQL,Samples_DSN Found = False if NOT rs.EOF Then Found=true end if %>
|
|
![]() |
|
|
|||||
|
|
|
|||||||
|
|
|
|||||||
|
|
|
|
||||||
|
|
|
|
|
|||||
|
|
|
|||||||
|
|
|
|||||||
|
|
|
|||||||
|
|
|
|||||||
|
|
|
|||||||
|
|
|
|||||||
|
|
|
|||||||
|
|
|
|||||||
|
|
||||||||
|
|
|
|||||||
![]() |
|
|||||||
|
|
|
|
||||||
|
|
|
|
|
|
|
|
|
|
מיובא ע"י:
Showroom 58
טל: 4561860 050