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

We have developed numerous relationships with various companies. We have provided our clients everything from a printed brochure to an ecommerce site, press releases, and much more. Our client list includes architectural firms, construction companies, non-profits, night clubs, restaurants, telecommunications, and retail stores. We pride ourselves on the company we keep and not only look to do business with our clients but rather to develop a long lasting mutually beneficial relationship. Listed below are a hand full of the clients we have worked with.

Design Ideas Group DF Gibson Architects, P.C.
The nation’s largest privately held reconditioning company offering a unique and comprehensive service to maintain athletic equipment. Providing a quality choice in K-12 education,
Elias Auto Sales Margle Law Offices, P.C. Zurich Funding Holding Corporation
eAuction Solutions is a pioneer in the full service auction management field. Cottage Spice Co. carries a complete line of Herbs & Spices.
EPHF is a second-generation family-owned company operated by the Gourniak family. Apex Abstract is a full service title insurance company that services most of Eastern Pennsylvania.
Committed to offering only the finest floral arrangements and gifts, backed by service that is friendly and prompt. Wise Financial is a direct lender that can give you the best rates at lower costs with no middlemen involved.
Full serives dental lab. The RizzCon Safety Slip makes electrical service connections permanent and problem free.

 
site map
©2008 DAY Vision Marketing all Rights Reserved.
Tel: 610.403.3999 . Fax: 610.403.3998 . info@dayvision.com