Ir para conteúdo
Fórum Script Brasil
  • 0

Binaryread

marcelolima

Perguntado por marcelolima,

 Share

Pergunta

marcelolima

marcelolima

Postado
Postado

É o seguinte... estou mandando uma informação para outra página... que vai atualizar um bd, que passa tanto um parâmetro por Request.QueryString quanto por Request.Form...

Daí... ele dá a seguinte msg de erro na página que faz a atualização:

"Não é possível chamar o BinaryRead depois de usar a coleção Request.Form."

O erro é na linha 28:

28 ConteudoBinario = Request.BinaryRead(Tamanho)

Ajudem.. por favor!!!1

Link para o comentário
Compartilhar em outros sites

22 respostass a esta questão

Posts Recomendados

  • 0
ursolouco

ursolouco

Postado
Postado
É o seguinte... estou mandando uma informação para outra página... que vai atualizar um bd, que passa tanto um parâmetro por Request.QueryString quanto por Request.Form...

Daí... ele dá a seguinte msg de erro na página que faz a atualização:

"Não é possível chamar o BinaryRead depois de usar a coleção Request.Form."

O erro é na linha 28:

28 ConteudoBinario = Request.BinaryRead(Tamanho)

Ajudem.. por favor!!!1

Marcelo!!!

Há pouca informação aí, dá uma olhada de como estão sendo enviadas as informações (GET ou POST) e como estão sendo recolhidas (Request.Form ou Request.Querystring)

Abraços!!!

Link para o comentário
Compartilhar em outros sites
  • 0
cyberalexxx

cyberalexxx

Postado
Postado

A mensagem de erro esta bem clara:

"Não é possível chamar o BinaryRead depois de usar a coleção Request.Form."

Voce não pode usar no mesmo script Request.BinaryRead e Request.QueryString ou Request.Form.

Isso é muito comum em componentes de upload que geralmente usam Request.BinaryRead

Se o seu caso for upload, de uma olhada na documentação do componente pois exite um Objeto FormItem que recupera o valor dos campos tipo Objeto.form("item")

Link para o comentário
Compartilhar em outros sites
  • 0
marcelolima

marcelolima

Postado
  • Autor
Postado
É o seguinte... estou mandando uma informação para outra página... que vai atualizar um bd, que passa tanto um parâmetro por Request.QueryString quanto por Request.Form...

Daí... ele dá a seguinte msg de erro na página que faz a atualização:

"Não é possível chamar o BinaryRead depois de usar a coleção Request.Form."

O erro é na linha 28:

