Tilmeld og frameld

lav en side hvor man skriver sin email ind, lav en sql sætning med en Where som finder brugerens email og skriver "nej" i nyhedsbrev, eller sletter recorden, altså "Delete * from Nyhedsbrev Where E-mail =" & Request.form("email")

Det lyder ok, men er der ikke en der vil prøve at lave et udført eksempel, så skal jeg nok rette i det!

jeg er lidt på bar bund, når jeg skal starte helt fra bunden!

Justdoit:)

jeg bruger sådan noget her lign. men det kører på et brugersystem, ved jeg self. ikke om du gør...
________________________________________________________
<%@ Language=VBScript %>
HUSK CONN!
<HTML>
<HEAD>
</HEAD>
<body>
<center>
<% Sql = "SELECT * FROM Brugere Where Id =" & Session("bruger")
  Set rs = Server.CreateObject("ADODB.Recordset")
  rs.Open Sql, Con, 3, 3
  ' Hvis man vil tilmeldes eller frameldes
  if request("mode") = "tilmeld" or request("mode") = "frameld" then
  if request("mode") = "tilmeld" then
  rs("Nyhedsbrev") = "ja"
  rs.Update
  Response.Write "Du er nu tilmeldt nyhedsbrev!"
  else
  rs("Nyhedsbrev") = "nej"
  rs.Update
  Response.Write "Du er nu frameldt nyhedsbrev!"
  end if
  else
if rs("Nyhedsbrev") = "ja" or rs("Nyhedsbrev") = "" then %>
Du er allerede tilmeldt nyhedsbrev.<br>
Afmeld nyhedsbrev<br>
<% else %> 
Tilmeld nyhedsbrev<br>
<% end if %>
<FORM action="nyhedsbrev.asp?mode=<% if rs("Nyhedsbrev") = "ja" then Response.Write "frameld" else Response.Write "tilmeld" end if%>" target="_self" method=POST id=form1 name=form1>
<INPUT type="submit" value="<% if rs("Nyhedsbrev") = "ja" then Response.Write "Frameld" else Response.Write "Tilmeld" end if%>" id=submit1 name=submit1>
</FORM>
<% end if
  end if %>
</center>
</BODY>
</HTML>
<% Con.close
  Set con = Nothing %>

Tak, men har du både tilmelding og framelding i dette script! Jeg skal kun bruge et script hvor jeg skal framelde!!

<% if request("mode") = "frameld" then
  Conn.execute("Delete * from Mailinglist Where Mailingaddy =" & Request.form("email")
response.write "Du er nu slettet fra mailinglisten..."
%>
<FORM action="nyhedsbrev.asp?mode=frameld" target="_self" method=POST id=form1 name=form1>
<input type="text" id=text name=email><br>
<INPUT type="submit" value="Frameld" id=submit1 name=submit1>
</FORM>

<% if request("mode") = "frameld" then
  Conn.execute("Delete * from Mailinglist Where Mailingaddy =" & Request.form("email")
response.write "Du er nu slettet fra mailinglisten..."
else
%>
<FORM action="nyhedsbrev.asp?mode=frameld" target="_self" method=POST id=form1 name=form1>
<input type="text" id=text name=email><br>
<INPUT type="submit" value="Frameld" id=submit1 name=submit1>
</FORM>
<% end if %>

Vil du ikke prøve at flette det sammen, jeg har prøvet, men det dur ikke rigtigt!

Her er mine koder: <input type name="eaddy">

og når der bliver submittet, skal scriptet hente SpawnedMailerAdd.asp



SpawnedMailerAdd.asp filen ser sådan ud:

<!--#include file ="SpawnedHead.asp"-->
<a href="SpawnedMailerAdd.asp#top"></a>
<%
Dim eAddy
eAddy = Request.Form("eaddy")
response.write( eAddy )

if eAddy = "" then
response.write("Gå venligst tilbage og skriv din e-mail adresse.")

else

If InStr(1,eAddy,"@",vbTextCompare) = 0 then

response.write(" Dette er ikke en korekt e-mail adresse, prøv venligst igen!")

else

set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("../../db/SpawnedMailer.mdb"))

set rsMail = Server.CreateObject("ADODB.recordset")
rsMail.Open "SELECT * FROM MailingList WHERE MailingAddy='" & eAddy & "'", conn

    If not rsMail.EOF Then
        If rsMail("MailingAddy") = eAddy Then

            response.write(" Denne e-mail adresse eksistere allerede, prøv en anden!.")

        End if

    Else

            mailSQL = "INSERT into MailingList (MailingAddy) VALUES ('" & eAddy & "');"
            conn.Execute mailSQL
            response.write(" E-mail adresse en nu blevet tilføjet!")
    End if


rsMail.close
conn.close
end if
end if
%>
<!--#include file ="SpawnedFoot.asp"-->

Du skal nok få lidt ekstra point for det:)

