<% Dim iMsg Set iMsg = CreateObject("CDO.Message") 'calls CDO message COM object Dim iConf Set iConf = CreateObject("CDO.Configuration") 'calls CDO configuration COM object Dim Flds Set Flds = iConf.Fields Flds( "http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup" Flds.Update Set iMsg.Configuration = iConf iMsg.To = "amy@toddgriffinlaw.com" iMsg.From = "webmaster@barrythomasart.com" iMsg.Subject = "Guestbook Entry" iMsg.TextBody = Request.Form.Item iMsg.Send %>

G U E S T B O O K

Please complete the form below and you will be added to our Guestbook.

Thanks!

gst_img_01.jpg

Your Name: 

Address:      

City:                      State:   

Zip:                Country:     

Telephone:  
E-Mail:       

Website:     

Comments:

*

 

Barry Thomas Studio
3805 Ferndale Cutoff Road
Little Rock, Arkansas 72223
501.821.5886

bthomas301@comcast.net

 

[Home] [Gallery] [Biography] [Gift Shop] [Guest Book] [Calendar]

This entire site contents, the images, and artwork © Copyright 1998 Barry Thomas. All Rights Reserved.