28 ConteudoBinario = Request.BinaryRead(Tamanho)
Ajudem.. por favor!!!1
Marcelo!!! Há pouca informação aí, dá uma olhada de como estão sendo enviadas as informações (GET ou POST) e como estão sendo recolhidas (Request.Form ou Request.Querystring) Abraços!!!
esse é o form de envio 
<form action=index.asp?lcl=upload&pasta=<%=Request.QueryString("nome")%> method="post" enctype="multipart/form-data">
              <p>Escolha o Evento
                <select name="areaSol" id="areaSol">
                  <%
 while Not Rs.EOF
  Response.Write("<option value="""& Rs("Evento") &""">"& Rs("Evento") &"</option>")
 Rs.MoveNext
 wend
 Response.Write("<option selected>---</option>")

 Set RsEvento = Conn.Execute("SELECT * FROM fotos_eventos ORDER BY 3 desc")


%>
                </select>
              </p>
              <p>Arquivo 1: 
                <input type="file" name="txtArquivo1">
              </p>
              <p><span class="texto">
                <input type="submit" name="cmdEnviar" value="Enviar">
                </span> </p>
            </form>

Link para o comentário
Compartilhar em outros sites
  • 0
marcelolima

marcelolima

Postado
  • Autor
Postado

A mensagem de erro esta bem clara:
"Não é possível chamar o BinaryRead depois de usar a coleção Request.Form."

Voce não pode usar no mesmo script Request.BinaryRead e Request.QueryString ou Request.Form.

Isso é muito comum em componentes de upload que geralmente usam Request.BinaryRead

Se o seu caso for upload, de uma olhada na documentação do componente pois exite um Objeto FormItem que recupera o valor dos campos tipo Objeto.form("item")

Mas... ele faz a mesma função do Request.form???

Na prática.. dá um exemplo pra mim de como isso funciona!!!

Link para o comentário
Compartilhar em outros sites
  • 0
marcelolima

marcelolima

Postado
  • Autor
Postado

ESSE CÓDIGO ENVIA...

<%
  if session("logado")= "" then
response.redirect "index.asp?lcl=intro"
end if
if session("evento") < "2" then
response.Redirect "index.asp?lcl=admineventos"
end if
cnpath="DBQ=" & Server.MapPath("dados/intranet.mdb") 
DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath 

Set Conn = Server.CreateObject("ADODB.Connection") 

Conn.Open DataSource

'Abre o Recordset
Set Rs = Server.CreateObject( "ADODB.Recordset" )
RS.ActiveConnection = Conn
Set Rs=conn.execute("select * from fotos_eventos order by 2 ")

%>
<html>
<head>
<title>Intranet - Agência de Fomento de Goiás S/A</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../estilos/intranet.css" rel="stylesheet" type="text/css">
</head>
<script>
function Gerar(){
var barra = open("fotos/criarpasta.asp","Codigo","scrollbars=0,menubar=0,toolbar=0, resizable=0,width=230,height=140");
}
</script>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="610" border="0" align="center" cellpadding="0" cellspacing="0">
<tr> 
 <TD width=15><IMG height=8 src="../imagens/1px.gif" width=8></TD>
</tr>

<tr> 
 <td width="15" align="center" valign="middle"> <div align="center"><IMG height=8 src="../imagens/1px.gif" width=15></div></td>
 <td align="center" valign="top"><table width="595" border="0" cellspacing="0" cellpadding="0">
     <tr bgcolor="#3399CC"> 
       <td width="610" height="20" bgcolor="#3399CC"><div align="center"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong> 
           <span class="titulobranco">FOTOS - EVENTOS</span></strong></font></div></td>
     </tr>
   </table> 
   
   <table width="595" border="0" cellspacing="0" cellpadding="0">
     <tr> 
       <td height="5" colspan="3" align="center" class="textointrodutorio"><img src="../imagens/5px.gif" width="5" height="5"></td>
     </tr>
     <tr> 
          <td width="339" height="20" bgcolor="#C4E4FD" class="textointrodutorio">&nbsp;</td>
       <td width="134" bgcolor="#C4E4FD" class="textointrodutorio">&nbsp;</td>
       <td width="122" bgcolor="#C4E4FD" class="textointrodutorio">&nbsp;</td>
     </tr>
   </table>
   <table width="595" border="0" cellspacing="0" cellpadding="0">
     <tr bgcolor="#ECF8FF"> 
          <td width="339" height="20" >&nbsp; </td>
       <td width="134" class="texto">&nbsp;</td>
       <td width="60" bgcolor="#ECF8FF" class="texto">&nbsp;</td>
       <td width="62" class="texto">&nbsp;</td>
     </tr>
     <tr> 
       <td height="5" colspan="4"><img src="../imagens/5px.gif" width="5" height="5"></td>
     </tr>
   </table> 
         
      <table width="595" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="5"><img src="../imagens/5px.gif" width="5" height="5"></td>
        </tr>
        <tr> 
          <td height="20" bgcolor="#C4E4FD" class="textointrodutorio"><div align="center">Local</div></td>
        </tr>
      </table>
      <table width="595" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="5" colspan="5"><img src="../imagens/5px.gif" width="5" height="5"></td>
        </tr>
        <tr> 
          <td width="20" height="20" bgcolor="#ECF8FF"><div align="center"><img src="imagens/tópico.gif" width="8" height="8"></div></td>
          <td width="270" bgcolor="#ECF8FF"><a href="javascript:Gerar();" class="linkclaro"><strong>Criar 
            Uma Nova Pasta</strong></a></td>
          <td width="15">&nbsp;</td>
          <td width="20" align="center" bgcolor="#ECF8FF"><img src="imagens/tópico.gif" width="8" height="8"></td>
          <td width="270" bgcolor="#ECF8FF"><strong><a href="index.asp?lcl=novofotoevento" class="linkclaro">Criar 
            um Novo Evento</a></strong></td>
        </tr>
      </table>
      <table width="595" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="5"><img src="../imagens/5px.gif" width="5" height="5"></td>
        </tr>
        <tr> 
          <td bgcolor="#ECF8FF" class="texto" height="20"> <img src="imagens/tópico.gif" width="8" height="8">&nbsp; 
            <%
  	if len(Request.QueryString("nome")) = 0 then
    response.write "" & "É Necessário escolher uma pasta de destino antes de fazer o upload" & "<br>"
  	end if %>
            <%Set FSO = Server.CreateObject("Scripting.FileSystemObject")
  	Set principal = FSO.GetFolder("c:\inetpub\intranet\fotos") 'pasta base
  	Set pastas = principal.SubFolders
  	pasta = Request.QueryString("nome")
  	Dim fso, f
  	folder = Request.Form("pasta")
  	
  	Set fso = Nothing %>
          </td>
        </tr>
      </table>
      <%For each pastaUP in pastas%>
      <table width="595" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="5" colspan="2"><img src="../imagens/5px.gif" width="5" height="5"></td>
        </tr>
        <tr> 
          <td width="23" height="20" bgcolor="#ECF8FF">&nbsp;<img src="../imagens/pasta3.gif" width="16" height="16"> 
          </td>
          <td width="572" valign="middle" bgcolor="#ECF8FF"><a href="index.asp?lcl=fotosnoevento&nome=<%=pastaUP.name%>" class="linkclaro"><%=pastaUP.name%></a></td>
        </tr>
      </table>
      <%next%>
      <table width="595" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="5" colspan="2" align="center"><img src="../imagens/5px.gif" width="5" height="5"></td>
        </tr>
        <tr bgcolor="#ECF8FF"> 
          <% if len(Request.Form("pasta")) > 0 then
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder(folder)
end if
%>
          <%if len(Request.QueryString("nome")) > 0 then%>
          <td colspan="2" align="left" bgcolor="#ECF8FF" class="texto"> 
              <form action=index.asp?lcl=upload&pasta=<%=Request.QueryString("nome")%> method="post" enctype="multipart/form-data">
              <p>Escolha o Evento
                <select name="areaSol" id="areaSol">
                  <%
 while Not Rs.EOF
  Response.Write("<option value="""& Rs("Evento") &""">"& Rs("Evento") &"</option>")
 Rs.MoveNext
 wend
 Response.Write("<option selected>---</option>")

 Set RsEvento = Conn.Execute("SELECT * FROM fotos_eventos ORDER BY 3 desc")


%>
                </select>
              </p>
              <p>Arquivo 1: 
                <input type="file" name="txtArquivo1">
              </p>
              <p><span class="texto">
                <input type="submit" name="cmdEnviar" value="Enviar">
                </span> </p>
            </form>
            </td>
        </tr>
        <tr> 
          <td height="5" colspan="2" align="center"><img src="../imagens/5px.gif" width="5" height="5"></td>
        </tr>
        <tr bgcolor="#ECF8FF"> 
          <td height="20" colspan="2" bgcolor="#ECF8FF"><span class="texto"> </span></td>
        </tr>
        <%end if%>
      </table>
      <table width="595" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td>&nbsp;</td>
          <td>&nbsp;</td>
        </tr>
        <tr> 
          <td width="20" height="20" align="center"><img src="imagens/tópico.gif" width="8" height="8"></td>
          <td><a href="javascript:history.back();" class="link">Voltar</a></td>
        </tr>
      </table>
      <p></p></td>
</tr>
</table>
</body>
</html>
ESSE OUTRO RECEBE OS PARÂMETROS e é onde tá acontecendo o erro 

<%
'testa permissão
if session("logado")= "" then
response.redirect "index.asp?lcl=intro"
end if

if session("fotos") < "2" then
response.Redirect "index.asp?lcl=adminfotos"
end if

cnpath="DBQ=" & Server.MapPath("dados/intranet.mdb") 
DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath 

Dim Contador, Tamanho
Dim ConteudoBinario, ConteudoTexto
Dim Delimitador, Posicao1, Posicao2
Dim ArquivoNome, ArquivoConteudo, PastaDestino, nome1
Dim objFSO, objArquivo
nome1 = Request.QueryString ("pasta")
a = Request.form("areaSol")
PastaDestino = Server.MapPath("fotos" & "\" & nome1)

'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
  	cnpath="DBQ=" & Server.MapPath("dados/intranet.mdb") 
	DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath 
  
	Set Conn = Server.CreateObject("ADODB.Connection") 

	Conn.Open DataSource

	'Abre o Recordset
	Set Rs = Server.CreateObject( "ADODB.Recordset" )
	RS.ActiveConnection = Conn
	Set Rs=conn.execute("Select * From fotos_eventos where Evento="&a&"")
%>
<link href="estilos/intranet.css" rel="stylesheet" type="text/css">

<link href="../estilos/intranet.css" rel="stylesheet" type="text/css">
<table width="610" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <TD width=15><IMG height=8 src="../imagens/1px.gif" width=8></TD>
  </tr>
  <tr> 
    <td width="15" align="center" valign="middle"> <div align="center"><IMG height=8 src="../imagens/1px.gif" width=15></div></td>
    <td align="center" valign="top"><table width="595" border="0" cellspacing="0" cellpadding="0">
        <tr bgcolor="#3399CC"> 
          <td width="610" height="20" bgcolor="#3399CC"><div align="center"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>SUCESSO!!!</strong></font></div></td>
        </tr>
      </table>
      <table width="595" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="5" align="center" class="textointrodutorio"><img src="../imagens/5px.gif" width="5" height="5"></td>
        </tr>
        <tr> 
          <td height="20" bgcolor="#C4E4FD" class="textointrodutorio">&nbsp; 
            <%  	
     Response.write "Arquivo " & PastaDestino & "\" & ArquivoNome
  %>
          </td>
        </tr>
      </table>
      <table width="595" border="0" cellspacing="0" cellpadding="0">
        <tr bgcolor="#ECF8FF"> 
          <td width="339" height="20" class="texto">&nbsp;<img src="imagens/tópico.gif" width="8" height="8"> 
            <%
     Response.Write ArquivoNome & " gravado com sucesso!<br>"
  Response.Write Request.form("areaSol")
     Set objArquivo = nothing
   end if
end if
Loop
Set objFSO = nothing
%>
          </td>
          <td width="134" class="texto">&nbsp;</td>
          <td width="60" bgcolor="#ECF8FF" class="texto"><div align="center"></div></td>
          <td width="62" class="texto"><div align="center"></div></td>
        </tr>
        <tr> 
          <td height="5" colspan="4"><img src="../imagens/5px.gif" width="5" height="5"></td>
        </tr>
      </table>
      <table width="595" border="0" cellspacing="1" cellpadding="1">
        <tr> 
          <td colspan="2"> </td>
        </tr>
        <tr> 
          <td height="20" colspan="2" align="center" bgcolor="#ECF8FF"><strong><a href="index.asp?lcl=fotosnoevento" class="linkclaro">Nova 
            Inclus&atilde;o de Fotos</a></strong></td>
        </tr>
        <tr> 
          <td width="14" height="20" align="center" bgcolor="#FFFFFF"><div align="left"></div></td>
          <td width="574" align="center" bgcolor="#FFFFFF"><div align="left"><a href="index.asp?lcl=adminfotos" class="link"> 
              Voltar para administra&ccedil;&atilde;o de Fotos</a></div></td>
        </tr>
      </table>
      <p></p></td>
  </tr>
</table>
<p>&nbsp;</p>

Link para o comentário
Compartilhar em outros sites
  • 0
cyberalexxx

cyberalexxx

Postado
Postado

Dei uma olhada agora, você esta utilizando o código de upload sem componente né!?

Cara sem componente não sei como você pode recuperar o nome dos campos, tem como buscar, mas eu não sei como, pois voce teria que pesquisar na String os dados de seu formulário.

Uma alternativa seria fazer em duas etapas, em um primeiro momento voce passa os dados do campos e armazena em Sessions() e depois voce seleciona e envia os arquivos para upload.

Link para o comentário
Compartilhar em outros sites
  • 0
marcelolima

marcelolima

Postado
  • Autor
Postado

jump menu... é uma lista de opção.. dentro de um form.. que tem a propriedade onChange="MM_jumpMenu('self',this,1)... que chama essa função MM_jumpMenu...

olha o form..

<form name="form1" action="index.asp?lcl=fotosnoevento&evento="<%& Rs("Evento") %>"">
              <p>&nbsp;</p>
              <p> 
     <%
  	if len(Request.Form("evento")) = 0 then
    response.write "" & "É Necessário escolher uma Evento antes de fazer o upload" & "<br>"
  	end if %>
  
                <select name="areaSol" id="areaSol" onChange="MM_jumpMenu('self',this,1)">
   <%
 while Not Rs.EOF
  Response.Write("<option value=""index.asp?lcl=fotosnoevento&evento="& Rs("Evento") &""">"& Rs("Evento") &"</option>")
 Rs.MoveNext
 wend
 Response.Write("<option selected>---</option>")

 Set RsEvento = Conn.Execute("SELECT * FROM fotos_eventos ORDER BY 3 desc")

Session("evento") = Request.Form("Evento")
%>
                </select>
                &nbsp;</p>
            </form> </td>
E OLHA O SCRIPT QUE O JUMP MENU CHAMA... 
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}
//-->
</script>
entendeu? Fiz isso.. mas dá um msg de erro:
Instrução esperada /fotos/adminfotosemeventos.asp, line 69
linha 69 é essa: 
<form name="form1" action="index.asp?lcl=fotosnoevento&evento="<%& Rs("Evento") %>"">

