<%Response.Buffer=True%> Untitled Document <% sProgram=Request.Querystring("ID") Dim sAdress sAdress="Fel" rh=Request.ServerVariables("HTTP_REFERER") if rh="http://www.wintrix.net" OR rh="http://www.wintrix.net/Antal.asp" then sAdress="OK" End if if rh="http://www.wintrix.net/DAX.asp" then sAdress="OK" End if if rh="http://www.wintrix.net/ADSL-Login_Direct.asp" then sAdress="OK" End if if rh="http://www.wintrix.net/Ladda.asp" then sAdress="OK" End if if rh="http://www.wintrix.net/"then sAdress="OK" End if if rh="http://www.wintrix.net/DAX.asp#Topp" OR rh="http://www.wintrix.net/DAX.asp#bilder" then sAdress="OK" End if if rh="http://www.wintrix.net/main.asp" then sAdress="OK" End if sAdress="OK" If sProgram="1" then if sAdress="OK" then Response.Redirect("http://www.wintrix.net/main.asp") Else Response.Redirect("http://www.wintrix.net/fel.htm") End if End if If sProgram="2" then if sAdress="OK" then Response.Redirect("http://www.wintrix.net/main.asp") Else Response.Redirect("http://www.wintrix.net/fel.htm") End if End if If sProgram="3" then if sAdress="OK" then Response.Redirect("http://www.wintrix.net/main.asp") Else Response.Redirect("http://www.wintrix.net/fel.htm") End if End if If sProgram="4" then if sAdress="OK" then Response.Redirect("http://www.wintrix.net/main.asp") Else Response.Redirect("http://www.wintrix.net/fel.htm") End if End if If sProgram="5" then if sAdress="OK" then Response.Redirect("http://www.wintrix.net/Lankvanner.asp") Else Response.Redirect("http://www.wintrix.net/fel.htm") End if End if If sProgram="6" then if sAdress="OK" then Response.Redirect("http://www.wintrix.net/Mail.asp") Else Response.Redirect("http://www.wintrix.net/fel.htm") End if End if If sProgram="7" then if sAdress="OK" then Response.Redirect("Antal.asp") Else Response.Redirect("fel.htm") End if End if If sProgram="8" then if sAdress="OK" then Response.Redirect("http://www.wintrix.net/main.asp") Else Response.Redirect("http://www.wintrix.net/fel.htm") End if End if If sProgram="9" then if sAdress="OK" then Response.Redirect("http://www.wintrix.net/Skank.htm") Else Response.Redirect("http://www.wintrix.net/fel.htm") End if End if Raknare = Server.MapPath("Golf.txt") Set RaknareTxtObj = Server.CreateObject("Scripting.FileSystemObject") Set RaknareFil = RaknareTxtObj.OpenTextFile(Raknare) antal = RaknareFil.ReadLine RaknareFil.Close If sProgram="GolfP" then if sAdress="OK" then antal = antal + 1 else antal = antal + 0 End if End if Set RaknareFil = RaknareTxTObj.CreateTextFile(Raknare,true) RaknareFil.WriteLine antal RaknareFil.Close If sProgram="GolfP" then if sAdress="OK" then Response.Redirect("http://www.wintrix.net/P/Golfprovet.zip") Else Response.Redirect("http://www.wintrix.net/fel.htm") End if End if If sProgram="16" then if sAdress="OK" then Response.Redirect("http://webmaster.goldkeycasino.com/affiliates/adc.asp?affid=3035") Else Response.Redirect("http://www.wintrix.net/fel.htm") End if End if If sProgram="17" then if sAdress="OK" then Response.Redirect("http://www.PacificPoker.com?sr=322147") Else Response.Redirect("http://www.wintrix.net/fel.htm") End if End if If sProgram="18" then if sAdress="OK" then Response.Redirect("http://www.wintrix.net/Casino") Else Response.Redirect("http://www.wintrix.net/fel.htm") End if End if Response.Redirect("http://www.wintrix.net/fel.htm") %>