<%
Option Explicit
Dim conn
Dim RSEmp
set conn = server.createobject ("adodb.connection")
conn.open "ASPBook", "sa", "twoje_haslo"
conn.execute "delete from Emps where EmpID = " & Request.Form("EmpID")
set RSEmp = conn.Execute("select * from Emps where EmpID = " _
  & Request.Form("NewEmpID"))
Response.Write "<P>" & RSEmp("FirstName")
Response.Write "<P>" & RSEmp("LastName")
set conn = Nothing
set RSEmp = Nothing
%>
