Also so weit bin ich jetzt:
Dabei klappt das Einf�gen, das L�schen noch nicht.
Bitte um anregung, Reinhold
<%
if request("Abschicken") <> "" then
if request("mode") = "delete" then
Email = request("Email")
set myrec = Server.CreateObject("ADODB.Recordset")
myrec.ActiveConnection = MM_Access_STRING
myrec.Source = "SELECT * FROM Newsletter where Email=" &
Request.Form("Email")
myrec.CursorType = 1
myrec.LockType = 3
myrec.Open
myrec.DELETE
myrec.update
myrec.Close
Response.Write "Gel�scht"
elseif request("mode") = "insert" then
Email = request("Email")
set myrec = Server.CreateObject("ADODB.Recordset")
myrec.ActiveConnection = MM_Access_STRING
myrec.Source = "SELECT * FROM Newsletter"
myrec.CursorType = 0
myrec.CursorLocation = 2
myrec.LockType = 3
myrec.Open()
myrec_numRows = 0
myrec.addnew
myrec.fields("Email") = Request.Form ("Email")
myrec.update
myrec.Close
Response.Write"DAzu"
end if
end if
%>
-----Urspr�ngliche Nachricht-----
Von: ASP Freak [mailto:[EMAIL PROTECTED]]
Gesendet: Freitag, 15. M�rz 2002 08:53
An: ASP Diskussionsliste fuer Anfaenger
Betreff: [aspdebeginners] AW: Newsletter
if request("mode") = "delete" then (request("mode") ist k�rzer zum
schreiben)
Response.Redirect ("deleted.asp?[EMAIL PROTECTED])
elseif request("mode") = "insert" then
Email = request("Email")
....
Warum schreibst du die funktion nicht einfach auf diese Seite?
Geh doch einfach her und schreibe:
if request("NameDesSendebuttons") <> "" then
if request("mode") = "delete" then (request("mode") ist k�rzer
zum schreiben)
Email = request("Email")
'L�schen des Datensatzes
Message = "Ihre Mail wurde gel�scht"
elseif request("mode") = "insert" then
Email = request("Email")
'Einf�gen des Datensatzes
Message = "Ihre Mail wurde hinzugef�gt"
end if
end if
Du brauchst danach nur 2 Tabellenelemente in die Seite einf�gen die du
folgenderma�en ausw�hlst:
If Message = "" then
'Formular zur Eingabe
else
Anzeige einer anderen Tabelle mit der Variable Message
Mit freundlichen Gr��en
ASP-Freak alias R. Ebner
visit my website: www.computercomponents.at
-----Urspr�ngliche Nachricht-----
Von: Reinhold Becker [mailto:[EMAIL PROTECTED]]
Gesendet: Freitag, 15. M�rz 2002 08:33
An: ASP Diskussionsliste fuer Anfaenger
Betreff: [aspdebeginners] Newsletter
Noch einmal wegen meines Newsletter:
Ich habe inzwischen folgendes:
<%IF Request.Form("mode")="delete" then
Response.Redirect ("deleted.asp?[EMAIL PROTECTED])
END IF
IF Request.Form("mode")="insert" then
Response.Redirect ("add.asp")
END IF
%>
Das funktioniert auch. Wie mu� ich das umschreiben, damit der Inhalt des
Formelemts Email ausgelesen wird?
Reinhold
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv Sie
| knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
