<HTML>
<HEAD>
<TITLE>Introduction</TITLE>
<center>
<font size="5" color="red">
DATA ENTRY SCREEN INTRODUCTION</font><br>
<font color="red" size="4">
(Inserting into trng_introduction)</font><br>
</center><hr>
<font color="green" size="3"><b>
<marquee>ROLL_NO not to be null. </marquee></font></b>
</HEAD>
<BODY bgColor="#E1E0BD" text="blue">
<center>
<FORM Method="post" action="IntroEntry.asp">
<table border="2" borderColor="red"><font size="6"><strong>
<TBODY>
<tr><td></td><td></td><th align="center"><font color="gray"><marquee>
ENTER YOUR RECORD HERE</marquee></font></th></tr>
<tr><td align="right"><b> Roll No :</td>
<td><input type="text" name="i1" size="10"></td>
<td align="right"><b> Name :</td>
<td><input type="text" name="i2" size="20"></td></tr>
<tr><td align="right"><b>Trade :</td>
<td><input type="text" name="i3" size="10"></td>
<td align="right"><b> Joining Date :</td>
<td><input type="text" name="i4" size="10"></td></tr>
<tr><td align="right"><b> Ending Date :</td>
<td><input type="text" name="i5" size="10"></td>
<td align="right"><b>Address :</td>
<td><input type="text" name="i6" size="20"></td></tr>
<tr><td align="right"><b>Phone No :</td>
<td><input type="text" name="i7" size="5"></td>
</tr>
</font></TBODY></table>
<hr color=deepskyblue style="HEIGHT: 2px; WIDTH: 542px">
<input type="submit" name="submit" value="Save The Record">
<input type="reset" name="reset" value="Reset">
<a href=" " onClick="window.close()"> EXIT</a>
<hr color=deepskyblue style="HEIGHT: 2px; WIDTH: 539px">
<a href="http://neteye1/iissamples/abc/Menu.html">
BACK</a>
</FORM>
<P> </P>
</center></STRONG>
</BODY>
</HTML>
Example 2: IntroEntry . asp
<html>
<head><title>Introduction</title>
</head>
<body bgColor="white">
<!-- #include file="adovbs.inc" -->
<%
Dim roll_no,name,trade,joining_date,ending_date,address,phone_no
roll_no=Request.Form("i1")
name=Request.Form("i2")
trade=Request.Form("i3")
joining_date=Request.Form("i4")
ending_date=Request.Form("i5")
address=Request.Form("i6")
phone_no=Request.Form("i7")
set hcon=Server.CreateObject("ADODB.Connection")
set hrs=Server.CreateObject("ADODB.Recordset")
hcon.Open "DSN=DSD;UID=SCOTT;PWD=TIGER;SERVER=g50;"
hsql="select * from trng_introduction"
hrs.cursortype=adopenkeyset
hrs.locktype=adlockoptimistic
hrs.Open hsql, hcon
hrs.AddNew
hrs("roll_no")=roll_no
hrs("name")=name
hrs("trade")=trade
hrs("joining_date")=joining_date
hrs("ending_date")=ending_date
hrs("address")=address
hrs("phone_no")=phone_no
hrs.update
%>
<p> </p>
<strong>
<p align="center"><font color="red" size="4">
Your Record has been Submitted. </font> <br><br>
<a href="Menu.html"> BACK</a>
<a name="rni" href="" onClick="window.close()">EXIT</a></strong>
</body>
</html>