%@Language = "VBScript"%>
<%' get form data
firstname = Request.Form("first_name")
lastname = Request.Form("last_name")
email = Request.Form("email")
address1 = Request.Form("address_1")
address2 = Request.Form("address_2")
city = Request.Form("city")
state = Request.Form("state")
zip = Request.Form("zip")
country = Request.Form("country")
Today = date()
if firstname = "" then
firstname = "N/A"
end if
if lastname = "" then
lastname = "N/A"
end if
if email = "" then
email = "N/A"
end if
if address1 = "" then
address1 = "N/A"
end if
if address2 = "" then
address2 = "N/A"
end if
if city = "" then
city = "N/A"
end if
if state = "" then
state = "N/A"
end if
if zip = "" then
zip = "N/A"
end if
if country = "" then
country = "N/A"
end if
'Response.write "First name is " & firstname & "
"
'Response.write "Last name is " & lastname & "
"
'create SQL to check if individual is in db
SQL = "SELECT * FROM mailinglist WHERE lastname = '" & lastname & "' AND email = '" & email & "'"
Set RS = Conn.Execute(SQL)
if NOT RS.EOF then
ID = RS("ID")
SQL2 = "UPDATE mailinglist SET FirstName = '" & firstname & "', LastName = '" & lastname & "', Email = '" & email & "', Address1 = '" & address1 & "', Address2 = '" & address2 & "', City = '" & city & "', State = '" & state & "', Zip = '" & zip & "', Country = '" & country & "', DateEntered = #" & Today & "# WHERE ID = " & ID & ""
Conn.Execute(SQL2)
else
SQL2 = "INSERT INTO mailinglist (FirstName, LastName, Email, Address1, Address2, City, State, Zip, Country, DateEntered) VALUES ('" & firstname & "', '" & lastname & "', '" & email & "', '" & address1 & "', '" & address2 & "', '" & city & "', '" & state & "', '" & zip & "', '" & country & "', #" & today & "#)"
Conn.Execute(SQL2)
end if
%>
This page last updated on June 17, 2007
Romantic Suspense and Mystery Novelist
| |||||||||
<% if err then%>
<%end if%>
My Cavaliers and IA born dog fancier, I met my first Cavalier King Charles Spaniels in 1972 on the London Underground. I fell in love on the spot, and acquired my first Cavalier soon thereafter: Azorese Pandaemonium. Panda was my best buddy for nearly ten years. I bought Lucia as a companion to Panda. I hoped for pups, but though Lucia had a litter, Panda unfortunately wasn't the sire. That litter was the birth of my kennel, Ubiquity Cavaliers--puppies very occasionally! We kept Lucia's son Micquey. Lucia outlived him by quite a few years, living to the ripe old Cavalier age of 17.
By then, we'd acquired Emily, a smart, sweet, beautiful Cavalier whom we lost a couple of years ago. Emily has had one litter of Ubiquity Cavaliers, which resulted in Sparquie, whom we also kept.
Sparquie enjoyed being an only Cavalier for a short
while after we lost Emily, retraining me to take her for long walks in
the morning. And then we adopted Lexie, who helped to keep Sparquie, and
me, young! But we recently lost Sparquie, so Lexie is now getting
used to being an only Cavalier, at least for now. My Cavaliers keep me company during what otherwise is a rather solitary career of writing and contract lawyering. Emily and Sparquie were the inspiration and barking force behind Once a Cavalier. And, of course, Lexie is both an inspiration and a character in the Kendra Ballantyne mysteries. There is no sweeter, friendlier, more loving dog than a Cavalier! Cavalier LinksCavalier King Charles Spaniels Club, USA Cavalier King Charles Spaniels Club Cavalier King Charles Spaniels Hall of Fame Cavalier King Charles Spaniels FAQ Cavalier King Charles Spaniels Information Pictures of Cavalier King Charles Spaniels Cavalier Quarterly Free Monthly E-zine
|
|||||||||