Contact Information

For questions or information on booking shows, appearances, school assembly programs, lectures or motion picture rentals please contact us at:

 

Nancy Kobert's Animal Productions
P O Box 1321
Ramona, CA 92065

Phone/Fax: 760-788-0531

Email: info@birdshow.com




home  |  about us  |  photo album  |  your pet bird  |  contact us  |  shows and dates  |  paulie

Copyright © 1997-2002, Nancy Kobert's Animal Productions
P O Box 1321, Ramona, CA 92065 USA. All Rights Reserved
<% else '***************** SEND EMAIL CONFIRMATION ***************** Set FileObject = Server.CreateObject("Scripting.FileSystemObject") Set Instream = FileObject.OpenTextFile ("D:\InetPub\wwwroot\birdshow\confirmletter.txt", 1, FALSE, FALSE) letter="" Do While Instream.AtEndOfStream <> True letter = letter & chr(10) & Instream.ReadLine loop 'response.write(letter) email=request("Email") FirstName=request("FirstName") LastName=request("LastName") ' ' email to birdshow.com ' text="Response from Birdshow.com Info Request form on " & date & chr(10) text= text & "__________________________________________" & chr(10) text=text& "First Name : " & request("FirstName") & chr(10) text=text& "Last Name : " & request("LastName") & chr(10) text=text& "Organization : " & request("Organization") & chr(10) text=text& "Title : " & request("Title") & chr(10) text=text& "Address Line 1 : " & request("AddressLine1") & chr(10) text=text& "Address Line 2 : " & request("AddressLine2") & chr(10) text=text& "City : " & request("City") & chr(10) text=text& "State : " & request("State") & chr(10) text=text& "Zip Code : " & request("ZipCode") & chr(10) text=text& "Phone : " & request ("Phone") & chr(10) text=text& "Fax : " & request ("Fax") & chr(10) text=text& "Email : " & request("Email") & chr(10) text=text& "Comments and Questions : " & request("Description") & chr(10) Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.timwebs.com" Mail.FromName = FirstName & " " & LastName Mail.From = Email Mail.AddAddress "info@birdshow.com" Mail.Subject = "Birdshow Internet Form" Mail.Body = text Mail.Send ' ' email confirmation letter to the sender ' Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.timwebs.com" Mail.FromName = "Nancy Kobert's Animal Productions" Mail.From = "info@birdshow.com" Mail.AddAddress email Mail.Subject = "Birdshow.com Confirmation Letter" Mail.Body = letter Mail.Send ' send confirmation letter using ASP routines response.redirect "thankyou.htm" end if %>