Tekman anket
<%
Set rs=teksan.execute("select * from ipvt order by id" )
do until rs.eof
rs.movenext:loop
response.write ""
if request.querystring("islem" )="sil" and not request.form="" then
gelen=split(request.form,"&" )
say=ubound(gelen )
idler=""
for i=0 to say
bolunecek=gelen(i )
id=split(bolunecek,"=" )
if idler="" then
idler="id="&id(0 )
else
idler=idler + " or id=" & id(0 )
end if
next
teksan.execute("delete from ipvt where " & idler & " " )
Response.Redirect Request.ServerVariables("HTTP_REFERER")
end if
%>