<% Function GetRemoteAddress() if request.servervariables("HTTP_X_FORWARDED_FOR") <> "" then ips = split(request.servervariables("HTTP_X_FORWARDED_FOR"), ",") GetRemoteAddress = ips(0) else GetRemoteAddress = request.servervariables("REMOTE_ADDR") end if end function %> <% set fs = server.createobject("scripting.filesystemobject") set f = fs.getfile("\\192.168.20.9\inetpub\dbs\edelman-windowsize.txt") set ts = f.openastextstream(8) 'for append ts.write(now & chr(9) & GetRemoteAddress & chr(9) & request.querystring("data")) & chr(9) & request.servervariables("HTTP_USER_AGENT") & vbcrlf ts.close set ts = nothing set f = nothing set fs = nothing %> Thanks.