<% city = ""'convertFirstLetter(city) country = ""'convertFirstLetter(country ) 'domainForLinks = "www.123russia.com" domainForLinks = Request.ServerVariables("SERVER_NAME") 'categor = request.querystring("categor") 'key = request.querystring("key") linksSeparate = 90 ' параметр задает число ссылок, выводящихся в категории на одну страницу ourPartnersCategory = 147 ' устанавливает значение категории Our Partners 'city = ""'convertFirstLetter(city) 'country = ""'convertFirstLetter(country ) 'domainForLinks = "www.travel.spb.ru" 'domainForLinks = Request.ServerVariables("SERVER_NAME") 'categor = request.querystring("categor") 'key = request.querystring("key") 'page = request.querystring("page") if not isNumeric(page) or len(page) < 1 then page = 1 end if Set Conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=sqloledb;server=localhost;Database=links;Trusted_Connection=no;UID=aspRead;pwd=a$3r2Xg75$" %> Links for travellers. Travel sites, hotels reservation centres, other services.

Best links for travellers!

Welcome to our selection of travel related sites!
We receive visitors to our website from all over the world.
If you feel that our information may be interesting for your guests and your site will be useful for our visitors, we will be happy to put your link on this page

<% counterForTable = 0 numberTd = numberTd + 1 counterForTd = counterForTd - counterForTdAdd end if 'response.write ""&trim(linksForTable("catalogue"))&"
" cat=linksForTable("catalogue") end if response.write vbcrlf linksForTable.movenext wend if numberTd = 3 and counterForTable > 0 then%>

<% SQLStmt = "SELECT distinct catalogue, catid"&_ " FROM links"&_ " inner join catalogue on links.catid=catalogue.id"&_ " inner join mcatalogue on catalogue.mcid=mcatalogue.mid"&_ " WHERE (OurServer=1 or patindex('%" & domainForLinks & "%',LOurServer)<>0 ) and cweight>0"&_ " ORDER BY catalogue" Set linksForTable = Conn.Execute(SQLStmt) mcat = "" 'обнуление от предыдущего запроса cat = "" 'обнуление от предыдущего запроса counterForTable = 0 'определяем число не повторяющихся разделов if not linksForTable.eof then while not linksForTable.eof if catIDvar <> linksForTable("catid") then counterForTable = counterForTable + 1 catIDvar = linksForTable("catid") end if 'if mcat<>linksForTable("mcatalogue") then 'рисуется крупная категория ' counterForTable = counterForTable + 1 ' mcat=linksForTable("mcatalogue") 'end if 'if cat<>linksForTable("catalogue") and linksForTable("catalogue")<>linksForTable("mcatalogue") then 'категория выделяется красным цветом ' counterForTable = counterForTable + 1 ' cat=linksForTable("catalogue") 'end if linksForTable.movenext wend linksForTable.movefirst end if mcat = "" 'обнуление от предыдущего запроса cat = "" 'обнуление от предыдущего запроса catIDvar = "" counterForTd = counterForTable \ 3 if counterForTd <> counterForTable / 3 then counterForTdAdd = 1 else counterForTdAdd = 0 end if counterForTd = counterForTd + counterForTdAdd 'response.write counterForTd 'response.write "
" 'response.write counterForTable 'response.write "
" 'response.write counterForTdAdd counterForTable = 0 numberTd = 1 if not(len(key) > 0) then'*************************************** SQLStmt = "SELECT mcatalogue, catalogue, LserverName, LServerDesc, LserverHTTP" & _ " FROM links " & _ " inner join catalogue on links.catid=catalogue.id"&_ " inner join mcatalogue on catalogue.mcid=mcatalogue.mid"&_ " WHERE (OurServer=1 or patindex('%" & domainForLinks & "%',LOurServer)<>0 ) and cweight>0 and catid= '" & ourPartnersCategory & "' "& _ " ORDER BY mweight, cweight, Lweight DESC;" Set ourPartnersRec = Conn.Execute(SQLStmt) %> <% while not ourPartnersRec.eof if false then if mcat<>ourPartnersRec("mcatalogue") then 'рисуется крупная категория%> <% mcat=ourPartnersRec("mcatalogue") end if if cat<>ourPartnersRec("catalogue") and ourPartnersRec("catalogue")<>ourPartnersRec("mcatalogue") then 'категория выделяется красным цветом response.write "" 'response.write "
"&trim(ourPartnersRec("catalogue"))&"
" cat=ourPartnersRec("catalogue") end if end if ' if false then response.write("" response.write vbcrlf ourPartnersRec.movenext wend ourPartnersRec.close set ourPartnersRec = nothing %>

<%=trim(ourPartnersRec("mcatalogue"))%>

"&trim(ourPartnersRec("catalogue"))&"

