Email list sign up form !

Try this, I think that should fix your problem :o)

Demo:
http://www.myscript.co.il/myscript/mysub/demo

Download:
http://www.myscript.co.il/myscript/download.asp?app=mysub

thats the newsletter I use but I have experienced some problems with the mailing list.. For example thoose new windows that Ontheminute.com also get.. or they change site...  do you understand ?

Send me the database Jamal@web-zone.dk

<%
str = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"subs.mdb\")

set rs = server.createobject(\"ADODB.Connection\")
subscribe = request.form(\"subs\")
unsubs = request.form(\"unsubs\")
if send <> \"\" Then
email = request.form(\"email\")
sql = \"Select * from emails where email LIKE \'\"&email&\"\'\"
rs.open sql,str
if rs.EOF then
sql2 = \"Insert into emails(email) Values(\'\"&email&\"\')\"
set rs = rs.execute(sql2)
Alert = \"You are now subscribed to the newsletter\"
rs.close
else
Alert = \"You are already subscribed to the newsletter\"
end if

Elseif unsubs <> \"\" Then
email = request.form(\"email\")
sql = \"Select * from Emails where email LIKE \'\"&email&\"\'\"
rs.open sql,str
if rs.eof then
Alert = \"You are not subscribed to the newsletter\"
else
sql2 = \"DELETE from emails where email = \'\"&email&\"\'\"
set rs = rs.execute(sql2)
Alert = \"You have been unsubscribed\"
end if
End if
<html>
<head>
<title>Newsletter</title>
</head>
<body>
<center>
<b><%=Alert%></b>
<form method=\"post\" action=\"news.asp\">
<b>Your email:<br></b>
<input type=\"text\" name=\"email\"><br><br>
<input type=\"submit\" name=\"subs\" value=\"subscribe\">
<input type=\"submit\" name=\"unsubs\" value=\"unsubscribe\">
</form>
</body>
</html>

woups ...
a little bug ...
before the start of the <html> you need a line with
%>

Hey,

it doesnt work:
http://www.ontheminute.com/newsletter.asp

Did you et my email \"okay\" ?

you need to name the asp document news.asp

Or you can change the line <form method=\"post\" action=\"news.asp\">

to: <form method=\"post\" action=\"newsletter.asp\">
that might work!

I changed that line to newsletter.asp. And it still doesnt work.


<%
str = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"news/admin/mailinglist/db/subs.mdb\")

set rs = server.createobject(\"ADODB.Connection\")
subscribe = request.form(\"subs\")
unsubs = request.form(\"unsubs\")
if send <> \"\" Then
email = request.form(\"email\")
sql = \"Select * from emails where email LIKE \'\"&email&\"\'\"
rs.open sql,str
if rs.EOF then
sql2 = \"Insert into emails(email) Values(\'\"&email&\"\')\"
set rs = rs.execute(sql2)
Alert = \"You are now subscribed to the newsletter\"
rs.close
else
Alert = \"You are already subscribed to the newsletter\"
end if

Elseif unsubs <> \"\" Then
email = request.form(\"email\")
sql = \"Select * from Emails where email LIKE \'\"&email&\"\'\"
rs.open sql,str
if rs.eof then
Alert = \"You are not subscribed to the newsletter\"
else
sql2 = \"DELETE from emails where email = \'\"&email&\"\'\"
set rs = rs.execute(sql2)
Alert = \"You have been unsubscribed\"
end if
End if
%>

<html>
<head>
<title>Newsletter</title>
</head>
<body>
<center>
<b><%=Alert%></b>
<form method=\"post\" action=\"newsletter.asp\">
<b>Your email:<br></b>
<input type=\"text\" name=\"email\"><br><br>
<input type=\"submit\" name=\"subs\" value=\"subscribe\">
<input type=\"submit\" name=\"unsubs\" value=\"unsubscribe\">
</form>
</body>
</html>

it emails and not email I think !!

I dont have access2000 to view the database...

Test it yourself, and you will probably see the errors:_
http://www.ontheminute.com/newsletter.asp

Change the entire scriptsource with this scource ...

That might work, the problem is the input area, it has not got the name it should have...

so try this:
<%
str = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"news/admin/mailinglist/db/subs.mdb\")

set rs = server.createobject(\"ADODB.Connection\")
subscribe = request.form(\"subs\")
unsubs = request.form(\"unsubs\")
if send <> \"\" Then
email = request.form(\"email\")
sql = \"Select * from emails where email LIKE \'\"&email&\"\'\"
rs.open sql,str
if rs.EOF then
sql2 = \"Insert into emails(email) Values(\'\"&email&\"\')\"
set rs = rs.execute(sql2)
Alert = \"You are now subscribed to the newsletter\"
rs.close
else
Alert = \"You are already subscribed to the newsletter\"
end if

Elseif unsubs <> \"\" Then
email = request.form(\"email\")
sql = \"Select * from Emails where email LIKE \'\"&email&\"\'\"
rs.open sql,str
if rs.eof then
Alert = \"You are not subscribed to the newsletter\"
else
sql2 = \"DELETE from emails where email = \'\"&email&\"\'\"
set rs = rs.execute(sql2)
Alert = \"You have been unsubscribed\"
end if
End if
%>

<html>
<head>
<title>Newsletter</title>
</head>
<body>
<center>
<b><%=Alert%></b>
<form method=\"post\" action=\"newsletter.asp\">
<b>Your email:<br></b>
<input type=\"text\" name=\"email\"><br><br>
<input type=\"submit\" name=\"subs\" value=\"subscribe\">
<input type=\"submit\" name=\"unsubs\" value=\"unsubscribe\">
</form>
</body>
</html>

It did not work.........

  It did not work.........