%@ Language=VBScript %>
<%option explicit%>
<%
const nOnPage = 30
dim conn, rs, sSQL, sDate, nCounter, nFrom
dim sPerson, nNum, sTitle
sPerson = Request("p")
nFrom = cInt(Request("From"))
if sPerson = "Dana" then nNum=2
if sPerson = "Jacob" then nNum=3
if Request("delete") <> "" and Request("p") <> "" then
CreateConnection conn
conn.execute ("DELETE FROM " & Request("p") & " WHERE id=" & Request("delete"))
end if
if Request("submit") and trim(request("Name")) <> "" then
CreateConnection conn
sSQL = "INSERT INTO " & sPerson & " ([Name],[Email],[Text], [Date]) VALUES (" &_
"'" & EnquoteSql(trim(request("Name"))) & "'," &_
"'" & EnquoteSql(trim(request("Email"))) & "'," &_
"'" & EnquoteSql(trim(request("Remarks"))) & "'," &_
"Now())"
conn.execute(sSQL)
end if
%>
לזיכרם של דנה ויעקב רבינוביץ
<%
CreateConnection conn
set rs = conn.execute("SELECT * FROM " & sPerson & " ORDER BY [id] DESC")
nCounter = 0
do while not (rs.EOF or rs.BOF)
nCounter = nCounter + 1
if nCounter => nFrom and nCounter < nFrom + nOnPage then
Response.Write "