dundas upload não grava no banco de dados

[felipe_tga 0]

Olá galera estou novamente pedindo ajuda se puderem me auxiliar fico grato

segue codigo:não esta gravando no banco embora envia a imagem para a pasta especificada

 

<%@ Language=VBScript %>

<!--#include file="Connections/db_rt.asp" -->

<%

Dim Contador, Tamanho

Dim ConteudoBinario, ConteudoTexto

Dim Delimitador, Posicao1, Posicao2

Dim ArquivoNome, ArquivoConteudo, PastaDestino

Dim objFSO, objArquivo

 

PastaDestino = Server.MapPath("fotos")

 

'Determina o tamanho do conteúdo

Tamanho = Request.TotalBytes

 

'Obtém o conteúdo no formato binário

ConteudoBinario = Request.BinaryRead(Tamanho)

 

'Transforma o conteúdo binário em string

For Contador = 1 To Tamanho

ConteudoTexto = ConteudoTexto & Chr(AscB(MidB(ConteudoBinario, Contador,

1)))

Next

 

'Determina o delimitador de campos

Delimitador = Left(ConteudoTexto, InStr(ConteudoTexto, vbCrLf) - 1)

 

'Percorre a String procurando os campos

'identifica os arquivo e grava no disco

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

 

Posicao1 = InStr(ConteudoTexto, Delimitador) + Len(Delimitar)

 

do while True

ArquivoNome = ""

Posicao1 = InStr(Posicao1, ConteudoTexto, "filename=")

if Posicao1 = 0 then

exit do

else

'Determina o nome do arquivo

Posicao1 = Posicao1 + 10

Posicao2 = InStr(Posicao1, ConteudoTexto, """")

For contador = (Posicao2 - 1) to Posicao1 step -1

if Mid(ConteudoTexto, Contador, 1) <> "\" then '"

ArquivoNome = Mid(ConteudoTexto, Contador, 1) & ArquivoNome

else

exit for

end if

next

 

'Determina o conteúdo do arquivo

Posicao1 = InStr(Posicao1, ConteudoTexto, vbCrLf & vbCrLf) + 4

Posicao2 = InStr(Posicao1, ConteudoTexto, Delimitador) - 2

ArquivoConteudo = Mid(ConteudoTexto, Posicao1, (Posicao2 - Posicao1 + 1))

 

'Grava o arquivo

if ArquivoNome <> "" then

Set objArquivo = objFSO.CreateTextFile(PastaDestino & "\" &

ArquivoNome, true)

objArquivo.WriteLine ArquivoConteudo

objArquivo.Close

 

Response.write "Arquivo " & PastaDestino & "\" & _

ArquivoNome & " gravado com sucesso!<br>"

Set objArquivo = nothing

end if

end if

Loop

Set objFSO = nothing

%>

 

<% Set rs = Server.CreateObject("ADODB.Recordset")

rs.ActiveConnection = MM_db_rt_STRING

rs.Open =" Update foto1 FROM equipe WHERE foto1 = '" &

Request.querystring("foto1") & "' where foto1 = " & 100088888

%>

[sublyer 0]

Bom não ta resgatando o nome do arquivo no campo foto1.Verifica se no formulário o campo é este mesmoOutra coisa tem algum método do dundas que retorna o nome da imagem que está sendo feito o upload..pesquisa sobre isso pq é isso que não está retornando..