del.asp

有没有用DELPHI做的网上评分系统啊 我急需

<!--#include file="conn.asp"-->
<%if Request.Cookies("loginadmin") = "True" then%>
<%
id=request("id")
Dim StrSQL
StrSQL="delete from ceocio where id="& id
conn.Execute StrSQL
response.write "已经成功删除该纪录"
response.write "<a href=edit.asp>若浏览器没有自动返回，请点击这里</a>"
Response.Redirect("edit.asp")
%>
<%else%>
<%Response.Redirect("login.asp")%>
<%
end if
%>