Har min egen server med flere asp og database funktioner.
men kan desværre ikke få dit eksempel til at virke selv om jeg har givet skrive rettigheder til txt filen.
<%
Dim referer
referer = Request.ServerVariables("HTTP_REFERER")
'check if the HTTP_REFERER server variable is different from "", and HTTP_REFERER is not from your domain
if not referer = "" and InStr(referer,"
www.hjemmeside.dk") = 0 then
'create new file object
Set file = Server.CreateObject("Scripting.FileSystemObject")
'open a file, for appending
Set file = file.OpenTextFile("c:/weblog/hjemmeside.txt",8,true)
file.WriteLine(referer)
'and close the file again
file.Close
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN""
http://www.w3.org/TR/html4/loose.dtd"><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
</head>
<body>
test
</body>
</html>