<%
if request("cm1")="Add Main Title" then response.redirect("1.asp")
if request("select1")="" then
session("page")=1
page=1
else
session("page")=request("select1")
page=request("select1")
end if
set conn1 = Server.CreateObject ("ADODB.Connection")
conn1.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("data.mdb") & ";UID=sa;PW="
set rs1 = Server.CreateObject("ADODB.Recordset")
sql1="select * from project1 order by Title asc"
'sql1="select * from project1 order by Date desc"
rs1.open sql1,conn1,1,3,1
if request("cm1")="Delete" then
set rs2 = Server.CreateObject("ADODB.Recordset")
sql2="select * from pass1 where name1='" & request("name1") & "' and pw1='" & request("pw1") & "'"
rs2.open sql2,conn1,1,1
if not rs2.eof then
kill1=0
for i=1 to 10
if request(i)="on" then
rs1.movefirst
rs1.move (session("page")-1) * 10 + i-1-kill1
sql3="delete from talk1 where Addby='" & rs1(0) & rs1(2) & "'"
conn1.execute(sql3)
rs1.delete
kill1=kill1+1
end if
next
rs1.AbsolutePage=1
end if
rs2.close
end if
if not rs1.eof then
rs1.movefirst
rs1.pagesize=10
rs1.AbsolutePage=page
end if
%>
Givethanks Studio ~Our e-Diary