<%
'****************************************************************************************
'**
'****************************************************************************************
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
%>
Mother
Ocean Foundation wishes to thank the Professional
Association of Dive Instructors (PADI) and Project
AWARE Foundation for its recent grant to assist
in the production of the CD-ROM "Little Things
Mean a Lot". Project AWARE was established
in 1992 by the PADI and is committed to worldwide
education, conservation and the preservation of
our oceans, rivers, lakes and streams.
to
learn more about
PADI & Project AWARE
ENVIRONMENTAL WARNING Curaçao
is in drastic need of help. Read All
About It Here
OUR
MOTHER OCEAN FOUNDATION
CURRENT
EVENTS/NEWS
