<%Dim Db, Email, sErr, Subscribed, OptedOut Subscribed = False OptedOut = False OpenDBase If Request("Email") <> "" Then Email = Request("Email") ElseIf Request.Form("Email") <> "" Then Email = Request.Form("Email") Else Email = "" End If If Email <> "" Then If Request.Form("Action") = "Subscribe" Then Subscribe ElseIf Request.Form("Action") = "OptOut" Then OptOut End If End If Sub Subscribe() strSQL = "If Not (Exists (Select Email From TBC_EmailDatabase Where Email = '" & Email & "'))" & _ " Insert TBC_EmailDatabase (Email, DateCreated) Values('" & Email & "','" & Now() & "')" & _ " Else Update TBC_EmailDatabase Set optout_date = Null, optout_wwi = Null, optout_inn = Null, optout_inscmail = Null Where Email = '" & Email & "'" Db.Execute strSQL Subscribed = True End Sub Sub OptOut() strSQL = "Update TBC_EmailDatabase Set optout_inscmail = '" & Now & "' Where Email = '" & Email & "'" Db.Execute strSQL OptedOut = True End Sub %> Welcome to InsuranceMail.biz!


  8 Hours of CE FREE!  Getting your CE has never been easier
(or cheaper). 

Read More

  Are you interested in selling your agency or raising additional capital to grow your agency?  We are a well funded acquirer of agencies.

Read More

  Finally a powerful EIA presentation system!  Find out how you can receive this program valued at over $595 for free.

Read More



To receive exciting updates, industry news and opportunities to improve your insurance business, please input your email address below:
(your information will not be shared with a third party)
To be permanently removed from our database and no longer receive invaluable insurance offers and insurance news from InsuranceNewsNet, please input your email address below:
<%ElseIf Subscribed Then%> <%= Email%> Thanks for joining! <%ElseIf OptedOut Then%> <%= Email%> You have been removed from our mailing list. <%End If%>



Copyright 2005 InsuranceNewsNet.com