marcelolima
-
Total de itens
97 -
Registro em
-
Última visita
Tudo que marcelolima postou
-
<% Dim Contador, Tamanho Dim ConteudoBinario, ConteudoTexto Dim Delimitador, Posicao1, Posicao2 Dim ArquivoNome, ArquivoConteudo, PastaDestino, nome1 Dim objFSO, objArquivo nome1 = Request.QueryString (pasta) PastaDestino = Server.MapPath(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 Response.write "Arquivo " & PastaDestino & "\" & _ ArquivoNome & " gravado com sucesso!<br>" Set objArquivo = nothing end if end if Loop Set objFSO = nothing %> ESSE É O UPLOAD... o link... é passado no form... no outro código index.asp?lcl=upload&pasta="<%=Request.QueryString("nome")%>" method="post" enctype="multipart/form-data"> e o index.asp inclui a página upload.asp
-
cara.. mesmo maledito erro.. Tipo de erro: Objeto Request, ASP 0102 (0x80004005) A função espera uma seqüência de caracteres como entrada. /upload.asp, line 8 URL: http://intranet/index.asp?lcl=upload&pasta=
-
olha como tá a url da página que dá erro.. http://intranet/index.asp?lcl=upload&pasta=
-
Tipo de erro: Objeto Request, ASP 0102 (0x80004005) A função espera uma seqüência de caracteres como entrada. /upload.asp, line 8 OLHA O ERRO QUE DEU!!!
-
Olha meu código... <% 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> <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"> Escolha o Evento</td> <td width="134" bgcolor="#C4E4FD" class="textointrodutorio"> </td> <td width="122" bgcolor="#C4E4FD" class="textointrodutorio"> </td> </tr> </table> <table width="595" border="0" cellspacing="0" cellpadding="0"> <tr bgcolor="#ECF8FF"> <td width="339" height="20" > <img src="imagens/tópico.gif" width="8" height="8"> <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>") %> </select></td> <td width="134" class="texto"> </td> <td width="60" bgcolor="#ECF8FF" class="texto"> </td> <td width="62" class="texto"> </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" class="texto">LOCAL</td> </tr> <tr> <td height="20" colspan="2" align="center" bgcolor="#ECF8FF"><div align="left" class="texto"> <% Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set principal = FSO.GetFolder("c:\inetpub\intranet\fotos") 'pasta base Set pastas = principal.SubFolders Set pasta = Request.QueryString("nome") %> <%For each pasta in pastas%> <img src="../imagens/folder.gif" width="12" height="12"> <a href="index.asp?lcl=fotosnoevento&nome=<%=pasta.name%> "><%=pasta.name%></a> <br> <%next%> </div></td> </tr> <tr> <td height="20" colspan="2" align="center" bgcolor="#ECF8FF"><div align="left" class="texto"> <form action="index.asp?lcl=upload&pasta="<%=Request.QueryString("pasta")%>" method="post" enctype="multipart/form-data"> <span class="texto"><br> Arquivo 1: <input type="file" name="txtArquivo1"> <br> Arquivo 2: <input type="file" name="txtArquivo2"> <br> <input type="submit" name="cmdEnviar" value="Enviar"> </span> </form> </div></td> </tr> <tr> <td height="20" colspan="2" align="center" bgcolor="#ECF8FF"><strong><a href="index.asp?lcl=novofotoevento" class="linkclaro">Novo Evento</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="javascript:history.back();" class="link"> Voltar</a></div></td> </tr> </table> <p></p></td> </tr> </table> </body> </html> Ele manda para um upload.asp... que tá dando erro!!! Não tá passando o parâmetro pasta... O que acham que tá acontecendo?
-
e para incluir as pastas???
-
sim... mas me ajude.. como faço isso?
-
O problema em utilizar o FSO é que o usuário poderá criar uma pasta nova, ou seja, nem sempre a pasta existirá. Como se ele abrisse a janela ABRIR do windows para escolher a pasta destino. Como podemos fazer isso? Tipo... tem um button que quando acionado, chama essa janela do windows... ABRIR...???
-
Boa tarde gente... É o seguinte... estou trabalhando numa inclusão de fotos e eventos... A página de criação de eventos está funcionando direito. Agora, preciso da inclusão de fotos nos eventos. Para isso, é preciso ter uma rotina para indicar a pasta onde será salvo... incluindo a opção de criação de pastas. Daí a pessoa escolhe o evento onde ela quer incluir aquelas fotos, escolhe as fotos... e indica onde ela vai ficar gravada... Espero que tenham entendido.. Abração e tudo de bom!
-
Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A0046) Permissão negada /sviventes/contato/enviar.asp, line 23 esse aí é o erro... a linha 23 é a seguinte: Mailer.Send
-
como vejo se o aspmail tá configurado???
-
<% 'Declarando variveis Dim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sAssunto 'Pegando os dados digitados nos campos e colocando em variaveis sNameFrom = Request.Form("nome") sEmailFrom = Request.Form("email") sEmailTo = "jlsardinha@hotmail.com" sNameTo = "Seres Viventes" sText = Request.Form("mensagem") sAssunto = Request.Form("assunto") 'Cria o objeto set mailer = server.createobject("SMTPsvg.Mailer") Mailer.FromName = sNameFrom Mailer.FromAddress = sEmailFrom 'Host para envio de emails Mailer.RemoteHost = "smtp2.locaweb.com.br" Mailer.AddRecipient sEmailTo, sNameTo Mailer.Subject = sAssunto & " - E-mail" 'Monta a texto para o envio strMsgHeader = sNameFrom & "(" & sEmailFrom & ") " & " quem enviou! " & vbCrLf & vbCrLf strMsgFooter = sText Mailer.BodyText = strMsgHeader & strMsgFooter ' Se for enviado redirecionar para obrigado.asp if Mailer.SendMail then Response.Redirect "index.asp?lcl=EnviaEmail" else ' Se não for enviado mostra o erro que ocoreu Response.Write ("Ocorreu um erro.<BR>") Response.Write ("O Erro é " & Mailer.Response) end if %> essa é a página de envio!!!
-
Brother... o componente CDONTS está instalado... o que mais posso fazer?
-
é na nossa intranet... então é só configurar o IIS né?
-
você tem o link onde posso pegar?
-
Como configuro isso no IIS?
-
bom dia... tenho uma página de contatos... que na hora de enviar, dá a seguinte msg de erro: A LINHA 14 É A SEGUINTE: 14 set mailer = server.createobject("SMTPsvg.Mailer") preciso de ajuda urgente!!!1
-
ô brothers... valeu.. deu certo.. problema era mesmo no global.asa
-
É... acho que não... vou dar uma olhada...!!!
-
funcionou quando coloquei virtual no lugar de file.. mas agora tá dando outro problema. Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified /grupoud/chat/CoolCafe/include/constants.inc, line 716 a linha 717 desse arquivo .inc é está na seguinte função: 711 Sub OpenConnection(ByRef DBObj, ByRef RSObj) 712 ' We open a connection to the database. 713 ' Application("DBString") must be set to your database string in Global.asa 714 Set DBObj = Server.CreateObject("ADODB.Connection") 715 DBObj.ConnectionString = Application("DBString") 716 DBObj.Open 717 Set RSObj = Server.CreateObject("ADODB.Recordset") 718 End Sub alguém sabe porque? E por acaso conhecem um código de asp para chat que tenha função de administração e conversas no reservado que funcione blzinha?
-
Boa tarde... Estou com um problema num formmail... Eu o peguei do site daqui da empresa. Acontece que quando coloco ele na intranet... e clico em enviar, dá um erro.. HTTP 405 - Recurso não permitido Internet Information Services SAbem se tem que configurar alguma coisa no IIS para que o formmail funcione???
-
Bom dia... toh tentando colocar um chat no ar... mas acontece o seguinte: tem um subdiretório que se chama chat e dentro dele tem um outro diretorio 'include'. Daí, executo uma página http://www.grupoud.cjb.net/chat/portuguese.asp e dá a seguinte mensagem: Active Server Pages error 'ASP 0130' Invalid File attribute /grupoud/chat/portuguese.asp, line 3 File attribute '/chat/include/constants.inc' cannot start with forward slash or back slash. daí... quando tiro a '/' ele dá o erro '0126'.. page not found. Alguém poderia me ajudar?