Link para o comentário
Compartilhar em outros sites
  • 0
marcelolima

marcelolima

Postado
  • Autor
Postado

isso no upload né??? Pois é.. é só um teste... mas é porque não estou conseguindo passar o valor que tá no REquest.form pra lá... por isso...

eu dei um response.write para testar se tava passando... mas vi que não... mas primeiro tenho que resolver aquele problema que te passei na que manda as fotos...

Link para o comentário
Compartilhar em outros sites
  • 0
marcelolima

marcelolima

Postado
  • Autor
Postado

Olha.. fiz funcionar com o jump menu que te falei.. daqui a pouco te passo o código para você dar uma olhada...

mas o seguinte... agora consegui passar o parâmetro por Response.QueryString...

daí... saka essa linha aki:

21  evento = Request.QueryString ("evento")
certo? mas aí, quando vai selecionar do banco dedos, acontece um erro.. saka aí: 
81	Set Rs=conn.execute("Select * From fotos_eventos where Evento="&evento&"")

O ERRO:

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)

[Microsoft][Driver ODBC para Microsoft Access] Parâmetros insuficientes. Eram esperados 1.

/fotos/upload.asp, line 81

Link para o comentário
Compartilhar em outros sites
  • 0
marcelolima

marcelolima

Postado
  • Autor
