<%@ 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 "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" end if rs.MoveNext loop %>
" Response.Write "" & rs("Name")& "
" Response.Write rs("Email") & "
" Response.Write rs("Text") & "
" sDate = split(rs("Date")," ") Response.Write sDate(0) & "
" Response.Write "

  <% if cInt(Request("From")) > 0 then %> &From=<%=(Request("From")-nOnPage)%>"> <%end if%>   <% if nCounter => cInt(Request("From"))+ nOnPage then %> &From=<%=(Request("From")+nOnPage)%>"> <%end if%>
">
הדלקת נר זכרון  
שם פרטי + משפחה:
דואר אלקטרוני:
תנחומים:
 
© Created by Interia & SITE4U
<% rs.Close set rs = nothing CloseConnection conn %>