:: Eagle Landing ::

<% if Request.ServerVariables("CONTENT_LENGTH")>0 then const DBProvider="SQLOLEDB" 'const sqlserver="AD48\SQLEXPRESS" 170189-WEB1\SQLEXPRESS sqlserver=DB_SERVER WEBdatabase=DB_NAME DBUserID=DB_USERNAME DBPassword=DB_PASSWORD Set objConnection=CreateObject("ADODB.Connection") Set objCmd=Server.CreateObject("ADODB.Command") strConnectString = "Provider=" & DBProvider strConnectString = strConnectString & ";User ID=" & DBUserID strConnectString = strConnectString & ";Password=" & DBPassword strConnectString = strConnectString & ";Initial Catalog=" & WEBdatabase strConnectString = strConnectString & ";Data Source=" & sqlserver objConnection.ConnectionTimeout = 60 objConnection.CommandTimeout = 60 objConnection.Mode = 3 'adModeReadWrite objConnection.open strConnectString Response.Write(strSql) strSql="select count(*) from dbo.tbl_emailSubcribe where fld_email='"& Request.Form("txtEmail") &"'" SET rsCount=objConnection.Execute(strSql) strMail=Request.Form("txtEmail") strFName=Request.Form("fName") strLName=Request.Form("txtLName") if rsCount(0) =0 then sqlInsert="INSERT INTO dbo.tbl_emailSubcribe (fld_email,fld_fname,fld_lname) VALUES ('"&strMail&"','"&strFName&"','"&strLName&"')" objConnection.execute(sqlInsert) %> <% else errMsg="1" end if end if %> :: Eagle Landing ::

Retail & Entertainment A+ Office Civic Auditorium Hotel New Hope Church Residential

Eagle Landing Golf Course The Aerie at Eagle Landing Ella V. Osterman Park & Amphitheater

LEED Certification Wind and Water Transportation

Lead Developer: Neil Nedelisky Project Manager: Bruce Wood Architect: Garry Reddick

Feedback form

Email Subscription

<%if errMsg="1" then Response.Write("Email already exist") %> <% end if %>
E-Mail*
First Name
Last Name