Postado

Ficou blzinha....

olha os códigos.. funcionou direito:

mas assim.. acho que fiz kgada.. porque tá mandando certinho no bd.. mas não tá fazendo o upload da foto propriamente dita.. dá uma olhada:

<%
'testa permissão
if session("logado")= "" then
response.redirect "index.asp?lcl=intro"
end if

if session("fotos") < "2" then
response.Redirect "index.asp?lcl=adminfotos"
end if

cnpath="DBQ=" & Server.MapPath("dados/intranet.mdb") 
DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath 

Dim Contador, Tamanho
Dim ConteudoBinario, ConteudoTexto
Dim Delimitador, Posicao1, Posicao2
Dim ArquivoNome, ArquivoConteudo, PastaDestino, nome1
Dim objFSO, objArquivo
pasta = Request.QueryString ("pasta")
evento = Request.QueryString ("evento")
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 & "\" & pasta & ArquivoNome, true)
  objArquivo.WriteLine ArquivoConteudo
  objArquivo.Close
  	cnpath="DBQ=" & Server.MapPath("dados/intranet.mdb") 
	DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath 
  
	Set Conn = Server.CreateObject("ADODB.Connection") 

	Conn.Open DataSource

	'Abre o Recordset
	Set Rs = Server.CreateObject( "ADODB.Recordset" )
	RS.ActiveConnection = Conn
	Set Rs=conn.execute("Select * From fotos_eventos where Id="&Request.querystring("Id")&"")
