<%
option explicit'must be declared
'setting buffering to true
response.buffer=true
'decleration
dim useraction
dim conn
dim rs
dim sql
dim dsn
dim DownNumber
dim sql3
dim sql2
dim uemail
dim subs
'----------------------
'get action from user
useraction=request("action")
select case useraction
case "save"
Uemail=lcase(request.form("email"))
subs=request.form("subs")
dsn="DBQ=" & Server.Mappath("/fpdb/mailist.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
' dsn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=c:\inetpub\wwwroot\fpdb\subs.mdb"
set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
sql = "select * from emails where emails='"&Uemail&"'"
conn.open dsn
rs.open sql,conn
select case subs
'in case someOne wants to join the list
case "1"
if rs.bof and rs.eof then
sql2="insert into emails(emails) values('"&Uemail&"')"
conn.execute(sql2)
response.write ""
else
response.write ""
end if
'in case someOne wants to unsubscribe
case "0"
if rs.bof and rs.eof then
response.write ""
else
sql2="delete from emails where emails='"&Uemail&"'"
conn.execute(sql2)
response.write ""
end if
end select
rs.close
set rs=nothing
end select
%>
GDV Research for Kirlian Computerized Camera
