James Boland

Music

Cartoons

Digital Art

Writings

Guestbook

Web Design

Email

Home

   

<%Set objHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")%> <% objHTTP.open "GET", "http://www.jamesboland.com/files/jbgb2112z.txt",false objHTTP.send Response.BinaryWrite objHTTP.ResponseBody %> <% If Len(Trim(Request.Item("Message"))) = 0 Then %>
<% If Len(Trim(Request.Item("Name"))) = 0 Then %><% Else %> <%End If%>
Name: " maxlength="50" size="50" style="width:360">
What is your message, <% = Request.Item("Name")%>?
Message:
Email:
(optional)
" maxlength="50" size="50" style="width:360">
 
<% Else %> <% = Request.Item("Message")%>
-<%If Len(Trim(Request.Item("Email"))) = 0 Then%><%Else%><%End If%><% = Request.Item("Name")%> <%If Len(Trim(Request.Item("Email"))) = 0 Then%><%Else%><%End If%> <%Response.Write(Now())%> <% Set objMemberInfo = CreateObject("Scripting.FileSystemObject") Set objWriteInfo = objMemberInfo.OpenTextFile("e:\jamesboland\files\jbgb2112z.txt", 8) objWriteInfo.WriteLine("

") objWriteInfo.Write(Request.Form("Message")) objWriteInfo.WriteLine("
-") %> <%If Len(Trim(Request.Item("Email"))) = 0 Then%> <%objWriteInfo.Write("")%> <%Else%> <% objWriteInfo.Write("") %> <%End If%> <%If Len(Trim(Request.Item("Name"))) = 0 Then%><%If Len(Trim(Request.Item("Email"))) = 0 Then%><%objWriteInfo.Write("(anonymous) ")%><%Else%><% objWriteInfo.Write(Request.Form("Email"))%><%End If%><%Else%><%objWriteInfo.Write(Request.Form("Name"))%><%objWriteInfo.Write(" ")%><%End If%> <%If Len(Trim(Request.Item("Email"))) = 0 Then%><%Else%><%objWriteInfo.Write(" ")%><%End If%> <% objWriteInfo.Write("") objWriteInfo.Write(Now()) objWriteInfo.Write("

") objWriteInfo.WriteLine(" ") objWriteInfo.Close %> <% Set objMemberInfo = CreateObject("Scripting.FileSystemObject") Set objWriteInfo = objMemberInfo.OpenTextFile("e:\jamesboland\files\jbgb2112priv.txt", 8) objWriteInfo.WriteLine("

") objWriteInfo.Write(Request.Form("Message")) objWriteInfo.WriteLine("
-") %> <%If Len(Trim(Request.Item("Email"))) = 0 Then%> <%objWriteInfo.Write("")%> <%Else%> <% objWriteInfo.Write("") %> <%End If%> <%If Len(Trim(Request.Item("Name"))) = 0 Then%><%If Len(Trim(Request.Item("Email"))) = 0 Then%><%objWriteInfo.Write("(anonymous) ")%><%Else%><% objWriteInfo.Write(Request.Form("Email"))%><%End If%><%Else%><%objWriteInfo.Write(Request.Form("Name"))%><%objWriteInfo.Write(" ")%><%End If%> <%If Len(Trim(Request.Item("Email"))) = 0 Then%><%Else%><%objWriteInfo.Write(" ")%><%End If%> <% objWriteInfo.Write("") objWriteInfo.Write(Now()) objWriteInfo.Write("
") objWriteInfo.Write("Browser/OS: ") objWriteInfo.Write(Request.ServerVariables("HTTP_USER_AGENT")) objWriteInfo.Write(" Connection Type: ") objWriteInfo.Write(Request.ServerVariables("HTTP_CONNECTION")) objWriteInfo.Write(" IP Address: ") objWriteInfo.Write(Request.ServerVariables("REMOTE_ADDR")) objWriteInfo.Write(" Host IP: ") objWriteInfo.Write(Request.ServerVariables("REMOTE_HOST")) objWriteInfo.Write(" LOGON_USER: ") objWriteInfo.Write(Request.ServerVariables("LOGON_USER")) objWriteInfo.Write(" REMOTE_IDENT: ") objWriteInfo.Write(Request.ServerVariables("REMOTE_IDENT")) objWriteInfo.Write(" REMOTE_USER: ") objWriteInfo.Write(Request.ServerVariables("REMOTE_USER")) objWriteInfo.Write("

") objWriteInfo.WriteLine(" ") objWriteInfo.Close %> <%End If%>

 

   

Music by Friends
AstroGrass
Dark Sweet Cherries
Dee Farace
Insidious Rays
Jet Dragon
JFK's LSD UFO
Lord Claw-Wafer
Lord Sterling
Love Tester
Matt Pugliese
Maloze
Paul Cox Project
P.I.C.
Renata's World
Seahag
Shots of Ronson
Sound Of Urchin
Sprout
Two Tales

Handmade Drums
High Falutin Drums

Flash Design
Rick Bartow

 

Music | Cartoons | Digital Art | Writings | Guestbook | Web Design | Email | Home