<% ' My ASP program that allows you to append a record %>

Author ID:

Author Name:

Year Born:

The form responder looks like this: dbnewADO.asp <% On Error Resume Next auname=Request.QueryString("name") auyear=Request.QueryString("year") auID=Request.QueryString("ID") If auid<9000 Then auid=auid+9000 End If conn="DSN=Student;uid=student;pwd=magic" Set RS = Server.CreateObject("ADODB.Recordset") RS.Open "authors",Conn,adopenstatic,adlockoptimistic RS.AddNew 'RS("AU_ID")=auid RS("Author") = auname RS("Year_Born")= Int(auyear) RS.Update Call ErrorVBscriptReport("Adding Record") Call ErrorADOReport("Adding Record",RS.activeconnection) RS.Close Set rs=Nothing %> Here Is the include file that displays appropriate errors: <% Sub ErrorVBScriptReport(parm_msg) If Err.number=0 Then Exit Sub End If pad=" " Response.Write "VBScript Errors Occured!
" Response.Write parm_msg & "
" Response.Write pad & "Error Number= #" & Err.number & "
" Response.Write pad & "Error Desc.= " & Err.description & "
" Response.Write pad & "Help Context= " & Err.helpcontext & "
" Response.Write pad & "Help File Path=" & Err.helpfile & "
" Response.Write pad & "Error Source= " & Err.source & "
" End Sub Sub ErrorADOReport(parm_msg,parm_conn) HowManyErrs=parm_conn.errors.count If HowManyErrs=0 Then Exit Sub End If pad=" " Response.Write "ADO Reports these Database Error(s) executing:
" Response.Write SQLstmt & "
" For counter= 0 To HowManyErrs-1 errornum=parm_conn.errors(counter).number errordesc=parm_conn.errors(counter).description Response.Write pad & "Error#=" & errornum & "
" Response.Write pad & "Error description=" Response.Write errordesc & "

" Next End Sub %>