<html>
<head>
<title>Employee Database Example</title>
</head>
<body BGCOLOR="#eadfdf">
<font face="Verdana, arial, helvetica">
<%
dim empno
dim ename
dim job
dim mgr
dim hiredate
dim sal
dim comm
dim deptno
Set conn =
Server.CreateObject("ADODB.CONNECTION")
conn.open Session("EmployeeStrcnn")
empno = Request.Form("EMPNO")
ename = Request.Form("ENAME")
job = Request.Form("JOB")
mgr = Request.Form("MGR")
hiredate = Request.Form("HIREDATE")
sal = Request.Form("SAL")
comm = Request.Form("COMM")
deptno = Request.Form("DEPTNO")
Set rset =
Server.CreateObject("ADODB.RECORDSET")
rset.CursorType = 2
rset.LockType = 2
rset.Open "EMP", conn
rset.MoveLast
Set stufields
= rset.Fields
rset.AddNew
stufields.Item(0).Value = empno
stufields.Item(1).Value = ename
stufields.Item(2).Value = job
stufields.Item(3).Value = mgr
stufields.Item(4).Value = hiredate
stufields.Item(5).Value = sal
stufields.Item(6).Value = comm
stufields.Item(7).Value = deptno
rset.Update
rset.Close
conn.Close
response.write("<html><head><title>Confirmation
Page</title></head>")
response.write(" ")
response.write("<font face=1,2,3 size=4>The
following information was entered successfully</font>")
response.write("<p>")
response.write("<li><B>Employee No.</B>
" + empno)
response.write("<li><B>Name:</B>
" + ename)
response.write("<li><B>Job:</B>
" + job )
response.write("<li><B>MGR:</B>
" + mgr)
response.write("<li><B>Hire Date:</B>
" + hiredate)
response.write("<li><B>SAL:</B>
" + sal)
response.write("<li><B>COMM:</B>
" + comm)
response.write("<li><B>Department No.:</B>
" + deptno)
%>
<p> <a href="employee.asp"><font size="3"
color="#0000ff">-----Return-----</font> </p>
</a></font>
</body>
</html>
|