<% @LANGUAGE = "VBScript" %> <% Response.Buffer = True %> <% Randomize '---- CursorTypeEnum Values ---- Const adOpenForwardOnly = 0 Const adOpenKeyset = 1 Const adOpenDynamic = 2 Const adOpenStatic = 3 '---- LockTypeEnum Values ---- Const adLockReadOnly = 1 Const adLockPessimistic = 2 Const adLockOptimistic = 3 Const adLockBatchOptimistic = 4 Set boatnames = Server.CreateObject("ADODB.Connection") Set boatstories = Server.CreateObject("ADODB.Recordset") Set randomstories = Server.CreateObject("ADODB.Recordset") boatnames.Open "mgibn" randomstories.open "SELECT * FROM [stories]", boatnames, 1, 1 RandomPick = Int(ABS((RND(1) * RandomStories.RecordCount) + 1)) randomstories.MoveFirst RandomStories.Move RandomPick If Request("Submit") <> "" Then Set boatnames = Server.CreateObject("ADODB.Connection") Set boatstories = Server.CreateObject("ADODB.Recordset") boatnames.Open "mgibn" boatstories.open "SELECT * FROM [stories]", boatnames, adOpenKeyset, adLockOptimistic boatstories.AddNew boatstories("Name") = UCASE(Request("Name")) boatstories("Story") = Request("Story") boatstories.Update Set StoryCC = Server.CreateObject("JMail.SMTPMail") StoryCC.LazySend = True StoryCC.ServerAddress = "mail.marinegraphics.com; mail.thingk.net; mail.transfur.com; mail.tf-ring.com; mail.hotmail.com" StoryCC.AddRecipient "boatnames@marinegraphics.com" 'StoryCC.From = request("email:") StoryCC.Sender = "webmaster@vinylgraphics.com" 'StoryCC.FromName = Request("EMail") StoryCC.ReplyTo = Request("EMail") StoryCC.Subject = Request("Name") StoryCC.Priority = 1 StoryCC.Subject = "NEW BoatName STORY!!!" StoryCC.Body = Request("Name") & vbcrlf & vbcrlf _ & Request("Story") StoryCC.Execute Response.Redirect("boatnamingmadesimple.html") End If %>

What's your story?

<%= Request.ServerVariables("PATH_INFO") %>" METHOD="POST"> "> Send us your story! We'll try and get it in the next issue. Boat Name:     ">      Email your photos! Story:      <%=Request("Story")%> eMail:      Contact me to see if your story made it into the recent issue! CLICK HERE TO ORDER! Hot off the press! This latest edition contains more of everything! It includes some of the stories submitted to this page over the past several years and tips on how to present your custom ideas to a sign shop. Book Description New updated version of the most popular Boat Naming book available. A nautical treasure chest of stories, myths and legends surrounding the most interesting boats and their skippers. New is a complete boat naming ceremony, how to document your boat, how to add graphics to your boat, and a special fishing and powerboat section of names. Completely rewritten and enhanced for every type of boat owner. Also new to this edition are stories from our friends online in harbors everywhere. About the Author Susan D. Artof is a long time boating enthusiast from Marina Del rey California. She has collected boat names and stories for over 25 years while traveling to various harbors with her husband and two competitive sailboat racing kids. She is the author of seven books and numerous articles on a variety of subjects including psychology, a subject she taught at Santa Monica College for 23 years before turning her time to writing and sailing. This book has been the most fun to write of any other book I've done. I get calls and letters from around the country on this topic. Yet, with 25 years spent collecting names and stories from all over, my family still spent hours naming our most recent boat - which will the Phoenix (after the mythical bird which arose out of the ashes). Why? Because the poor boat will need a complete remodel and looks like it spent the last 10 years at the bottom of the sea. Read this book to help focus your attention on how to develop a story with your name. Susan D. Artof, author susan@marinegraphics.com October 20, 1997 TABLE OF CONTENTS Chapter 1 What's In A Name Chapter 2 The Tradition Of Naming Chapter 3 Why Name Your Boat? Chapter 4 Rules to Name Your Boat Chapter 5 Names For The Stars Chapter 6 Stories From Beyond Chapter 7 Favorite Foods Chapter 8 Moody Blues and Other Emotions Chapter 9 Sex, Lies and Other Vices Chapter 10 Animals and Fish Stories Chapter 11 Love Boats Chapter 12 Water Colors Chapter 13 Private Jokes Chapter 14 More Than Transportation Chapter 15 To Cruise Or Not To Cruise Chapter 16 The Racer's Edge Chapter 17 Weapons, Kings and Other Legends Chapter 18 Music Of The Water Chapter 19 Great Ships of History Chapter 20 The Most Popular Names Chapter 21 Closing Remakrs Chapter 22 Dictionary of Names Bibliography "There are at least three good reasons for reading Susan Artof's new book...and keeping it in your library. The value is to get you thinking and to appreciate some of the names you see in boats - a word of warning - be careful about showing someone something in the book because it might be an hour before you can get the book back." This makes a wonderful gift for boating friends and family - or yourself. Lorin Weiss Santana Magazine (Nov. 1997). © 1993-2009 Marine Graphics, Inc.