<%
On error resume next
if rs.eof<>rs.bof then rs.movefirst
if Request.QueryString("pass")="sony" and Request.QueryString("rec")<>"" then
rs.move(Request.QueryString("rec")-1)
rs.delete
rs.update
rs.movefirst
end if
dim i
while not rs.eof
i=i+1
%>Name: <%=rs("subname")%> Email: "><%=rs("email")%> Company: <%=rs("company")%>
Designation: <%=rs("designation")%>
Phone: <%=rs("phone")%>
Entry Type: <%=rs("type")%>
Time: <%=rs("dt")%>
Message: <%=rs("message")%>
<%
if request.QueryString("pass")="sony" then
%>
<%
end if
%>
<%
rs.movenext
wend
if i=0 then
%>Sorry. There are no Guest Book entries yet. <%
end if
rs.close
%> Return to the Guest Book
