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