",city),"",country)& """>"&rtrim(ourPartnersRec("Lservername"))&"
") 'response.write("",city),"",country)& """>"&rtrim(ourPartnersRec("Lservername"))&"
") if trim(ourPartnersRec("LServerDesc"))<>"" then response.write((replace(replace(ourPartnersRec("LServerDesc"),"",city),"",country))) end if response.write "

<% if not linksForTable.eof then %> <% while not linksForTable.eof if catIDvar <> linksForTable("catid") then 'if mcat<>linksForTable("mcatalogue") then 'рисуется крупная категория 'response.write "

" counterForTable = counterForTable + 1 if counterForTable = 1 then%> <% counterForTable = 0 numberTd = numberTd + 1 counterForTd = counterForTd - counterForTdAdd end if 'response.write ""&trim(linksForTable("mcatalogue"))&"
" 'response.write "

<% end if %> <% if counterForTable >= counterForTd and numberTd <> 3 then%>

.asp"> <%=trim(linksForTable("catalogue"))%>

" 'mcat=linksForTable("mcatalogue") catIDvar = linksForTable("catid") end if if false then 'cat<>linksForTable("catalogue") and linksForTable("catalogue")<>linksForTable("mcatalogue") then 'категория выделяется красным цветом counterForTable = counterForTable + 1 if counterForTable = 1 then%>

<% end if %> <% if counterForTable >= counterForTd and numberTd <> 3 then%>

.asp"> <%=trim(linksForTable("catalogue"))%>

<% end if %> <% end if 'not linksForTable.eof %> <%end if'*******************************************%>

<%if len(key) > 0 then'''''''''''''''''''''''''''''%>

<% ' Здесь пропуск вывода других ссылок для ряда поисковиков ' ip = Request.ServerVariables("REMOTE_ADDR") ' SQLStmt = "select top 1 ip " & _ ' " from Logsetup.dbo.spiderList " & _ ' " where IP like '" & trim(ip) & "'" ' Set se = Conn.Execute(SQLStmt) ' if se.eof then ' seFlag = true ' else ' seFlag = false ' end if ' set se = nothing seFlag = true if seflag then 'if instr(Request.ServerVariables("HTTP_USER_AGENT"), "Googlebot") = 0 then SQLStmt = "SELECT mcatalogue, catalogue, LserverName, LServerDesc, LserverHTTP" & _ " FROM links " & _ " inner join catalogue on links.catid=catalogue.id"&_ " inner join mcatalogue on catalogue.mcid=mcatalogue.mid"&_ " WHERE (OurServer=1 or patindex('%" & domainForLinks & "%',LOurServer)<>0 ) and cweight>0 and catid= '" & key & "' "& _ " ORDER BY mweight, cweight, Lweight DESC;" mcat = "" 'обнуление от предыдущего запроса cat = "" 'обнуление от предыдущего запроса Set links = Conn.Execute(SQLStmt) if not links.eof then if mcat<>links("mcatalogue") then 'рисуется крупная категория%> <%end if if cat<>links("catalogue") and links("catalogue")<>links("mcatalogue") then 'категория выделяется красным цветом response.write "" 'response.write "
"&trim(links("catalogue"))&"
" end if cat=links("catalogue") mcat=links("mcatalogue") countLinks = 0 while not links.eof countLinks = countLinks + 1 links.movenext wend links.movefirst 'response.write countLinks for i = 1 to (page - 1)*linksSeparate if not links.eof then links.movenext end if next end if ' if not links.eof then countShowedLinks = 0 flagExit = false while not links.eof and not flagExit if mcat<>links("mcatalogue") then 'рисуется крупная категория%> <% mcat=links("mcatalogue") end if if cat<>links("catalogue") and links("catalogue")<>links("mcatalogue") then 'категория выделяется красным цветом response.write "" 'response.write "
"&trim(links("catalogue"))&"
" cat=links("catalogue") end if response.write("" response.write vbcrlf countShowedLinks = countShowedLinks + 1 if countShowedLinks = linksSeparate then flagExit = true end if links.movenext wend links.close set links = nothing 'conn.close 'Set conn = nothing 'end if 'if instr(Request.ServerVariables("HTTP_USER_AGENT"), "Googlebot") = 0 then end if ' if seflag then %>

<%=trim(links("mcatalogue"))%>

"&trim(links("catalogue"))&"

<%=trim(links("mcatalogue"))%>

"&trim(links("catalogue"))&"

",city),"",country)& """>"&rtrim(links("Lservername"))&"
") 'response.write("",city),"",country)& """>"&rtrim(links("Lservername"))&"
") if trim(links("LServerDesc"))<>"" then response.write((replace(replace(links("LServerDesc"),"",city),"",country))) end if response.write "

<%end if ' if len(key) > 0 then''''''''''''''''''''''''''''''''''%>

<%'countLinks 'page 'linksSeparate%> <%if countLinks > linksSeparate then%>

Other pages: <% for i = 1 to ((countLinks - 1) \ linksSeparate + 1) if i = cInt(page) then %> <%=i%> | <% else %> <%=i%> | <% end if next %>

<%end if%>