Erro na inclusão com fotos

Olá amigos estou tentando gravar um veiculos ate ai td bem, seleciono td que ele tem, e se eu n colocar fotos ele grava no bando de dados, mais se eu coloco foto, ele na hora de gravar da pagina n pode ser exibida, se alguem puder me ajudar agradeço de coração

esse é o codigo

<!--#include file="../../config.inc"--><!--#include file="../aut.inc"--><!--#include file="../../db.inc"--><!--#include file="../../funcoes.inc"--><!--#INCLUDE FILE="../reusavel/upload.inc"--><%if Request.ServerVariables("REQUEST_METHOD") = "POST" then diretorio = root_central_upload & "/veiculo/"	'response.write diretorio	Set RS = Server.CreateObject("ADODB.RecordSet")	set Fields = GetUpload()	acao = Fields("acao").Value.String	CodigoVeiculo	= Fields("CodigoVeiculo").Value.String	CodigoMarca = Fields("CodigoMarca").Value.String	CodigoModelo	= Fields("CodigoModelo").Value.String	CodigoCor = Fields("CodigoCor").Value.String	AnoFabricacao	= Fields("AnoFabricacao").Value.String	AnoModelo = Fields("AnoModelo").Value.String	Combustivel = Fields("Combustivel").Value.String	Placa = Fields("Placa").Value.String	Preco = Fields("Preco").Value.String	Km = Fields("Km").Value.String	FotoPrincipal	= Fields("FotoPrincipal").FileName	Foto1 = Fields("Foto1").FileName	Foto2 = Fields("Foto2").FileName	Foto3 = Fields("Foto3").FileName	DataCadastro = Fields("DataCadastro").Value.String	InformacoesAdicionais	= Fields("InformacoesAdicionais").Value.String	CodigoOpcional = request.querystring("CodigoOpcional")	if CodigoMarca = "" then msg = "Selecione a Marca do Veículo!"	elseif CodigoModelo = "" then msg = "Selecione o Modelo do Veículo!"	elseif CodigoCor = "" then msg = "Selecione a Cor do Veículo!"	elseif Combustivel = "" then msg = "Selecione o Tipo de Combustível do Veículo!"	elseif KM = "" then msg = "Digite o quantidade de Kilomêtros Rodados do Veículo!"	elseif Placa = "" then msg = "Digite o Último dígito da Placa do Veículo!"	elseif AnoFabricacao = "" then msg = "Digite o ano de Fabricação do Veículo!"	elseif AnoModelo = "" then msg = "Digite o ano do Modelo do Veículo!"	elseif Preco = "" then msg = "Digite o valor de Venda do Veículo!"	end if	if FotoPrincipal = "" then FotoPrincipal	= null	if Foto1 = "" then Foto1	= null	if Foto2 = "" then Foto2	= null	if Foto3 = "" then Foto3	= null	if DataCadastro = "" then DataCadastro	= now	if InformacoesAdicionais	= "" then InformacoesAdicionais	= null	if CodigoOpcional	= "" then CodigoOpcional	= null	'Se a mensagem tiver algo	if msg <> "" then%> <script> alert("<%=msg%>"); history.go(-1); </script> <%response.end	end if	if acao = "alterar" then SQL = "select * from Veiculos where CodigoVeiculo = " & CodigoVeiculo RS.open SQL, Conn, 1, 3 if RS.eof then msg = "Parâmetro informado inválido ou incoerente !" end if	else CodigoVeiculo = GeraId("Veiculos","CodigoVeiculo") SQL = "select * from Veiculos where CodigoVeiculo = 0" RS.open SQL, Conn, 1, 3	end if	if acao = "incluir" then msgalert = "Inclusão" RS.Addnew RS("CodigoVeiculo") = CodigoVeiculo	else msgalert = "Alteração"	end if	RS("CodigoMarca") = CodigoMarca	RS("CodigoModelo") = CodigoModelo	RS("CodigoCor") = CodigoCor	RS("AnoFabricacao") = AnoFabricacao	RS("AnoModelo") = AnoModelo	RS("Combustivel") = Combustivel	RS("Placa") = Placa	RS("Preco") = Preco	RS("Km") = Km	RS("DataCadastro") = DataCadastro	RS("InformacoesAdicionais") = InformacoesAdicionais	if not IsNull(FotoPrincipal) or LimparFoto = "1" then if RS("FotoPrincipal") <> "" then Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(diretorio & "/Imagem/"&RS("FotoPrincipal")) Then fso.deletefile(diretorio & "/Imagem/"&RS("FotoPrincipal")) end if set fso = nothing end if RS("FotoPrincipal") = FotoPrincipal	end if	if Fields("FotoPrincipal").FileName <> "" then FilePath = diretorio & "/Imagem/" & CodigoVeiculo & "_P" & right(Fields("FotoPrincipal").FileName,4) Fields("FotoPrincipal").Value.SaveAs FilePath FotoPrincipal = CodigoVeiculo & "_P" & right(Fields("FotoPrincipal").FileName,4) RS("FotoPrincipal") = FotoPrincipal	end if	if not IsNull(Foto1) or LimparFoto1 = "1" then if RS("Foto1") <> "" then Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(diretorio & "/Imagem/"&RS("Foto1")) Then fso.deletefile(diretorio & "/Imagem/"&RS("Foto1")) end if set fso = nothing end if RS("Foto1") = Foto1	end if	if Fields("Foto1").FileName <> "" then FilePath = diretorio & "/Imagem/" & CodigoVeiculo & "_1_" & right(Fields("Foto1").FileName,4) Fields("Foto1").Value.SaveAs FilePath Foto1 = CodigoVeiculo & "_1_" & right(Fields("Foto1").FileName,4) RS("Foto1") = Foto1	end if	if not IsNull(Foto2) or LimparFoto2 = "1" then if RS("Foto2") <> "" then Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(diretorio & "/Imagem/"&RS("Foto2")) Then fso.deletefile(diretorio & "/Imagem/"&RS("Foto2")) end if set fso = nothing end if RS("Foto2") = Foto2	end if	if Fields("Foto2").FileName <> "" then FilePath = diretorio & "/Imagem/" & CodigoVeiculo & "_2_" & right(Fields("Foto2").FileName,4) Fields("Foto2").Value.SaveAs FilePath Foto2 = CodigoVeiculo & "_2_" & right(Fields("Foto2").FileName,4) RS("Foto2") = Foto2	end if	if not IsNull(Foto3) or LimparFoto3 = "1" then if RS("Foto3") <> "" then Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(diretorio & "/Imagem/"&RS("Foto3")) Then fso.deletefile(diretorio & "/Imagem/"&RS("Foto3")) end if set fso = nothing end if RS("Foto3") = Foto3	end if	if Fields("Foto3").FileName <> "" then FilePath = diretorio & "/Imagem/" & CodigoVeiculo & "_3_" & right(Fields("Foto3").FileName,4) Fields("Foto3").Value.SaveAs FilePath Foto3 = CodigoVeiculo & "_3_" & right(Fields("Foto3").FileName,4) RS("Foto3") = Foto3	end if	RS.Update	RS.close	set RS = nothing	conn.execute("delete from VeiculosOpcionais where CodigoVeiculo = " & CodigoVeiculo )	if CodigoOpcional <> "" then ArrCodigoOpcional = split(CodigoOpcional,";") for x = 0 to UBound(ArrCodigoOpcional) SQLIns = "Insert Into VeiculosOpcionais (CodigoOpcional, CodigoVeiculo) values (" & ArrCodigoOpcional(x) & ", " & CodigoVeiculo & ")" Conn.execute(SQLIns) next	end if	Conn.close	set Conn = nothing	msgalert = msgalert & " do Veículo realizada com sucesso."%>	<script> alert('<%=msgalert%>'); location = "Default.asp?SQL=<%=Server.URLEncode(RSQL)%><%if RSQL <> "" then response.write "&acao=pesquisar"%>";	</script><%else	response.redirect "default.asp"end if%>

--------------------------------------------

ate mais.