<%@ Language=VBScript %> <% Option Explicit On Error Resume Next If Len(Request("success")) > 0 Then Dim MessageText Dim Msg Dim Item Set Msg = Server.CreateObject("CDO.Message") With Msg .To = "rdphoto@earthlink.net" .BCC = "bryan@presentationpro.com" .From = Request.Form("Email") .Subject = "Guestbook Signup" MessageText = "" For Each Item in Request.Form If Not Item = "success" Then MessageText = MessageText & "" End If Next MessageText = MessageText & "

" & Item & "

" & Request.Form(Item) & "

" .HTMLBody = MessageText .Send End With Response.Redirect "reply.html" Response.End End If %>

NAME
TITLE
COMPANY
ADDRESS
CITY
STATE		ZIP
COUNTRY
TELEPHONE
FACSIMILE
EMAIL
		Please include me on your e-mail list for portfolio and website updates.
		Please send me your portfolio.
I am interested in the following categories:   People   Still Life   Environments   Projects   RDP Stock