Havanese Puppies Available from Havanese Breeder Serving Washington and Oregon, USA and Vancouver, and Langley, BC


 


 

 

 

 

Puppy Application<%'### This is the code that is used to ACCEPT a form. In other words, this'### Page is used as the output of a form; '### variablename in this form represents whatever your form filed names were defined as.Set Mailer = Server.CreateObject("SMTPsvg.Mailer")Mailer.FromName = request.form("From")Mailer.FromAddress= "info@myladhavanese.com"Mailer.RemoteHost = "smtp.frogstar.com" Mailer.Username = "sendmail@smtp.frogstar.com" Mailer.Password = "hPGG26gFMx" Mailer.Port = 587Mailer.AddRecipient "Recipient","lgoebel@hotmail.com"Mailer.Subject = "MYLAD HAVANESE FORM"Mailer.ReplyTo = request.form("Email")Mailer.AddCC "Confirmation", request.form("Email") Mailer.AddBCC "Webmaster", "jeff@frogstar.com" Mailer.AddBCC "Webmaster", "lgoebel@businessobjects.com" Mailer.AddBCC "Webmaster", "info@myladhavanese.com" text = "MyLad HAVANESE Web Form" & vbCrLf'For Each Item in Request.Form' Text = Text & Item & " -> " & Request.Form(Item) & vbCrLf 'Nexttext = text & Request.Form("From") & vbCrLf text = text & Request.Form("address") & vbCrLf text = text & Request.Form("address2") & vbCrLf text = text & Request.Form("city") & vbCrLf & vbCrLf text = text & "Phone: " & Request.Form("Phone") & vbCrLftext = text & "Cell : " &Request.Form("cell") & vbCrLf & vbCrLf text = text & "Why are you interested?" & vbCrLf & Request.Form("why") & vbCrLf & vbCrLf text = text & "Show or Companion?" & vbCrLf & Request.Form("show") & vbCrLf & vbCrLf text = text & "What Research have you done?" & vbCrLf & Request.Form("research") & vbCrLf & vbCrLf text = text & "Long Coast or Short Coat? Grooming info:" & vbCrLf & Request.Form("long_short") & vbCrLf & vbCrLf text = text & "Other curent Pets?" & vbCrLf & Request.Form("OTHER_PETS") & vbCrLf & vbCrLf text = text & "Have you ever lost a pet?" & vbCrLf & Request.Form("lost") & vbCrLf & vbCrLf text = text & "Details of any pet deaths:" & vbCrLf & Request.Form("death") & vbCrLf & vbCrLf text = text & "Other People who live with you?" & vbCrLf & Request.Form("live_in") & vbCrLf & vbCrLf text = text & "Children Ages:" & vbCrLf & Request.Form("ages") & vbCrLf & vbCrLf text = text & "How many hours would the pet be alone?" & vbCrLf & Request.Form("UNATTENDED") & vbCrLf & vbCrLf text = text & "Previous Pets?" & vbCrLf & Request.Form("before") & vbCrLf & vbCrLf text = text & "How did you train your puppy?" & vbCrLf & Request.Form("training") & vbCrLf & vbCrLf text = text & "Potty Training Plans:" & vbCrLf & Request.Form("potty") & vbCrLf & vbCrLf text = text & "Vet Details:" & vbCrLf & Request.Form("vet") & vbCrLf & vbCrLf text = text & "Vet Visits:" & vbCrLf & Request.Form("vet_visit") & vbCrLf & vbCrLf text = text & "What regular maintenance duties did you perform on previous pets?" & vbCrLf & Request.Form("MAINTENANCE") & vbCrLf & vbCrLf text = text & "Living Conditions:" & vbCrLf & Request.Form("conditions") & vbCrLf & vbCrLf text = text & "Willing to commit:" & Request.Form("commit") & vbCrLf & vbCrLf text = text & "What is important to you in a breeder?" & vbCrLf & Request.Form("breeder") & vbCrLf & vbCrLf text = text & "Girl or Boy? " & Request.Form("sex") & vbCrLf & vbCrLf text = text & "Colour Preference: " & Request.Form("colour") & vbCrLf & vbCrLf text = text & "What else is important?" & vbCrLf & Request.Form("important") & vbCrLf & vbCrLf text = text & "Describe the perfect puppy:" & vbCrLf & Request.Form("perfect_puppy") & vbCrLf & vbCrLf text = text & "Custom for by Frogstar.ca" & vbCrLf & vbCrLf Mailer.BodyText = Textmailer.DateTime = WeekDayName(WeekDay(Date), true) & ", " & Day(Date) & " " & MonthName(Month(Date), true) & " " & Year(Date) & " " & FormatDateTime(Now, 4) & " -0500 (EST)" If Mailer.SendMail Then%>

Your form was sent successfully.

<%Else%>

ERROR: <%=Mailer.Response%><%End If%>

You can e-mail me or call me directly if you have any questions.
 

HOME  |  ABOUT  |  CONTACT  |

eXTReMe Tracker