Contents of bdelete.asp:
<html> <body bgcolor="#cccccc"> <table border="1"> <tr><td valign='middle' bgcolor='#999999'><img src="captsm.gif"></td> <td valign='middle' bgcolor='#999999'><center><font color="#ffffff"><font face="Comic Sans MS"> <br> <b>A Simple ASP Example<br>DELETE</b> <br> </td></tr></table> </center> <p> <font face="Comic Sans MS"><b> <p> Execution begins... <p> <% ' '*** globals ' dim cn dim rs dim tokenvalue sub pass1 set rs=Server.CreateObject("ADODB.Recordset") SQLString="SELECT * FROM badge order by bid ASC" response.write "<P>Opening badge rs with SQLstring=<br>--->"+cstr(SQLString)+"<------ " rs.open SQLString,"DSN=gl001;UID=gl001;PWD=11111;" response.write "<P>Recordset opened OK" response.write "<table border='1'>" response.write "<tr><td>Badge id</td><td>Location</td><td>First Name</td><td>Last Name</td></tr>" c=0 while NOT rs.EOF response.write "<tr><td align='center'>"+cstr(rs("bid"))+"" response.write "<a href='bdelete.asp?token=2&bdelete="+cstr(rs("bid"))+"'><br>Delete</a>" response.write "</td>" response.write "<td>"+cstr(rs("bloc"))+"</td>" response.write "<td>"+cstr(rs("bfirstname"))+"</td>" response.write "<td>"+cstr(rs("blastname"))+"</td></tr>" c=c+1 rs.movenext wend response.write "</table><p>record count="+cstr(c)+"<p>Delete List Terminating Normally" rs.close set rs=nothing end sub sub pass2 response.write "<P>Pass 2 tokenvalue="+cstr(tokenvalue) set cn=Server.CreateObject("ADODB.Connection") cn.open "gl001","gl001","11111" response.write "<P>Connection created OK" bidvalue=request.querystring("bdelete") SQLString="DELETE FROM badge WHERE bid="+cstr(bidvalue) response.write "<P>Ready to Delete with SQLString --->"+cstr(SQLString)+"<------ " cn.execute SQLString,numa if numa=1 then response.write "<P>Deleted OK" else response.write "<P>Delete Failed." end if cn.close set cn=nothing response.write "<P>Delete terminating normally" end sub sub passerror response.write "<p>INVALID TOKEN VALUE. token="+cstr(tokernvalue) end sub ' '*** top of main ' ' REMOTE_ADDR = Request.ServerVariables("REMOTE_ADDR") tfile="c:\Faculty\3dwalls\tracker.txt" Set objFSO2 = CreateObject("Scripting.FileSystemObject") Set objFile2 = objFSO2.OpenTextFile( tfile , 8) '**** append record response.write "<p>Opened "+ tfile +" file OK" tracker_line=REMOTE_ADDR+","+cstr(now) response.write "<p>tracker line="+cstr(tracker_line) objFile2.Writeline (tracker_line) objFile2.close Set objFile2=nothing Set objFSO2=nothing tokenvalue=request.querystring("token") select case tokenvalue case "" call pass1 case "2" call pass2 case else call passerror end select %> <p> <a href="bdoc.asp?fl=d"> Click here for the program listing </a> (bdelete.asp)<br> </body> </html>
***** end of file *** printed: 114 lines on: 11/23/2009 5:56:04 AM
