<% if session("onay")="2" then data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("odbc/kurabiyem.mdb") if Request.Querystring ("id")<>"" then Set con=Server.CreateObject("ADODB.Connection") con.Open data_source sql="delete from tbl_emaillist where id="& Request.Querystring ("id")&"" con.Execute sql con.Close Set con=Nothing end if Set rs = Server.CreateObject("ADODB.Recordset"): sql="SELECT * FROM tbl_emaillist order by namesurname" rs.Open sql, data_source,3,1 if not rs.eof then Response.write "" while not rs.eof counter=counter+1 Response.write "" rs.movenext wend Response.write "
Email Listesi
"&counter &""&rs("namesurname")&""&rs("emailaddress")&""&rs("phone_c")&""&rs("submit_date")&"Del
" end if rs.close set rs=nothing else Response.write "Brrr....Not authorized...." end if %>