<%@ Language=VBScript %>
<% Response.Buffer = true %>
<% if (Not isEmpty(Request.Form("name"))) then
DIM xname,xemail,xregtime, xip
DIM source, conn, sql_insert, rs,n, err, strSql
xname = Trim(Request.Form("name"))
xemail = Trim(Request.Form("email"))
xregtime= Cdate(now)
xip = Request.Servervariables("REMOTE_ADDR")
'strSql = "SELECT * from CustomerInfo Where LoginID = '"& Ucase(xlogin) & "' and Pass = '" & Ucase(xpass) & "'"
strSql = "SELECT * from newsletter Where email = '"& xemail & "'"
set conn = Server.CreateObject("ADODB.Connection")
source = "Provider=Microsoft.jet.OLEDB.4.0; Data source = " & Server.MapPath("data\day.mdb")
conn.Open source
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSql,conn
n = 0
while not rs.EOF
n = n + 1
rs.MoveNext
Wend
if n < 1 then
sql_insert = "INSERT INTO newsletter(name,email,[date],ip) Values( '" & xname & "','" & xemail & "','" & xregtime & "','" & xip & "')"
conn.Execute sql_insert
Response.Redirect "thankyou.asp"
else
err ="email address already exists."
end if
conn.Close
set conn = nothing
set rs = nothing
end if
%>
DAY Vision Marketing :: Each DAY holds a new Vision for tomorrow ::DAY Vision Marketing :: Each DAY holds a new VISION for tomorrow ::