<% '**************************************************************************************** '** '**************************************************************************************** Response.expires = 0 Response.expiresabsolute = Now() - 1 Response.addHeader "pragma", "no-cache" Response.addHeader "cache-control", "private" Response.CacheControl = "no-cache" %> <% Dim sIPAddress sIPAddress = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If sIPAddress="" Then sIPAddress = Request.ServerVariables("REMOTE_ADDR") Response.Buffer = True 'get action a = Request.Form("a") If (a = "" OR IsNull(a)) Then key = Request.Querystring("key") If key <> "" Then a = "C" 'copy record Else a = "I" 'display blank record End If End If ' Open Connection to the database Set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str Select Case a Case "C": ' Get a record to display tkey = "" & key & "" strsql = "SELECT * FROM [emails] WHERE [ID]=" & tkey Set rs = Server.CreateObject("ADODB.Recordset") rs.Open strsql, conn If rs.EOF Then Response.Clear Response.Redirect "emailslist.asp" Else rs.MoveFirst ' Get the field contents x_Date = rs("Date") x_IPAddress = rs("IPAddress") x_Name = rs("Name") x_Email = rs("Email") End If rs.Close Set rs = Nothing Case "A": ' Add 'get fields from form x_ID = Request.Form("x_ID") x_Date = Request.Form("x_Date") x_IPAddress = sIPAddress x_Name = Request.Form("x_Name") x_Email = Request.Form("x_Email") tmpFld1 = x_Email If trim(tmpFld1) & "x" = "x" Then tmpFld1 = Null srchFld1 = replace(tmpFld1&"","'","''") srchFld1 = replace(srchFld1,"[","[[]") srchFld1 = "'" & srchFld1 & "'" strsql11 = "SELECT * FROM [emails] WHERE [email] = " & srchFld1 Set qrs1chk = conn.Execute(strsql11) If NOT qrs1chk.eof Then Response.write "This email is existing in our database" Response.write "
" Response.write "Please change it!" Response.end End If ' Open record strsql = "SELECT * FROM [emails] WHERE 0 = 1" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open strsql, conn, 1, 2 rs.AddNew tmpFld = Trim(x_IPAddress) If trim(tmpFld) & "x" = "x" Then tmpFld = Null rs("IPAddress") = tmpFld tmpFld = Trim(x_Name) If trim(tmpFld) & "x" = "x" Then tmpFld = Null rs("Name") = tmpFld rs("Email") = tmpFld1 rs.Update rs.Close Set rs = Nothing conn.Close Set conn = Nothing Response.Clear Response.Redirect "thanx.asp?name=" & x_Name End Select %>
NAVspacer
DOLPHINS
MANATEES
TURTLES
WHALES
SHARK
JOIN OUR NEWSLETTER MAILING LIST
News & Events

Good Morning America Weekend Saturday between 9:00 A.M. and 10:00 A:M: ont the Treasure of the 1715 Plate Fleet, They are using some of my original footage of the Treasure Chest Find and some of the footage on other finds and interviews. They also interviewed Taffi Fisher, John Brandon and Tommy Gore, the Marine Agent for the Florida State Board of Archives who was present and inspected all of the Treasure Finds on the 1715 Plate Fleet. The Name of the story is 'X' Marks The Spot. I understand there will be more programs on Treasure in the future. Look for it Saturday February 9th. Thanks!
Dan Wagner.
 
DONATION SPECIALS - EVERY PURCHASE WILL GIVE A PARTIAL DONATION TO OUR MOTHER OCEAN ORGANIZATION.

1. New Stores: Zales.com, Calendars.com, & Inner-Self!
2. Double Donation Days at Brookstone!
3. Bigger Donations at Flowerstore.com!
4. Editor's Picks like 20% off at 1-800-Flowers.com!
5. Gifts for Gals: ProFlowers.com, Figleaves.com, Hickory Farms, & more!
6. Gifts for Guys: Home Depot, FragranceNet, & Lands' End!
7. FREE $5 DONATIONS!
  
 

THE GREAT WHITE ADVENTURE TRIP!
NOVEMBER
25th - 29th, 2005
JOIN THE TOUR TODAY!
Contact Us

[ More Info. >> ]

  
ADVERTISING
PLACE YOUR AD
HERE TODAY!

CONTACT US AT
(321) 723-9312
OR CLICK HERE
CURRENT NEWS


Statement of Trademark | Privacy Policy | Links | Site Map

Copyright © 2005 - www.MotherOcean.org - All rights reserved