<%
if request.form("Submit")="ΕΓΓΡΑΦΗ" then
newemail=request.form("email")
if newemail<>"" then
curDir=Server.MapPath("/mail/maillist.mdb")
set conn=Server.CreateObject("ADODB.connection")
conn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access"
set rs=conn.execute("SELECT * FROM emails WHERE email='" & newemail & "'")
i=0
do until rs.eof
i=i+1
rs.movenext
loop
rs.close
if i=0 then
conn.execute("INSERT INTO emails (email) VALUES ('" & newemail & "')")
end if
conn.close
end if
end if
%>