Vil du se på det, eller skal jeg droppe det??

kan jeg godt, men det bliver først i morgen...

Helt ok

Justdoit:)

prøv det her:
------------------------------------------
<%@ Language=VBScript %>
<HTML>
<HEAD>
<title>Frameld nyhedsbrev
</HEAD>
<BODY>

<!--#include file ="SpawnedHead.asp"-->
<a href="SpawnedMailerAdd.asp#top"></a>
<%
Dim eAddy
eAddy = Request.Form("email")
response.write( eAddy )

if eAddy = "" then
response.write("Gå venligst tilbage og skriv din e-mail adresse.")

else

If InStr(1,eAddy,"@",vbTextCompare) = 0 then

response.write(" Dette er ikke en korrekt e-mail adresse, prøv venligst igen!")

else

set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("../../db/SpawnedMailer.mdb"))

set rsMail = Server.CreateObject("ADODB.recordset")
rsMail.Open "Delete * FROM MailingList WHERE MailingAddy='" & eAddy & "'", conn

    If rsMail.EOF Then
        Response.Write "Din e-mail findes ikke!"
        else
        Response.Write "Du er nu frameldt nyhedsbrevet!"
        end if

rsMail.close
conn.close
end if
end if
%>
<FORM action="frameld.asp?mode=frameld" method=POST id=form1 name=form1>
<INPUT type="text" id=text1 name=email>
<INPUT type="submit" value="Frameld" id=submit1 name=submit1>
</FORM>
<!--#include file ="SpawnedFoot.asp"-->

</BODY>
</HTML>

Hej, det har lige taget lidt tid for mig, da min computer lige har været nede et par dage - men nu er jeg klar igen.

jeg har lagt dit script ind, og det ser ok ud, men jeg får lige en lille fejlmelding! Kan du se hvad det er ??


ADODB.Recordset fejl '800a0e78'

Den handling, programmet anmodede om, er ikke tilladt, hvis objektet er lukket.

/dvdit/dvdit-filer/nyhedsbrev/frameld.asp, linje 26

har du husket at lave rettighederne rigtige på din db? Sådan at man kan slette og skrive til den?
Anyway husk at rette tabelnavne osv. til, hvis der er nogle der er forkerte...

Hvordan gør jeg Sådan at jegkan slette og skrive til min db?

Jeg har rette tabelnavne skulle jeg mene:)

...prøv at dele mappen hvori dine filer ligger... med skrive rettigheder...

Jeg har lige prøvet at tilføje en ny mail, og derefter slette den igen via dit script og det virker fint:), men den skriver stadig den samme fejlmelding??

Hvorfor?

ok, nu er jeg M;EGET forvirret... den giver en fejl, men den virker?!? wh00t?

Ja, jeg ved ikke helt hvad det er der sker, for den sletter fint fra dadtabasen, men kommer med fejlen:

ADODB.Recordset fejl '800a0e78'

Den handling, programmet anmodede om, er ikke tilladt, hvis objektet er lukket.

Det er ik noget du lige ved hvad er eller hva??