новости веб-чат СЕРДАЛО карта заставка
 






<% Set adoCon = Server.CreateObject("ADODB.Connection") '------------- If you are having problems with the script then try using a diffrent driver or DSN by editing the lines below -------------- 'Database connection info and driver strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/site.mdb") 'Database driver info for Brinkster 'strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/USERNAME/db/news.mdb") 'This one is for Brinkster users place your Brinster username where you see USERNAME 'Alternative drivers faster than the basic one above 'strCon = "Provider=Microsoft.Jet.OLEDB.3.51; Data Source=" & Server.MapPath("news.mdb") 'This one is if you convert the database to Access 97 'strCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("news.mdb") 'This one is for Access 2000/2002 'If you wish to use DSN then comment out the driver above and uncomment the line below (DSN is slower than the above drivers) 'strCon = "DSN = DSN_NAME" 'Place the DSN where you see DSN_NAME '--------------------------------------------------------------------------------------------------------------------------------------------- 'Set an active connection to the Connection object adoCon.Open strCon Dim rsComments 'Database recordset holding the comments for this news item Dim lngSite_ID 'Holds the News item ID number Dim blnComments 'Set to true if comments are allowed for this item If isNull(Request.QueryString("Site_ID")) = True Or isNumeric(Request.QueryString("Site_ID")) = False Then Response.Write "default.asp" Else lngSite_ID = CLng(Request.QueryString("Site_ID")) End If Set rsSites = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT Sites.* FROM Sites ORDER BY View_Count DESC;" rsSites.Open strSQL, adoCon rsSites.Movefirst count=1 while not rsSites.eof Response.Write "" Response.Write "" Response.Write "" rsSites.Movenext count=count+1 wend rsSites.Close Set rsSites = Nothing %>
" Response.Write "" Response.Write count Response.Write ". " Response.Write rsSites("Site_Title") Response.Write " (просмотров : " Response.Write rsSites("View_Count") Response.Write ")" Response.Write"

" Response.Write "" Response.Write rsSites("Site_Description") Response.Write "
" Response.Write rsSites("Site_Link") Response.Write "
" Response.Write "

" Response.Write "
Добавить сайт в базу данных:
Адрес сайта:
Заголовок сайта:





Описание сайта:
>
----

??????.???????
Новости |  Наш Президент |  Пишет пресса |  Документы |  ЖЗЛ |  История
Абсолютный Слух |  Тесты он-лайн |  Прогноз погоды |  Фотогалерея |  Конкурс
Видеогалерея |  Форум |  Искусство |  Веб-чат
Перепечатка материалов сайта - ТОЛЬКО с разрешения автора или владельца сайта и ТОЛЬКО с активной ссылкой на www.ingush.ru
По вопросам сотрудничества или размещения рекламы обращайтесь web@ingush.ru