~~~ Welcome to Our Mother Ocean Organization ~~~

<% '**************************************************************************************** '** '**************************************************************************************** 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 %>

JOIN OUR NEWSLETTER MAILING LIST

Site Map

Page Name	URL	Description
HOME PAGE	INDEX.HTM	WELCOME TO OUR MOTHER OCEAN
PHOTO GALLERY	PHOTO-GALLERY.HTM	OUR LARGE GALLERY OF PHOTOGRAPHY
VIDEO GALLERY	VIDEO-GALLERY.HTM	SPEND SOME TIME WATCHING OUR VIDEOS
JOIN/DONATE	JOIN-DONATE.HTM	JOIN OUR ORGANIZATION OR DONATE TO US
EVENTS/NEWS	EVENTS-NEWS.HTM	UPCOMING AND CURRENT EVENTS & NEWS
PRODUCTS	PRODUCTS.HTM	WE HAVE A CHOICE LINE OF PRODUCTS FOR SALE
DOLPHINS	DOLPHIN.HTM	READ ALL ABOUT THE DOLPHIN
MANATEES	MANATEES.HTM	MANATEES THE GENTILE MERMAIDS OF THE SEA
TURTLES	TURTLES.HTM	TURTLES THE LAST OF THE LIVING DINOSAURS
WHALES	WHALES.HTM	THE OCEANS GIANTS
SHARKS	SHARKS.HTM	NOT AS FIERCE AS BELIEVED EDUCATE YOURSELF
CONTACT US	CONTACT.HTM	CONTACT US...WE'D LOVE TO HEAR FROM YOU
ABOUT US	ABOUTUS.HTM	ALL ABOUT OUR MOTHER OCEAN ORGANIZATION
TRADEMARK INFO	TRADEMARK.ASP	LEGAL TRADEMARK INFORMATION
LINKS	LINKS.HTM	LINKS TO OUR SPONSORED AND AFFILIATE SITES

ADVERTISING

PLACE YOUR AD
HERE TODAY!

CURRENT NEWS

Statement of Trademark | Privacy Policy | Links | Site Map