Contents of bulk.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>Bulk Insert</b> <br> </td></tr></table> </center> <p> <font face="Comic Sans MS"> <p> Execution begins... <p> <% ' '*** globals ' dim cn dim rs dim tokenvalue dim duperror sub insert_it(cn,sql_str) on error resume next response.write "<br>Attempting Insert with: "+sql_str cn.execute sql_str,numa if Err=0 and numa=1 then response.write "--<b> Insert OK.</b>" else If cn.Errors.Count > 0 Then for i = 0 to cn.Errors.Count - 1 response.write "<br>" etext=ucase(cn.errors(i)) k=instr(etext,"DUPLICATE") if k > 0 then response.write " DUPLICATE badge IN THE DATABASE!!" duperror=duperror+1 exit for else response.write "<br><b>"+cn.errors(i)+"</b>" end if next end if end if end sub ' ' ' duperror=0 set cn=Server.CreateObject("ADODB.Connection") cn.open "gl001","gl001","11111" response.write "<P>Connection created OK" SQLString="INSERT INTO badge (bid,bloc,bfirstname,blastname) VALUES (125,'A','Jack','Frost')" call insert_it(cn,SQLString) SQLString="INSERT INTO badge (bid,bloc,bfirstname,blastname) VALUES (126,'A','Joe','Frost')" call insert_it(cn,SQLString) SQLString="INSERT INTO badge (bid,bloc,bfirstname,blastname) VALUES (127,'A','Joan','Frost')" call insert_it(cn,SQLString) SQLString="INSERT INTO badge (bid,bloc,bfirstname,blastname) VALUES (197,'A','Joan','Frost')" call insert_it(cn,SQLString) SQLString="INSERT INTO badge (bid,bloc,bfirstname,blastname) VALUES (128,'A','Joe','Frost')" call insert_it(cn,SQLString) SQLString="INSERT INTO badge (bid,bloc,bfirstname,blastname) VALUES (109,'A','Mille','Toast')" call insert_it(cn,SQLString) SQLString="INSERT INTO badge (bid,bloc,bfirstname,blastname) VALUES (119,'A','Mille','Toast')" call insert_it(cn,SQLString) SQLString="INSERT INTO badge (bid,bloc,bfirstname,blastname) VALUES (179,'A','Mille','Toast')" call insert_it(cn,SQLString) SQLString="INSERT INTO badge (bid,bloc,bfirstname,blastname) VALUES (216,'A','Billie','Toast')" call insert_it(cn,SQLString) SQLString="INSERT INTO badge (bid,bloc,bfirstname,blastname) VALUES (217,'A','Burnt','Toast')" call insert_it(cn,SQLString) SQLString="INSERT INTO badge (bid,bloc,bfirstname,blastname) VALUES (218,'A','Fred','Freen')" call insert_it(cn,SQLString) SQLString="INSERT INTO badge (bid,bloc,bfirstname,blastname) VALUES (311,'A','Bill','mcMahon')" call insert_it(cn,SQLString) SQLString="INSERT INTO badge (bid,bloc,bfirstname,blastname) VALUES (406,'B','Joe','Toast')" call insert_it(cn,SQLString) SQLString="INSERT INTO badge (bid,bloc,bfirstname,blastname) VALUES (512,'B','Joe','Usmooch')" call insert_it(cn,SQLString) SQLString="INSERT INTO badge (bid,bloc,bfirstname,blastname) VALUES (526,'B','Ron','Usmooch')" call insert_it(cn,SQLString) SQLString="INSERT INTO badge (bid,bloc,bfirstname,blastname) VALUES (527,'B','Ron','Usmooch')" call insert_it(cn,SQLString) SQLString="INSERT INTO badge (bid,bloc,bfirstname,blastname) VALUES (528,'B','Ron','Usmooch')" call insert_it(cn,SQLString) SQLString="INSERT INTO badge (bid,bloc,bfirstname,blastname) VALUES (826,'B','Bill','Will')" call insert_it(cn,SQLString) SQLString="INSERT INTO badge (bid,bloc,bfirstname,blastname) VALUES (927,'C','Jamie','Frost')" call insert_it(cn,SQLString) SQLString="INSERT INTO badge (bid,bloc,bfirstname,blastname) VALUES (133,'C','Julain','Frost')" call insert_it(cn,SQLString) SQLString="INSERT INTO badge (bid,bloc,bfirstname,blastname) VALUES (416,'C','Julie','Frost')" call insert_it(cn,SQLString) SQLString="INSERT INTO badge (bid,bloc,bfirstname,blastname) VALUES (331,'C','Jim','Frost')" call insert_it(cn,SQLString) SQLString="INSERT INTO badge (bid,bloc,bfirstname,blastname) VALUES (332,'C','Jim','Frost')" call insert_it(cn,SQLString) SQLString="INSERT INTO badge (bid,bloc,bfirstname,blastname) VALUES (333,'C','Jim','Frost')" call insert_it(cn,SQLString) SQLString="INSERT INTO badge (bid,bloc,bfirstname,blastname) VALUES (334,'C','Jim','Frost')" call insert_it(cn,SQLString) cn.close set cn=nothing if duperror > 0 then response.write "<p>"+cstr(duperror)+" Duplicate key errors occurred.<p>" response.write "<p>Try Drop/Create <a href='bcreate.asp'> here</a> to drop and recreate the table" response.write "<p>Then try the Bulk Insert again" end if response.write "<P>Terminating normally" %> <p> <a href="bdoc.asp?fl=k"> Click here for the program listing </a> (bulk.asp)<br> </body> </html>
***** end of file *** printed: 122 lines on: 11/23/2009 6:04:40 AM
