<%
Response.Expires = 7200
Response.ContentType ="image/gif"

Dim regEx
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True

QUERYSTRING = Request.ServerVariables("QUERY_STRING")
Pos = InStr(QUERYSTRING, ":80/")
HTTP_X_REWRITE_URL = Mid(QUERYSTRING, Pos + 3)


regEx.Pattern = "/snaps/([0-9]*)l.gif"
If regEx.Test(HTTP_X_REWRITE_URL) Then%>
	<!--#include virtual="/snaps/notfoundl.gif" --><%
Else
	regEx.Pattern = "/snaps/([0-9]*)s.gif"
	If regEx.Test(HTTP_X_REWRITE_URL) Then%>
		<!--#include virtual="/snaps/notfounds.gif" --><%
	Else
	End If
End If
Set regEx = Nothing
%>