%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")
%>