add database in vbscript function

[accessman2]

<script type="text/vbscript">
Function approve_OnClick()
dim mss
mess = MsgBox ("Are you sure to add?", 32+4, "Asking")
if mess = vbyes then
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"

conn.open "C:\db1.mdb"
sql="INSERT INTO Students (Name) Values ('test')"
on error resume next
conn.Execute sql,recaffected
if err=0 then
Response.Write("<h3>" & recaffected & " record added</h3>")
end if
conn.close
%>
end if
End Function

</script>


It doesn't work. Can we add sql in the Vbscript function?

Thanks.