Set Connection = Server.CreateObject("ADODB.Connection")
if request("mode") = "sub" then
SQL = "INSERT into emails (email) VALUES ('"&request("email")&"')"
' response.write SQL
set r1 = connection.execute(SQL)
message = "The Email has been Added
" end if %>
Join our mailing list! We will not sell your email address to any entity and we will only email you periodically when we have something of interest to you in the Wilmington area.
MEET YOUR REALTOR | FEATURED LISTINGS | SEARCH MLS
MAILING LIST | AREA INFO | WEBCAM | CONTACT ME | TAX INFO | HOME