insert data to DB with MS SQL using Classic ASP

first I made "connection.asp"
the codes in "connection.asp" file are as follows

<%
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=SQLOLEDB; Data Source = (local); Initial Catalog = Test; User Id = sa; Password=as"
If conn.errors.count = 0 Then
Response.Write "Connected OK"
End If
%>


then I made "author.asp". The following code are in "author.asp"

AuthorID


Author Name

<%
dim aid,aname,objs
aid=Request.form("aid")
aname=Request.form("aname")
Set objdb=conn()
query = "INSERT INTO author (aid,aname) VALUES ('"& aid &"','"& aname &"')"
Set objs = objdb.Execute(query)
Response.Redirect ("thankyou.asp")
%>



the code can't run. I think, there may be error in "author.asp". So, Plz help me