Problemas Upload

[Cereal_Killer 0]

Bem amigos, meu caso tá um pouco complicado.Eu criei um sistema de cadastro de fotos para um cliente num servidor da Locaweb. Um cadastro de fotos.Depois de exaustivos testes finalizei o sistema e entreguei pro cliente. Ele começou a reclamar de erros no cadastro do sistema, dizendo que quando apertava o botão enviar, o sistema ficava ocioso e não respondia, até dar erro.O problema é que eu testei em várias condições o tal código e deu certo em todas elas, TODAS!Justo na rede do cliente que o sistema não pega. :blink: Eu sinceramente não tenho a mínima idéia de como resolver isso. Já que vocês são os iMasters peço humildemente uma ajuda aqui. Uma luz sei lá, uma possível causa do erro.O código que está dando erro é esse:

<%'Conexão com BDSet Conn = Server.CreateObject("ADODB.Connection")Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=e:\home\basilioautomoveis\Dados\basilio.mdb"if session("login")<>"" and session("login")<>" " Then 'cria instância do objeto Set objUpload = Server.CreateObject("SoftArtisans.FileUp") sql="insert into "&session("login")&" (marca, modelo, ano, cor, placa, combustivel, " sql = sql & "km, valor, descricao, auto, " if objUpload.Form("auto")=1 then sql = sql & "portas, " end if if objUpload.Form("auto")=2 then sql = sql & "cilindradas, partida, " end if sql = sql & "tipo) values (" sql = sql & "'"&objUpload.Form("marca")&"', " sql = sql & "'"&objUpload.Form("modelo")&"', " sql = sql & "'"&objUpload.Form("ano")&"', " sql = sql & "'"&objUpload.Form("cor")&"', " if objUpload.Form("placa") = "" or objUpload.Form("placa") = " " then sql = sql & "' ', " else sql = sql & "'"&objUpload.Form("placa")&"', " end if sql = sql & "'"&objUpload.Form("combustivel")&"', " if objUpload.Form("km") = "" or objUpload.Form("km") = " " then sql = sql & "'0', " else sql = sql & "'"&objUpload.Form("km")&"', " end if if objUpload.Form("valor") = "" or objUpload.Form("valor") = " " then sql = sql & "'0', " else sql = sql & "'"&objUpload.Form("valor")&"', " end if if objUpload.Form("descricao") = "" or objUpload.Form("descricao") = " " then sql = sql & "' ', " else sql = sql & "'"&objUpload.Form("descricao")&"', " end if sql = sql & "'"&objUpload.Form("auto")&"', " if objUpload.Form("auto")=1 then sql = sql & "'"&objUpload.Form("portas")&"', " end if if objUpload.Form("auto")=2 then sql = sql & "'"&objUpload.Form("cilindradas")&"', " sql = sql & "'"&objUpload.Form("partida")&"', " end if sql = sql & "'"&objUpload.Form("tipo")&"')" set dados=conn.execute(sql) Set cadastrados=conn.execute("select * from "&session("login")&" order by "&session("login")&"_id desc") '=================UPLOAD========================= For i=1 To 3 foto = objUpload.Form("img"&i).UserFilename if foto <> "" then tipo_foto = objUpload.Form("img"&i) ' Caminho completo dos arquivos enviados caminho_foto = Mid(objUpload.Form("img"&i).UserFilename, InstrRev(objUpload.Form("img"&i).UserFilename, "\") + 1) ' pasta onde as imagens serao guardadas pasta = "e:/home/basilioautomoveis/web/admin/grupo/imagens" objUpload.path = pasta FName = Mid(objUpload.Form("img"&i).UserFilename, InstrRev(objUpload.Form("img"&i).UserFilename, "\") + 1) nomefoto=Split(caminho_foto,".",-1,1) if objUpload.Form("img"&i).TotalBytes < 1024000 then nome_foto = "/"&session("login")&cadastrados(session("login")&"_id")&i&"."&nomefoto(1) 'Salvando arquivo objUpload.Form("img"&i).Saveas pasta&nome_foto '============ Fazendo o Upload do arquivo selecionado 'Grava tudo sql_fotos="insert into "&session("login")&"_fotos ("&session("login")&"_id, arquivo, endereco, img) values ('"&cadastrados(session("login")&"_id")&"', '"&session("login")&cadastrados(session("login")&"_id")&i&"', '"&session("login")&cadastrados(session("login")&"_id")&i&"."&nomefoto(1)&"', "&i&")" conn.execute(sql_fotos) else response.write "Erro: O arquivo é maior que 90 kb.<br><a href=cadastro.asp target=_self>Voltar</a>" response.end end if end If next response.redirect "cadastro.asp?auto="&objUpload.Form("auto")&"&tipo="&objUpload.Form("tipo")&"&ok=1" 'destroi o objeto set objUpload = nothing else response.redirect "../timeout.asp"end if%>

[Cereal_Killer 0]

aí que tá. O erro é que o cliente manda enviar, aí fica processando o código por muito tempo, até que no final ele dá aquele erro no Internet Explorer "página não pode ser exibida".é como se eu mandasse enviar essa resposta, ficasse um tempo processando, e no final a página não envia.

[Cereal_Killer 0]

eu sugeri que ele utilizasse o firefox e o erro persiste

[Cereal_Killer 0]

realmente, to nessa situação.mas como eu faço esse do timeout?

[cabral51 0]

lucas deve ser o timeout pela quantidade de tempo que demora pra carregar as informações, acho que o lucas está certo