ASP - DB den sorgu yapılan değerden tekini silmek

[zaferdipi]

Aşşagıda verdiğim kodda bitiş tarihi girmeden de döndürmesini ama başaramıyorum. Yardım!

#####CONFING#####

<!-- #include file=config.asp !-->
<% If Session("AdminOk") = True Then %>
<% 
	If Request.Form("Update") = 1 Then
		if vFisNo <> ""  and vBitisTarihi <> "" and vAciklama <> ""  and vDurum <> ""Then
		'	Response.Write vSeriNo & "<br>"
		'	Response.Write vFisNo & "<br>"
		'	Response.Write vUrunAdi & "<br>"
		'	Response.Write vGelisTarihi & "<br>"
		'	Response.Write vAciklama & "<br>"
			if isDate(vBitisTarihi) = True Then
				 Set ConnData = Server.CreateOBject("ADODB.Connection")
				 Set RSData = Server.CreateObject("ADODB.RecordSet")
				 Yol = Server.MapPath("data/ariza.mdb")
				 ConnData.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Yol)
				 SQLStr = "Select * From arizatakip Where (FisNo LIKE '"& vFisNo &"')"
				 RSData.Open SQLStr, ConnData, 1, 3
				 
				 RSData("Durum") = vDurum
				 RsData("BitisTarihi")= vBitisTarihi
				 RsData("Aciklama")= vAciklama
				 if vTeslimat = "on" Then
					if	vTeslimAlan <> "" and vTeslimTarihi <> "" and isDate(vTeslimTarihi) = "True" Then
						RSData("Teslimat") = "True"
						RsData("TeslimAlan")= vTeslimAlan
						RsData("TeslimTarihi")= vTeslimTarihi
					Else
						RSData.Update
						RsData.Close
						ConnData.Close
						Set RsData = Nothing
						Set ConnData = Nothing
						Response.Redirect "editrecord.asp?Err=4&FisNo="& vFisno 
					End if
				 End if
				 RSData.Update
				 RsData.Close
				 ConnData.Close
				 Set RsData = Nothing
				 Set ConnData = Nothing
				 Response.Redirect "database.asp?Ok=1"
			Else
				Response.Redirect "editrecord.asp?Err=2&FisNo="& vFisno 
			End if
		Else
			Response.Redirect "editrecord.asp?Err=1&FisNo="& vFisno 
			'Response.Write "Eksik Giriş Yaptınız <br><a href=JavaScript:history.back(1)>Geri Dön</a>"
		End If
	End If
	If Request.Form("Update") = "2"  and vFisNo <> "" Then
		Set ConnData = Server.CreateOBject("ADODB.Connection")
		Set RSData = Server.CreateObject("ADODB.RecordSet")
		Yol = Server.MapPath("data/ariza.mdb")
		ConnData.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Yol)
		SQLStr = "Select * From arizatakip Where (FisNo LIKE '"& vFisNo &"')"
		RSData.Open SQLStr, ConnData, 1, 3
		RSData.Delete
		RSData.Close
		ConnData.Close
		Set RsData = Nothing
		Set ConnData = Nothing
		Response.Redirect "database.asp?Sil=1"
	Else
		Response.Redirect "editrecord.asp?Err=3&FisNo="& vFisno 
	End If
	
		
Else 
	Response.Redirect "default.asp?Error=1"
End if 

%>