set outpostDB = Server.CreateObject("ADODB.Connection")
outpostDB.Open "outpost"

sqlText = "insert into ad_log (sponsor, clickDate) values ('"
sqlText = sqlText & sponsorURL
sqlText = sqlText & "', '"
sqlText = sqlText & Now
sqlText = sqlText & "')"
outpostDB.Execute(sqlText)
outpostDB.Close
set outpostDB = Nothing

Response.Redirect sponsorURL
%>

דוגמה:

<%
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
				   "Dbq= C:\folder\YOURDB.mdb;" & _
                                   "Uid=admin;" & _
                                   "Pwd=;"
mySQL = "Insert Into table1(fieldindb1,fieldindb2) values('"&value1&"','"&value2&"')"
oConn.Execute(mySQL)
oConn.Close
Set oConn= nothing
%>

אין לי מושג מה בדיוק המטרה של הקובץ שלך אבל ככה עושים את זה.
אם תיהיה יותר ספציפי אני אצליח יותר לעזור לך.

כי אם זה סתם להכניס למסד אז הנה דוגמא שעשיתי COPY השניה מהאתר שלי-

<%
d = Request.Form("deal")
p = Request.Form("price")

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
				   "Dbq= D:\content\users1\aviad\db\deals.mdb;" & _
                                   "Uid=admin;" & _
                                   "Pwd=;"
mySQL = "Insert Into table1(info,price) values('"&d&"','"&p&"')"
oConn.Execute(mySQL)
oConn.close
Set oConn= nothing
%>
הדיל הוכנס בהצלחה
<br>
<a href="http://www11.asphost4free.com/aviad//" target="n">הכנס לדף הבית</a>

<%
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
"Dbq=C:\Inetpub\wwwroot\outpost.mdb;"
mySQL = "Insert Into ad_log (sponsor) values('abc')"
oConn.Execute(mySQL)
oConn.Close
Set oConn= nothing
%>

והוא עדיין מחזיר לי את אותה השגיאה, איפה יכולה להיות הבעיה?
במסד נתונים הגדרתי אותו שיהיה לטקסט עם הגבלה של 255 תווים כך שאני לא מבין מאיפה הוא יכול להביא לי הערה כזו:

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
‏‏על הפעולה להשתמש בשאילתה הניתנת לעדכון.