ASP Tutor...

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

Author ID:

Author Name:

Year Born:

The form responder looks like this:






<%
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
%>