<% ' Comersus Diagnostics ' e-commerce ASP Open Source ' CopyRight Rodrigo S. Alhadeff, Comersus ' September 2004 ' http://www.comersus.com ' Diagnostics for Comersus store %> Database Write
<% on error resume next dim mySQL, conntemp, rstemp, pRdmProduct pRdmProduct = "Product "&randomNumber(999) %>
Trying to insert one new product named: <%=pRdmProduct%><% mySQL="INSERT INTO products (description, details, price, active, idSupplier) VALUES ('" &pRdmProduct&"', 'Test Product', 100,0,Null)" call updateDatabase(mySql, rstemp, "databaseWrite") mySQL="SELECT idProduct FROM products WHERE description='" &pRdmProduct& "'" set rsTemp=connTemp.execute(mySQL) if instr(err.description,"Operation must use an updateable query")<>0 or instr(err.description,"idDbSession was not defined while")>0 then %>

You are having permissions troubles over the Database file or folder.
Please check Comersus User's Guide to find how to fix the trouble.<% else if rstemp.eof then %>
You are having database errors. More information: <%=err.description%> <%else%>
Product inserted with ID #: <%=rstemp("idProduct")%> <% end if end if function randomNumber(limit) randomize randomNumber=int(rnd*limit)+2 end function call closeDb() %>