<%
'######################################################################################
'## HTTP Header Data Capture
On Error Resume Next
IF Request("strReferrer") = "" OR instr(1,Request("strReferrer"),"roselli.org",1) > 0 THEN
strReferrer = Request.ServerVariables("HTTP_REFERER")
ELSE
strReferrer = Request("strReferrer")
END IF
'## Capture the referring URL and the browser
'strReferrer = Request.ServerVariables("HTTP_REFERER")
strRemoteAddr = Request.ServerVariables("REMOTE_ADDR")
strRemoteHost = Request.ServerVariables("REMOTE_HOST")
strRemoteUser = Request.ServerVariables("REMOTE_USER")
ELNReferrer = Request("ELN")
'######################################################################################
'## Get Browser and Script Name
'## get the name of the current script for the navbar and header graphics
ScriptName = Request.ServerVariables("SCRIPT_NAME")
'## get the name of the browser to wrap in browser-specific tags
UserAgent = Request.ServerVariables("HTTP_USER_AGENT")
Dim objBrowser
set objBrowser = server.createobject("MSWC.BrowserType")
'######################################################################################
'## Referrer Logging
'## ADDED JAN 17, 1999 Check to see if the user has been to this page before by reading the value set in their cookies
'IF NOT Request.Cookies("VisitBefore") = "TRUE" then
'## OPEN TEXT FILE
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objNewFile = objFSO.OpenTextFile("d:\64.226.97.52\site_log.txt", 8)
IF NOT ELNReferrer = "" THEN
'## WRITE TO TEXT FILE
objNewFile.WriteLine "ELN:" & ELNReferrer & "|" & FormatDateTime(Now,vbShortDate) & "|" & FormatDateTime(Now,vbShortTime) & "|" & UserAgent & "|" & strRemoteAddr & "|" & strRemoteHost & "|" & strReferrer
ELSE
'## WRITE TO TEXT FILE
objNewFile.WriteLine strReferrer & "|" & FormatDateTime(Now,vbShortDate) & "|" & FormatDateTime(Now,vbShortTime) & "|" & UserAgent & "|" & strRemoteAddr & "|" & strRemoteHost & "|" & strRemoteUser
END IF
'## WRITE TO TEXT FILE
objNewFile.WriteLine "hi"
'## CLOSE TEXT FILE
objNewFile.Close
'## Adds 1 day onto todays date so the cookie will expire 1 day from now
NewDate = DateAdd("w", 1, FormatDateTime(Now,vbGeneralDate))
'## This sets the cookie so that the next time the user comes back they will skip the splash page
Response.Cookies("VisitBefore") = "TRUE"
Response.Cookies("VisitBefore").expires = cdate(NewDate)
'END IF
%>
<%
strTitle = "Adrian Roselli’s Gallery"
strMetaDescription = "The personal gallery of Adrian Roselli, featuring articles on web development and a selection of photo manipulation."
strMetaKeywords = "valid XHTML CSS usability book chapter writing glasshaus terminal city An-2 Soviet Colt spider render Softbank facilities liquid design web hell with bad editors evolt.org HTML CSS breadcrumbs ASP real-world browser size stats resolution skip splash page browser archive frames 640 x 480 640x480 800 x 600 user control over fonts spaces after period"
%>
<% SUB Content %>
Welcome, fellow geek
I used to put recent news and stuff up here, but I never maintain it. Not because it’s hard, either. If this had a blogging tool behind it, I still wouldn’t maintain it. I’d just link to other blogs that I don’t have time to read, let alone wonder how others maintain them.
So, yeah, no recent news. Sorry.
This Site
I assume you’re here for a reason. I can only hope that you see this page as I intended it to look. Given that this is a personal site, and given that I like to experiment with new ways of implementation, and given that the only audience for this site is essentially me, this site has been built using nothing but structural and semantic mark-up in the form of XHTML. All layout and styling is handled via linked Cascading Style Sheets.
For those of you familiar with my web work, no, I am not all of a sudden shunning the use of tables. I have clients, they need things to look similar in many browsers, so I can’t do that. Coupled with the fact that support for valid XHTML and CSS is still so quirky, this is intended to be valid above and beyond pretty or consistent. It is, essentially, my old site converted to a new layout and code approach.
So, if your browser supports the CSS needed to view this site, try changing styles to get better color schemes, or just ignore all this web developer posturing and look at my stuff. The default theme is no longer my favorite, but I think I’m the only person who likes the stealth theme, so I won’t force that on you, either.
Yer Browser
By the way, in case you’re here because I asked you test a browser string for me, your browser reports itself as
<% = UserAgent %>.
A Friend Indeed
A friend of mine has just launched her site, and you should take a look. Kristen Kos, a lovely and talented actress, now has her own site with her acting resume and some new head shots.
<% END SUB %>