<% mail = request.form("mail")%>
<% if mail <> "" and mail <> "1" and mail <> "2" and mail <> "3" then %>
<% set AdoConn = server.createobject("ADODB.Connection")
AdoConn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("http://www.condroz.be/dataserver/mail.mdb")
SQLQuery = "INSERT INTO mail (mail) VALUES ('"&mail&"')"
SET baseset = AdoConn.Execute (SQLQuery) %>
<% end if %>
