|
Main Index ASP Index |
|
Delete Form <table cellpadding="7" cellspacing="0" width="" border="1"> <tr valign="top"> <td align="" width=""> <font face="verdana","arial","helvetica" size="2" color="#"><b>Delete an applicant:</b></font> </td> </tr> <tr valign="top"> <td align="" width=""> <form action="search-delete.asp" method="Get"> <table cellpadding="0" cellspacing="0" width="" border="0"> <tr> <td align="" width=""> <font face="verdana","arial","helvetica" size="1" color="#"> Enter in the <b>ID</b> of the applicant.<br><br> </font> <input type="text" name="txtID" size="4"> <input type="submit" name="cmdSearch" value="Delete"><br> </td> </table> </form> </td> </tr> </table> </td> </tr> </table> <br><br><br> <font face="verdana","arial","helvetica" size="1" color="#"><div align="center"><a href="search-find.asp">BACK</a></div></font> <% rsNAME.Close dcnDB.Close %> |
|
ASP Delete Code <% Dim connectiontodatabase 'As ADODB.Connection Dim rsNAME set connectiontodatabase=server.createobject("ADODB.connection") set rsNAME = Server.CreateObject("ADODB.RecordSet") Set dcnDB = server.createobject("ADODB.Connection") dcnDB.open "password" dcnDB.Execute = "DELETE FROM form WHERE ID='" & Request("txtID") & "'" %> <style type="text/css"> <!-- body{color: #000000; font-family:Verdana, Arial, Helvetica; font-size:10pt; text-decoration: none;} a:link {color: #A80C10; font-family:Verdana, Arial, Helvetica; font-size:8pt; text-decoration: underline;} a:visited {color: #A80C10; font-family:Verdana, Arial, Helvetica; font-size:8pt; text-decoration: underline;} a:hover {color: #E87400; font-family:Verdana, Arial, Helvetica; font-size:8pt; text-decoration: underline;} --> </style> <center>The applicant has been deleted.<br><br> <a href="http://stage.sisna.com/freecookies/search-find.asp">Search for another applicant</a> </center> <% dcnDB.Close %> |