Kod: Tümünü seç
sub ilan_sil ()
tip = request.QueryString("tip")
no =request.QueryString("no")
if (request.Cookies("uye") <> session ("sahip")) and session("admin") = "" then
response.Redirect("default.asp")
else
[b] 'Burada kullanıcıdan onay almak için javascript confirm pencersi açtırıyorum , kullanıcı tamama da bassa iptale de bassa bundan sonraki satırlar çalışıyor. Confirm penceresinde iptale bastığında silme yapmadan bir önceki sayfaya geri gidecek , tamam'a tıklarsa silme kısmı çalışacak? Nasıl bir düzenleme gerekir?[/b]
With Response
.Write"<SCRIPT LANGUAGE=""JavaScript"">"
.Write"{"
.Write"onay= confirm("Silmek istediğinizden emin misiniz?")"
.Write "if (onay !=true) history.go(-1)"
.Write "}"
.Write"</SCRIPT>"
End With
sorgu = "delete from " & tip & " where " & tip & "_no =" & no
Set Baglanti = Server.CreateObject("ADODB.Connection")
Baglanti.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/db1.mdb"))
baglanti.execute sorgu
With Response
.Write"<SCRIPT LANGUAGE=""JavaScript"">"
.Write"{"
.Write"window.location = """ & Request.ServerVariables("HTTP_REFERER") &""""
.Write "}"
.Write"</SCRIPT>"
End With
end if
end sub