&
<% on error resume next Set Conn = Server.CreateObject("ADODB.Connection") conn.open "DSN=student;uid=student;password=magic" SQLstmt = "INSERT INTO junk (city,state,zip) VALUES ('Rockville','MD','20849')" Set RS = Conn.Execute(SQLStmt) Call ErrorVBScriptReport("Insert Statement") Call ErrorADOReport(SQLstmt,conn) rs.close set rs=nothing Conn.Close set conn=nothing%>