<% @ENABLESESSIONSTATE=FALSE%>
<!-- #include file = "region.inc" -->
<%
kunde = lcase(Mid(request.servervariables("HTTP_REFERER"), Instr(request.servervariables("HTTP_REFERER"), "/firmen/")+8))

'new by Pfennig*********
'Regionenliste = "franken,muenchen" steht jetzt in region.inc
region = left(kunde,instr(kunde,"/")-1)
regs = split(Regionenliste,",")
for index = 0 to ubound(regs)
	if regs(index)=region then
		kunde=replace(kunde,region,"",1,1)
		kunde=mid(kunde,4)
	end if
next
'************************

kunde2 = mid(kunde,1,Instr(kunde,"/")-1)
seite = mid(kunde,InstrRev(kunde,"/")+1)
if kunde2="" then kunde2="error"
logdat = right("0" & day(date()),2) & "." & right("0" & month(date()),2) & "." & year(date())
LogFilePath = Server.MapPath("domain/domain-" & kunde2 & ".log")
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Set OutStream=FileObject.OpenTextFile(LogFilePath, 8, TRUE)
Application.Lock
OutStream.WriteLine kunde2 & "#" & request.servervariables("REMOTE_ADDR") & "#" & logdat & "#" & TIME & "#" & seite & "#" & request.servervariables("HTTP_USER_AGENT")
OutStream.Close
Application.Unlock
set OutStream = nothing
set FileObject = nothing

Response.Expires = 0
Response.ContentType = "image/gif"
Response.redirect("dummy.gif")
Response.End
%>