dostumyapıyorum veri eklerken boş geliyor acaba nerede hata yapıyorum

veri ekleme sayfam burası yanlışlarımı söylerseniz sevinirim. ekleme yapıyor ama veriyi boş ekliyor :S
<!--#include file="db.asp"-->
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = False
On Error Resume Next
Upload.SetMaxSize 1048576 ' Limit files to 1MB
Count = Upload.Save("c:\upload")
%>
<%
set veri = server.createObject("adodb.recordset")
sql="select * from veriler"
veri.open sql,db,1,3
THEFILE = Request.Form("THEFILE")
Description = Request.Form("Description")
veri.addnew
veri("THEFILE")=THEFILE
veri("Description")=Description
veri.update
%>
ilgilendiğiniz için teşekkür ederim iyi günler