| <%
if session("admin") = True then
%>
<%
Response.Expires = -1000
Set puid = Request.QueryString("puid")
set con = server.CreateObject("ADODB.connection")
con.Open "driver={microsoft access driver (*.mdb)}; DBQ=" & server.MapPath("db.mdb")
SQL = "delete from kredi where puid="
SQL = SQL & puid
set rs=con.Execute(SQL)
Response.Redirect("uye_kredi.asp")
end if
%> |
|
 |
|
