% 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 %>
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||