DAY Vision Marketing :: Each DAY holds a new Vision for tomorrow ::

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

.:. CLIENT LOG-IN .:.

DAY VISION Marketing's graphic artist team has the ability to visualize your business concepts and goals into a visual masterpiece through a complete brand image. Everything is taken into consideration from the foundations (mission, logo, tagline) to the complete finished package (printed materials, website, advertising).

:: Close ::