%>
<link href="estilos/intranet.css" rel="stylesheet" type="text/css">

<link href="../estilos/intranet.css" rel="stylesheet" type="text/css">
<table width="610" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <TD width=15><IMG height=8 src="../imagens/1px.gif" width=8></TD>
  </tr>
  <tr> 
    <td width="15" align="center" valign="middle"> <div align="center"><IMG height=8 src="../imagens/1px.gif" width=15></div></td>
    <td align="center" valign="top"><table width="595" border="0" cellspacing="0" cellpadding="0">
        <tr bgcolor="#3399CC"> 
          <td width="610" height="20" bgcolor="#3399CC"><div align="center"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>SUCESSO!!!</strong></font></div></td>
        </tr>
      </table>
      <table width="595" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="5" align="center" class="textointrodutorio"><img src="../imagens/5px.gif" width="5" height="5"></td>
        </tr>
        <tr> 
          <td height="20" bgcolor="#C4E4FD" class="textointrodutorio">&nbsp; 
            <%  	
     Response.write "Arquivo " & PastaDestino & "\" & ArquivoNome
  Foto = pasta & "/" & ArquivoNome
  %>
          </td>
        </tr>
      </table>
      <table width="595" border="0" cellspacing="0" cellpadding="0">
        <tr bgcolor="#ECF8FF"> 
          <td width="339" height="20" class="texto">&nbsp;<img src="imagens/tópico.gif" width="8" height="8"> 
            <%
     Response.Write ArquivoNome & " gravado com sucesso!<br>"
     Set objArquivo = nothing
   end if
