VBScript Sample:
vbscript/ado/employeereg/register.asp
   ASP Script
   Comments or Client-side Script
   HTML and Text

<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>


Copyright © 1998-2002, Halcyon Software Inc. All rights reserved.