formulär och funktioner

Prova detta

<!-- #include file="config.asp" -->
<% 
func = request.querystring ("func")
if func = "addform" then
addform
elseif func = "delform" then
delform
else
select case request.Querystring ("function")
case "add"
call add
case "remove"
call remove
end select
end if
%>

sub addform
%>
<form method="POST" action="mlmlist.asp?function=add">
<p align="center"><b><i>Subscribe</i></b></p>
<div align="center">
<center>
<table border="1" bgcolor="#008080">
<tr>
<td>
<p align="center"><b>Email</b><br>
<input type="text" name="newmail" size="20"></td>
</tr>
<tr>
<td>
<p align="center"><input type="submit" value="Subscribe" name="B1"><input type="reset" value="Reset" name="B2"></td>
</tr>
</table>
</center>
</div>
<p align="center"> </p>
</form>

<%
end sub

sub delform
%>
<form method="POST" action="mlmlist.asp?function=remove">
<p align="center"><i><b>Unsubscribe</b></i></p>
<div align="center">
<center>
<table border="1" width="149" bgcolor="#008080">
<tr>
<td width="139">
<p align="center"><b>Email</b><br>
<input type="text" name="remmail" size="20"></td>
</tr>
<tr>
<td width="139">
<p align="center"><input type="submit" value="remove" name="B1"><input type="reset" value="Reset" name="B2"></td>
</tr>
</table>
</center>
</div>
<p align="center"> </p>
</form>
<%
end sub

sub add
email = Request.form ("newmail")
If IsEmpty(Request("newmail")) or InStr(Request("newmail"), "@") = 0 Then 
response.write ("Please Enter An Email Address <br> in the form username@location.domain <br> <a href=""javascript:history.back()"">Back</a> ")
response.end
end if

set mailcheck = conn.Execute ("Select email from list where email='" & email & "'")

if mailcheck.eof then

sql="INSERT INTO list (email,dateadded) VALUES('" & email & "',date())"
conn.execute sql,,128
Response.write "added"
else 
Response.Write "Your are already subscribed"
end if

mailcheck.close
set mailcheck=Nothing
conn.close
set conn=Nothing

end sub

sub remove
dim lngAff
remmail = Request.form ("remmail")
if remmail = "" then
Response.Write ("Please enter a valid email<br> <a href=""javascript:history.back()"">Back</a>")
response.end
end if
conn.execute "delete * From list where email='" & remmail & "'",lngAff,128

if lngAff<=0 then
response.write "there are no emails here "
else
response.write remmail & " Has Been Removed"
end if
end sub
%>

If-satserna i början var lite fnuliga, jag har tagit bort överflödiga <% och %>, bytt från function till sub (eftersom en function ska returnera något) och gjort databasoperationerna med ett par små sql-satser.

Tack, men jag förstår nog inte helt. jag förklarade kanske lite dåligt. Sorry. Jag har följande formulär och funktioner på en annan sida:

<form name="form" method= "POST">
    
  <table width="34%" cellpadding=2 cellspacing=2 border=1 bgcolor="#FFF4FA" align="center">
<tr>
<td align="center">
  <input type="text" class="text" name="newmail" size="17" value="Email?"><br>
  <input TYPE="radio" NAME="meld" Value="yes" checked onsubmit="func1();">Prenumerera <br>
  <input TYPE="radio" NAME="meld" value="no" onsubmit="func2();">Avbeställ
  </td>
</tr>
</table>              
              <p align="center"><input type="submit" value="Skicka" name="B1"><input type="reset" value="Återställ" name="B2"></p>
            </form>       
          </td>
        </tr>
      </table>

Här är functionerna:

function func1(){
document.form.action = 'mlmlist.asp?function=addform';
document.form.submit();
}
function func2(){
document.form.action = 'mlmlist.asp?function=delform';
document.form.submit();
}

(mlmlist.asp är sidan som jag bifogade innan) Detta får jag inte att fungera? Vad gör jag fel :r ?

------------------
www.moviemix.nu