<% '**************************************************************************************** '** '**************************************************************************************** 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
 Join or Donate

MEMBERSHIP
FREE MEMBERSHIP Sign Up Now

Free membership will receive a membership card & our newsletter.

$15.00 MEMBERSHIP

For a $15.00 one year membership contribution you will receive a membership card, a wall certificate and CD-ROM "Fish With Names Like".

$30.00 MEMBERSHIP

For a $30.00 one year Membership contribution you will receive a membership card, wall certificate and CD-ROM "Fish With Names Like". Plus a 90 minute Mother Ocean music video and a "Thanks For Caring & Sharing Certificate.

CLASS MEMBERSHIP
$30.00

A class can join for $30.00, and will get one CD-ROM, one video, two certificates and for $1.00 for each student card. â

ñ STUDENT CARDS ($1.00 PER STUDENT) ñ

SCHOOL NAME:
STUDENTS NAME:
DONATIONS
Includes a certificate and
a
PLATINUM
figure for a necklace
PLATINUM WHALE
$5,000.00
Includes a certificate and
a
GOLD figure for a necklace
GOLD DOLPHIN
$1,000.00
Includes a certificate and
a
SILVER figure for a necklace
SILVER  MANATEE
$500.00
Includes a certificate and
a
BRONZE figure for a necklace
BRONZE SHARK
$250.00

CHARITY WARNING!

Did you know that the vast majority of these car donation programs are run by for-profit used car dealer/fundraiser's?

Did you know that in many cases the lion's share of the proceeds from your donation go to the used car dealer/fundraiser, with at times as little as 10% going to the charity?

Did you know that according to the IRS, unless you donate directly to the charity and place the name of the charity on the title, your donation might not even be tax-Deductible?

Did you know that even some well-known and respected charities are not licensed to legally process your vehicle donation in some states?

Did you know that Mother Ocean Foundation is 100% charity (IRS approved 501-C-3) - we are NOT a for-profit used car dealer/fundraiser?

Donate your vehicle to The Mother Ocean Foundation
100% Charity

ADVERTISING
PLACE YOUR AD
HERE TODAY!




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



Statement of Trademark | Privacy PolicyLinks | Site Map

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