ספר האורחים של אתר דעת
<%if Request("sent")=1 then Response.Write("תודה על הודעתך") else Response.Write("חתום בספר האורחים") 'Response.Write("עקב ריבוי הודעות זבל בספר האורחים, נאלצנו לסגור, בשלב זה, את האפשרות לחתום בספר האורחים, עמכם הסליחה.") end if %><% set rs=Server.CreateObject("adodb.recordset") rs.Open "select count(*) from guestbook" ,con,3,3 rs.MoveFirst msgnum=rs.Fields(0) rs.Close rs.Open "select * from guestbook order by date desc" ,con,3,3 rs.MoveFirst if request("id")="" then id1=1 else id1=int(killchars(request("id"))) end if for i=1 to (killchars(id1)-1)*30-1 rs.MoveNext next if not rs.BOF then i=0 do until rs.EOF or i=30 if rs.Fields("arhiyon")=false then Response.Write(chr(13)&"
| ") Response.Write(rs.Fields("name")) Response.Write(" | ") Response.Write(rs.Fields("date")) Response.Write(" |
| ") ktov(rs.Fields("heara")) Response.Write(" | |
| ") Response.Write("תגובת צוות האתר: "&"") ktov(rs.Fields("tguva")) Response.Write(" | |
"&chr(13)) end if rs.MoveNext i=i+1 loop end if Response.Write("עבור לדף:") Response.Write(" ") if killchars(id1)>1 then Response.Write("המסך הקודם ") for i=1 to msgnum \ 30 if i<>int(id1) then Response.Write("") Response.Write(i) Response.Write(" ") last=i next 'Response.Write("last="&last) 'Response.Write("
id1="&killchars(id1)) if id1
