Аллергия | антиаллергенные подушки и постельное белье | при лечение аллергии |лечение астмы | бронхиальная астма и аллергия у детей |аллергия на пыль | подушки |Анти-аллергия | лечение аллергии | лечение астмы | ортопедические подушки | матрас | постельное белье | детские постели | пуховые одеяла |Матрасы ортопедические | Купить Ортопедические матрасы | Ортопедические подушки | постельное белье | детские постели | матрац |Подушки | антиаллергенные подушки и постельное белье | при лечение аллергии |лечение астмы | бронхиальная астма и аллергия у детей | аллергия на пыль | подушки |Одеяла | Купить пуховое одеяло | постельное белье | шерстяные одеяла | одеяла подушки | детское одеяло | верблюжье одеяло |Детская постель | антиаллергенные подушки и постельное белье | при лечение аллергии | лечение астмы | бронхиальная астма и аллергия у детей | аллергия на пыль | подушки |Для гостиниц | Купить эксклюзивный подарок | оригинальный подарок к свадьбе | подарок шефу для мужчин | свадебный подарок | ортопедический матрасы | подушки | эксклюзивное постельное белье | пуховые одеяла |Эксклюзив | Купить эксклюзивный подарок | оригинальный подарок к свадьбе | подарок шефу для мужчин | свадебный подарок | ортопедический матрасы | подушки | эксклюзивное постельное белье | пуховые одеяла
Купить эксклюзивный подарок | оригинальный подарок к свадьбе | подарок шефу для мужчин | свадебный подарок | ортопедический матрасы | подушки | эксклюзивное постельное белье | пуховые одеяла |Купить эксклюзивный подарок | антиаллергенные подушки и постельное белье | при лечение аллергии | лечение астмы | бронхиальная астма и аллергия у детей | аллергия на пыль | подушки
Каталог ссылок
НАШИ ПАРТНЕРЫ >>

<% if len(request("page"))>0 then page = clng(request("page")) else page = 1 end if pageLen = 10 set Conn = server.createobject("ADODB.Connection") 'Conn.open "Provider=sqloledb;Data Source=mssql09.1and1.com,1433;Initial Catalog=db203070236;User Id=dbo203070236;Password=qEeAuVZv; " Conn.open Application("ConnString") sql = "SELECT tblDir.Id, tblDir.Name, COUNT(tblLinks.id) AS cnt FROM tblDir LEFT OUTER JOIN tblLinks ON tblDir.id = tblLinks.Dir GROUP BY tblDir.Id, tblDir.Name" set rs = Conn.execute(sql) i=0 while not rs.eof i = i + 1 if i>7 then i=1 response.write("") end if response.write "" & Server.HTMLEncode(rs("name")) if CLng(rs("cnt"))>0 then response.write " (" & rs("cnt") & ")" end if response.write "
" rs.movenext wend rs.close set rs = nothing %>


<% if len(request("dir"))>0 then sql = "SELECT count([Id]) cnt FROM tblLinks WHERE Checked=1 and Dir=" & request("dir") else sql = "SELECT count([Id]) cnt FROM tblLinks WHERE Checked=1" pages = "" set rs = Conn.execute(sql) if not rs.eof then cnt = rs("cnt") if cnt > pageLen then 'pages = pages & "Страницы: " ii = 1 if (cnt \ pageLen) = (cnt / pageLen) then ii = 0 for i = 1 to (cnt \ pageLen)+ii if i=page then pages = pages & "[" & i & "] " else pages = pages & "[" & i & "] " end if next end if end if rs.close set rs = nothing end if %>
<% if len(request("dir"))>0 then Response.write("" & request("dn") & "") end if %> Добавить ссылку
<%=pages %>

<% if len(request("dir"))>0 then sql = "exec spShowPage " & request("dir") & ", " & page & ", 100" '& pageLen else sql = "exec spShowPage 0, " & page & ", " & pageLen end if set rs = Conn.execute(sql) while not rs.eof response.write "" & Server.HTMLEncode(rs("SiteName")) & "
" response.write "" & replace(replace(replace(Server.HTMLEncode(rs("Dsc")), "<", "<"), ">", ">"), """, """") & "
" response.write "" & rs("DateAdded") & "    " & Server.HTMLEncode(rs("DirName")) & "

" rs.movenext wend rs.close set rs = nothing conn.close set conn = nothing if err then response.write(err.description) else 'response.write("") end if ' response.write pages & "
" ' response.end %>
<%=pages %>
Добавить ссылку