'800a01a8' Nesne gerekli: ''

Microsoft VBScript çalışma hatası hata '800a01a8'

Nesne gerekli: ''

/yayinekle.asp, satır 24

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/dbmaster.mdb") & ";Persist Security Info=true"

Function Cv(ByVal sData)
sData = Replace(sData,"'","`")
Cv = sData
End Function

Function CleanID(ByVal ID)
	For I = 0 To 47
	ID = Replace(ID,Chr(I),"")
	Next
	For I = 58 To 255
	ID = Replace(ID,Chr(I),"")
	Next
	CleanID = ID
End Function

Function  TarihD(dGelen)
	dGelen =  cDate(dGelen)
	if len(Month(dGelen))=1 Then
	ay="0" & Month(dGelen)
	Else
	ay= Month(dGelen)
	End If
	if len(Day(dGelen))=1 Then
	gun="0" & Day(dGelen)
	Else
	gun= Day(dGelen)
	End If
	TarihD =  gun & "." & ay & "." &  Year(dGelen) 		
End  Function

%>





<%
islem = Request.QueryString("islem")
Select Case islem
Case "ekle"
Baslik        = Cv(Request.Form("Baslik"))
resim2        = Cv(upload.Form("resim2"))   <---------------- 24 . satır burası----------
resim3        = Cv(upload.Form("resim3"))
       
DD_SQL = Empty
DD_SQL = DD_SQL & " INSERT INTO yayinlar"
DD_SQL = DD_SQL & " (Baslik,resim2,resim3)"
DD_SQL = DD_SQL & " VALUES('" & Baslik & "','" & resim2 & "','" & resim3 & "')"
       
Conn.Execute(DD_SQL)
Response.Redirect "yayinlarlistesi.asp"
%>
<%
Set Upload = Server.CreateObject("Persits.Upload")
Path = Server.Mappath("../yuklemeler/resimler")
%>
<%Case Else%>
           
<tr>
<td width="678" >
<table width="713" border="0" cellspacing="1" cellpadding="1">
<form action="yayinekle.asp?islem=ekle" ENCTYPE="multipart/form-data" method="post" name="form1">
<tr>
<td align="right" ><input type="text" name="Baslik" size="50" placeholder="Yayın Adı"></td>
</tr>
<tr>

<tr>
<td  align="right"><INPUT TYPE="FILE" SIZE="40" NAME="resim2"> </a></td>
</tr>

<tr>
<td  align="right"><INPUT TYPE="FILE" SIZE="40" NAME="resim3"> </a></td>
</tr>
<tr>
<td  align="right">
       
<div align="center">
<button type="submit" class="button medium red"><span> E K L E </span></button>
<!-- buton modeli -->
       
</td>
</tr>
</form>   
</table>
</td></tr>
<%End Select%>