Завод Подшипников Скольжения

НОВИНКИ

АО «Завод подшипников скольжения» освоило производство

вкладышей подшипников скольжения коренных и шатунных,

пальцев поршневых, втулок и упорных полуколец для дизельных двигателей MMZ-3LD и MMZ-3LDТ

Узнать подробности >>>




<% idstr = Request.QueryString("ID") vid = Request.QueryString("vid") god = Request.QueryString("god") if not isnumeric(god ) then god = 0 if vid <> "" then vid = DelApostr(vid) ipAdr = Request.ServerVariables("Remote_addr") set Rec = server.CreateObject("adodb.recordset") if idstr = "" then idstr = 0 if not isnumeric(idstr) then idstr = 0 if ipAdr <> "93.186.97.106" and left(ipAdr,9) <> "82.179.14" and left(ipAdr,9) <> "82.179.15" and left(ipAdr,9) <> "213.135.1" and left(ipAdr,8) <> "78.132.1" and left(ipAdr,8) <> "78.132.2" and left(ipAdr,8) <> "83.149.2" then rec.Open "Select * from Sotcet where id = " & idstr ,conn,3,1 if not rec.eof then %>
<% end if rec.close end if %>


<% if not isnumeric(idstr) or idstr = "0" then if vid = "" then rec.Open "Select tip from othet group by tip",conn,3,1 i = 0 do until rec.EOF %> <% i = i + 1 rec.MoveNext loop rec.Close else if god = 0 and vid <> "Учредительные документы" then %> <% rec.Open "Select god from othet where tip = '" & vid & "' group by god",conn,3,1 i = 0 do until rec.EOF %> <% i = i + 1 rec.MoveNext loop rec.Close else if vid <> "Учредительные документы" then %> <% else %> <% end if if ipAdr = "93.186.97.106" then if vid <> "Учредительные документы" then rec.Open "Select id,nameo,DateOsnov,DatePublik from othet where tip = '" & vid & "' and god = " & god & " and d = 0 order by id desc",conn,3,1 else rec.Open "Select id, nameo from othet where tip = '" & vid & "' and d = 0 order by id desc" ,conn,3,1 end if else if vid <> "Учредительные документы" then rec.Open "Select id,nameo,DateOsnov,DatePublik from othet where tip = '" & vid & "' and god = " & god & " order by id desc",conn,3,1 else rec.Open "Select id, nameo from othet where tip = '" & vid & "' order by id desc" ,conn,3,1 end if end if i = 0 do until rec.EOF %> <% if vid <> "Учредительные документы" then %> <% end if %> <% rec.movenext loop rec.close end if end if else rec.Open "Select * from othet where id = " & idstr ,conn,3,1 if not rec.eof then %> <% = rec.Fields("txt").value%> <% end if rec.close end if set rec = nothing %>
<% = vid%>
Наименование
Дата наступления основания
Дата публикации
<% = vid%>
<% = rec.Fields("DateOsnov").Value%>
<% = rec.Fields("DatePublik").Value%>