end if
Loop
IdEvento = Request.QueryString("Id")
Set objFSO = nothing
	Set Conn1 = Server.CreateObject("ADODB.Connection") 
	Conn1.Open DataSource
	conn1.Execute("insert into fotos (IdEvento, Foto_P, Foto) VALUES ( '" & IdEvento & "', '" & Foto & "','" & Foto & "')")

%>
          </td>
          <td width="134" class="texto">&nbsp;</td>
          <td width="60" bgcolor="#ECF8FF" class="texto"><div align="center"></div></td>
          <td width="62" class="texto"><div align="center"></div></td>
        </tr>
        <tr> 
          <td height="5" colspan="4"><img src="../imagens/5px.gif" width="5" height="5"></td>
        </tr>
      </table>
      <table width="595" border="0" cellspacing="1" cellpadding="1">
        <tr> 
          <td colspan="2"> </td>
        </tr>
        <tr> 
          <td height="20" colspan="2" align="center" bgcolor="#ECF8FF"><strong><a href="index.asp?lcl=fotosnoevento" class="linkclaro">Nova 
            Inclus&atilde;o de Fotos</a></strong></td>
        </tr>
        <tr> 
          <td width="14" height="20" align="center" bgcolor="#FFFFFF"><div align="left"></div></td>
          <td width="574" align="center" bgcolor="#FFFFFF"><div align="left"><a href="index.asp?lcl=adminfotos" class="link"> 
              Voltar para administra&ccedil;&atilde;o de Fotos</a></div></td>
        </tr>
      </table>
      <p></p></td>
  </tr>
</table>
<p>&nbsp;</p>

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...