<html>
<head><title>Modification</title>
<center>
<h2>BHARAT HEAVY ELECTRICALS LIMITED <br>
HRDC DEPARTMENT <br><br><br>
<font color="red"> <h2><u>
MODIFICATION OF A RECORD
</u></h2></font> </head>
<body bgColor="DEEEDD">
<center><strong><font color="red" size="4">
<b> Please Enter the ROLL_NO to be Displayed :</b> <br>
<Form name="Form2" Method="POST" Action="Modify.asp"> <br>
Enter Roll_No.: <input type="text" name="mod1"><br><br>
<input type="submit" name="submit" value="G - O"><br><br>
<a href="menu.html">BACK</a>
<a href=" " onClick="window.close()">EXIT </a>
</Form>
</center></font></strong>
</body>
</html>
Example 2 : Modify.asp
<%
set rsm=Server.CreateObject("ADODB.Recordset")
rsm.open "select * from trng_introduction where(roll_no='"&Request.Form("mod1")&"')", "DSN=DSD;UID=scott;PWD=tiger;SERVER=g50;" --> For windows 95 and 98
rsm.open "Provider=MSDAORA.1;Password=tiger;User ID=scott;Data Source=PAS;persist security info=True;
%>
<html>
<head><title>Modify</title><center>
<h2>BHARAT HEAVY ELECTRICALS LIMITED <br>
HRDC DEPARTMENT <br><br><br>
<font color="green" size="5"><b> DATA MODIFICATION SCREEN</b></font></center>
<hr></head>
<body bgColor="DEEEDD" text="blue"><center>
<Form name="modify" Method="POST" Action="Modify-sav.asp">
<table border="2" borderColor="gray">
<tr><td align="right">
Roll_No : </td><td><input type="text" ReadOnly name="tm1" value="<%=rsm("roll_no") %>" size="10"></td>
<td align="right">
Name : </td><td> <input type="text" name="tm2" value="<%=rsm("name") %>" size="20"></td></tr>
<tr><td align="right">
Trade : </td><td></font><input type="text" name="tm3" value="<%=rsm("trade") %>" size="10"></td>
<td align="right">
Joining_Date : </td><td><input type="text" name="tm4" value="<%=rsm("joining_date") %>" size="7"></td></tr>
<tr><td align="right">
Ending_Date : </td><td> <input type="text" name="tm5" value="<%=rsm("ending_date") %>" size="7"></td>
<td align="right">
Address : </td><td></font><input type="text" name="tm6" value="<%=rsm("address") %>" size="20"></td></tr>
<tr><td align="right">
Phone_No : </td><td></font><input type="text" name="tm7" value="<%=rsm("phone_no") %>" size="7"></td>
<td align="right"><font size="3" color="red">
Date Format like : 19-Jan-04 </font></td>
</tr>
</table><hr>
<input type="submit" name="submit" value="UpdateRecord">
<input type="Reset" name="rset" value="ClearFields">
<a href="Modify.html">BACK </a>
<a href=" " onClick="window.close()">EXIT</a>
<br><hr color="blue">
</center>
</strong>
</Form>
</body>
</html>
<% rsm.close %>
Example 3 : Modify-sav.asp
<%
set rsm2=Server.CreateObject("ADODB.Recordset")
set conm2=Server.CreateObject("ADODB.Connection")
conm2.Open "DSN=DSD;UID=scott;PWD=tiger;SERVER=g50" OR
rsm.open "Provider=MSDAORA.1;Password=tiger;User ID=scott;Data Source=PAS;persist security info=True;
%>
<%
usqlm2="UPDATE trng_introduction SET roll_no='"&Request.Form("tm1")&"',name='"&Request.Form("tm2")&"',trade='"&Request.Form("tm3")&"',
joining_date='"&Request.Form("tm4")&"',ending_date='"&Request.Form("tm5")&"',address='"&Request.Form("tm6")&"',
phone_no='"&Request.Form("tm7")&"' where roll_no='"&Request.Form("tm1")&"'"
conm2.Execute usqlm2
%>
<html><head><title>Modify</title>
</head> <body> <center><font color="red" size="5"><b>
YOUR RECORD HAS BEEN UPDATED.</b></font> <br><br>
<a href="Modify.html"> BACK </a>
<a href=" " onClick="window.close()">EXIT </a><br> <hr>
</center> </body>
</html>