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

200 MILLION YEARS OF BEAUTY

TurtlesSea turtles are reptiles related to land turtles, lizards and snakes. Sea turtles and their ancestors have graced the seas for over 200 million years. They managed to survive whatever catastrophe ended the age of dinosaurs. The ice ages came and went, but the turtles are still swimming the oceans. These ancient nomadic reptiles are truly survivors.

Sea turtles are still found in all the warm waters of the earth. Ocean life has given them all some common characteristics. All species have legs modified into efficient swimming flippers. These are clumsy on land but make sea turtles very fast and graceful in the water. The front flippers are used much like underwater wings, the rear ones like rudders. Turtles, as air breathing, egg laying reptiles, must return to the surface for air and to the shore for nesting.

When they are active, sea turtles must swim to the ocean surface to breathe every few minutes. When they are resting, they can remain underwater for as long as two hours without breathing.

The salinity of the seas presents problems to marine reptiles. Sea turtles excrete excess salt through salt glands in the eye socket. Out of water, this secretion appears much like tears.

The six species of sea turtles found along the coasts of North America are:

For more on turtles visit:
http://www.turtles.info

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