%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "DSN="&DSN_Name&""
if request("mode") = "sub" then
SQL = "INSERT into emails (email) VALUES ('"&request("email")&"')"
' response.write SQL
' response.end
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 |
||||
|