<%@ 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

Our team has over 30 years of combined experience with a diverse background and proven success in marketing, graphic design, web development, and e-marketing.

We not only support creativity and originality, we also encourage our team members to learn about other important skills such as: asking questions, the art of listening, flexibility, and motivating team members. Our pool of talented individuals combined with high integrity, a creative and supportive environment and a passion to serve, brings to life original concepts, eye-catching designs, and ultimately success to the over all goal.

Whether you need dedicated and talented marketers, design professionals, programmers, or a project managers, there will be someone on our team who has the skills and dedication to meet your companies needs.

“A successful team is a group of many hands but of one mind.”
site map
©2008 DAY Vision Marketing all Rights Reserved.
Tel: 610.403.3999 . Fax: 610.403.3998 . info@dayvision.com