<%
'ת
if ShopRedirectIsTrue>0 then Call DnsRedirect()
Sub DnsRedirect()
  ''On Error Resume Next
  Dim ScriptName
  ScriptName=Cstr(Request.ServerVariables("SERVER_NAME"))
  ScriptName=Lcase(ScriptName)
  ''Response.write ScriptName

  Dim TempSYSDomain
  TempSYSDomain=Lcase(SYS_WEBURL)
  TempSYSDomain=Replace(TempSYSDomain,"www.","")

  Dim DnsName
  DnsName=Replace(ScriptName,TempSYSDomain,"")
  Dnsname=Left(DnsName,Len(DnsName)-1)
  ''Response.write DnsName

  DnsName=CheckStr(DnsName)
  DnsName=replace(DnsName,ShopDomainHead,"")
  ''if Err then Response.write Err.Description
  ''if Err then Exit Sub

  Dim RsDns,TempDnsWebUrl
  Set RsDns=Conn.execute("select DnsID,DnsName,DnsWebUrl,DnsSysUserID from Cnbbr_Dns where DnsName='"& DnsName &"'")
  if not RsDns.Eof then
     TempDnsWebUrl=Trim(rsDns("DnsWebUrl"))
  else
     Exit sub 
  end if
  rsDns.Close
  Set RsDns=nothing
  ''if Err then Respnose.write "Select Error"

  Response.redirect "http://www."& TempSYSDomain &"/shop/index.asp?ShopID="& TempDnsWebUrl
  Response.end
End Sub
'ת
%>