Forum
Aktif konular
Üyeler
Kurallar
Arama
(ASP) E-Bülten"De Ekle Çıkar Yardım?? (ASP) E-Bülten"De Ekle Çıkar Yardım??
-
Merhaba Arkadaşlar.Bir E-bülten yapıyorumda burda aynı formda ekle çıkar işlemini nasıl hangi mantıkla yapacagımı çözemedim yardımcı olurmusunuz? Benim kodlarım aşağıda... bu kodları düzenleyip çalıştırmamda katkısı olacaklar için şimdiden teşekkürler.
<%@ Language="VBScript" CodePage="1254" %>
<% Response.Buffer = TRUE %>
<% Session.TimeOut=180 %>
<!--#INCLUDE file="admin_session.asp"-->
<!--#INCLUDE file="vt.asp"-->
<!--#INCLUDE FILE="ADOVBS.inc"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254" />
<meta http-equiv="Content-Language" content="tr" />
<title>Blok E-Mail Liste (Monte Edilecek)</title>
<script language="javascript">
function check()
{
if(document.frm.email.value=="")
{
alert("E-Mail alanı boş bırakılamaz !")
return false
}
if(document.frm.isim.value=="")
{
alert("Ad Soyad alanı boş bırakılamaz !")
return false
}
return true
}
</script>
</head>
<body>
<% email = Request("email") %>
<%
If Request("do")="ekle" Then
isim = Request.Form("isim")
email = Request.Form("email")
sqlString = "INSERT INTO mail_liste" &_
"(isim, email) VALUES (" &_
" '" & isim & "' , "&_
" '" & email & "')"
Baglanti.execute sqlString
Response.redirect "?do=ok"
Else If Request ("do") = "cikar" And email <> "" Then
Set RSSil = Server.CreateObject("ADODB.RecordSet")
RSSil.ActiveConnection=Baglanti
RSSil.open "DELETE From mail_liste WHERE email="&email&""
Response.redirect Request.ServerVariables("HTTP_REFERER")
Response.redirect "?do=not
End If
End If
%>
<form action="?do=tamam" method="post" name="frm" onsubmit="return check(this)">
<table cellpadding="3" align="center" cellspacing="3" style="width: 100%">
<tr>
<td style="width: 68px">Ad Soyad</td>
<td class="style3" style="width: 8px"><strong>:</strong></td>
<td>
<input name="isim" type="text" tabindex="1" maxlength="255" class="butonstil" style="width: 425px" value='<%=Request("isim")%>'></td>
</tr>
<tr>
<td class="style19" style="width: 68px">E-Posta</td>
<td class="style20" style="width: 8px"><strong>:</strong></td>
<td class="style19">
<input name="email" type="text" tabindex="1" maxlength="255" class="butonstil" style="width: 425px" value='<%=Request("email")%>'></td>
</tr>
<tr>
<td style="width: 68px"> </td>
<td class="style3" style="width: 8px"> </td>
<td><input type="radio" value="Ekle" checked name="R1">Ekle
<input type="radio" name="R2" value="Cikar"> Çıkar</td>
</tr>
<tr>
<td style="width: 68px"></td>
<td class="style3" style="width: 8px"></td>
<td>
<input name="Submit1" type="submit" value="Tamam" class="butonstil" tabindex="4">
</td>
</tr>
<tr>
<td style="width: 68px"> </td>
<td class="style3" style="width: 8px"> </td>
<td><strong>
<% if Request("do")="ok" Then
Response.write="Başarıyla eklendi."
else if request("do")"not" then
Response.write="Başarıyla çıkarıldı."
end if
end if
%>
</strong></td>
</tr>
</table>
</form>
</body>
</html> -
upluyorum bi yardımcı olur umarım
-
spamcı bi çömez yüzünden konu gitti çoğu arkadasımız gormedi sanırm. tekrar up
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Toplam Hit: 929 Toplam Mesaj: 3
Cevapla