<%@ 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 ::
<%=err%>
Name:
Email:

Services

DAY VISION MARKETING
824 West Walnut Street, Suite 3
Allentown, PA 18102
TEL: 610-403-3999
FAX: 610-403-3998
info@dayvision.com

If you are looking for integrity, innovation, creativity, quality, team work and committed to excellence in all aspects for your expertise. We want to hear from you!

Want to join our team?
If so, please submit your resume and portfolio to the following email address: hr@dayvision.com
View Larger Map  
site map
©2008 DAY Vision Marketing all Rights Reserved.
Tel: 610.403.3999 . Fax: 610.403.3998 . info@dayvision.com