Ir para conteúdo
Fórum Script Brasil

marcelolima

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    97

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que marcelolima postou

  1. marcelolima
    Não aconteceu nada... mas tipo assimn, o campo... <input type...> está dentro de um form eu tenho que colocar algo no form? E assim, queria que fizesse as mudanças de ponto e vírgula a medida q vai digitando... onde eu estou errando?
  2. marcelolima
    O problema é esse, brother.. eu não sei como fazer! Eu queria saber se tem algum javascript que faça isso. A página está em asp... pode me ajudar?
  3. marcelolima
    Oi povo.. é o seguinte: vi em algumas páginas que é possível ir digitando e na medida q vai digitando, coloca-se automaticamente os pontos e as vírgulas, até formar o valor certo. Exemplo: se o cara digitar 1 ... já muda para 1,00 " 12... 12,00 1000... 1.000,00 2000121... 2.000.121,00 mas isso tem que ser no mesmo tempo q o cara digita... Além disso, queria bloquear o campo para só aceitar números... Alguém pode me ajudar???
  4. marcelolima

    Ficha De Inscrição

    pergunta respondeu ao marcelolima de marcelolima em PHP

    eu concatenei tudo.. mas na hora que envia.. dá o seguinte erro: olha a 148 147 $msg = "Inscrição por email\n\n"; 148 $msg .= "Curso: ".$assunto"\n"; 149 $msg .= "Data: ".$data"\n"; 150 $msg .= "Instrutor(es): ".$instrutor"\n"; o que tá errado???
  5. marcelolima

    Ficha De Inscrição

    pergunta respondeu ao marcelolima de marcelolima em PHP

    e outra coisa... esse final aqui acho que não tá funcionando.. $to = "marcelolima@fomento.goias.gov.br"; if (mail($to, "$assunto", $mensagem, "From:$nome <$from>\nReply-To:$from\nX-Mailer: PHP/" . phpversion())) { echo "&nbsp; ","<span class=\"texto\"><b>Obrigado $nome! A sua mensagem foi enviada com sucesso!<BR><BR></span>"; echo "<span class=\"menu\">"; echo "<center>[ <b><a href='index.php?ouve' <span class=\"menu\"> <b> Envie outra mensagem</a></b> ]"; echo "</span>"; pois não tá aparecendo pra mim a mensagem de envio!
  6. marcelolima

    Ficha De Inscrição

    pergunta respondeu ao marcelolima de marcelolima em PHP

    nosso código de mail é esse: <style type=text/css>body {scrollbar-face-color: #eff2f8; scrollbar-shadow-color: grey; scrollbar-highlight-color: white; scrollbar-3dlight-color: grey; scrollbar-darkshadow-color: white;scrollbar-track-color: #eff2f8; scrollbar-arrow-color: #c0c0c0;}</style> <link href="estilos/fomento.css" rel="stylesheet" type="text/css"> <script> <!-- function valida() { if (form1.nome.value == "") { alert("Favor informar o Nome.") document.form1.nome.focus() return false; } else if (form1.from.value == "") { alert("Favor informar o E-mail.") document.form1.from.focus() return false; } else if (form1.assunto.value == "") { alert("Favor informar o Assunto.") document.form1.assunto.focus() return false; } else if (form1.mensagem.value == "") { alert("Favor informar a Mensagem.") document.form1.mensagem.focus() return false; } if (!(/^\w+([\.-]?\w+)*@\w+([\.-]?\w+)*(\.\w{2,3})+$/.test(form1.from.value))) { alert("Favor informar um email válido.") document.form1.from.focus() return false; return (false) } else { form1.nome.value = RetiraCaracteres(form1.nome.value); form1.from.value = RetiraCaracteres(form1.from.value); form1.assunto.value = RetiraCaracteres(form1.assunto.value); form1.mensagem.value = RetiraCaracteres(form1.mensagem.value); return true; } } function RetiraCaracteres(Campo) { var Acentos = "*%<>/{}[];()+-=&'%~"; var Traducao =" "; var Posic, Carac; var TempLog = ""; for (var i=0; i < Campo.length; i++) { Carac = Campo.charAt (i); Posic = Acentos.indexOf (Carac); if (Posic > -1) TempLog += Traducao.charAt (Posic); else TempLog += Campo.charAt (i); } return (TempLog); } function MM_jumpMenu(targ,selObj,restore){ //v3.0 eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'"); if (restore) selObj.selectedIndex=0; } //--> </script> <link href="estilos/fomento.css" rel="stylesheet" type="text/css"> <title>::Ag&ecirc;ncia de Fomento de Goi&aacute;s S/A::</title><body text="#000000" link="#000000" vlink="#000000" alink="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <table width="600" border="0" align="center" cellpadding="1"> <tr> <td><form name=form1 method=post action="index.php?ouve" onSubmit="return valida()" enctype="multipart/form-data" class="menu"> <table border="0" width="100%" cellspacing="0" cellpadding="0"> <tr> <td colspan="2"> <input type=hidden name=counter value="1" max_lenght="1"> <? if(!$counter) { ?> </td> </tr> <tr> <td align="center"><div align="left"></div></td> <td align="center"><div align="left" class="texto">Selecione o Departamento:</div></td> </tr> <tr> <td align="center">&nbsp;</td> <td><select name="to" class="texto"> <option value="teste@teste.com.br">Atendimento</option> <option value="teste2@teste.com.br">Documentação</option> </select> </td> </tr> <tr> <td colspan="2" align="center"> </td> </tr> <tr> <td align="center">&nbsp;</td> <td align="center">&nbsp;</td> </tr> <tr> <td width="20%" align="center"> </span></td> <td align="center"><div align="left" class="texto">Informe seu nome</div></td> </tr> <tr> <td align="center">&nbsp; </td> <td><input type=text name=nome max_lenght=50 size=45></td> </tr> <tr> <td align="center">&nbsp;</td> <td align="center"> <div align="left" class="texto">E-mail</div></td> </tr> <tr> <td align="center">&nbsp; </td> <td><input type=text name=from max_lenght=50 size=45></td> </tr> <tr> <td align="center">&nbsp;</td> <td align="center"><div align="left" class="texto">Assunto </div></td> </tr> <tr> <td align="center">&nbsp; </td> <td><input type=text name=assunto max_lenght=50 size=45></td> </tr> <tr> <td align="center">&nbsp;</td> <td align="center"> <div align="left" class="texto">Mensagem </div></td> </tr> <tr> <td align="center">&nbsp; </td> <td><textarea name=mensagem cols="55" rows="15" class="formulario3"></textarea></td> </tr> <tr> <td align="center">&nbsp;</td> <td><input type="submit" name="Submit" value="Enviar" style="font-family: Verdana; font-size: 8 pt; font-weight: bold; background-color: #FFFFFF; border-style: solid; border-width: 1"> &nbsp; <input type="reset" name="Reset" value="Limpar" style="font-family: Verdana; font-size: 8 pt; font-weight: bold; background-color: #FFFFFF; border-style: solid; border-width: 1"> </td> </tr> <? } else { if (mail($to, "$assunto", $mensagem, "From:$nome <$from>\nReply-To:$from\nX-Mailer: PHP/" . phpversion())) { echo "&nbsp; ","<span class=\"texto\"><b>Obrigado $nome! A sua mensagem foi enviada com sucesso!<BR><BR></span>"; echo "<span class=\"menu\">"; echo "<center>[ <b><a href='index.php?ouve' <span class=\"menu\"> <b> Envie outra mensagem</a></b> ]"; echo "</span>"; } } ?> </table> </form> </td> </tr> </table> ESSE É NOSSO CÓDIGO mas só tem os campos do email... eu preciso criar outros campos.. tipo, o curso que o cara pretende fazer, data instrutor cpf endereço setor cep cidade fone etc... etc.. alguém sabe como o fazer?
  7. marcelolima
    estou querendo fazer uma ficha de inscrição, sem utilizar BD, para enviar um email... daí a pessoa preenche os campos necessários (uns 30 mais ou menos) e quando envia, manda para o email do responsável... alguém pode me ajudar?
  8. marcelolima
    estou querendo fazer uma ficha de inscrição, sem utilizar BD, para enviar um email... daí a pessoa preenche os campos necessários (uns 30 mais ou menos) e quando envia, manda para o email do responsável... alguém pode me ajudar?
  9. marcelolima

    Refinamento..

    uma questão postou marcelolima ASP

    estou refinando uma página que estou fazendo de intranet... o site é todo em asp e os parâmetros eu passo assim: index.asp?variavel=teste daí aparece esse link no navegador. http://intranet/index.asp?variavel=teste Alguém pode me dizer se é possível fazer com que não apareça nada além de http://intranet no navegador?
  10. marcelolima
    ngm pode me ajudar???
  11. marcelolima
    tipo... aki é uma intranet... daí eu coloquei esse código na página intro.asp que é a default. DAí, toda vez que o cara clica pra voltar na página inicial, abre o pop up. tipo o site da bol, entende??? que você pode navegar e quando volta na página inicial o pop up não abre mais. E não seria uma vez por dia não? Um vez por "sessão"... ou seja cada vez q o cara digitar no navegar http://intranet! Entendeu brother?
  12. marcelolima
    bom dia pessoas... olha, é o seguinte... eu coloquei um pop up numa página chamada intro.asp daí toda vez que eu abro ela chama o pop up tem como fazer esse pop up só a primeira vez q o cara abrir a intranet??? <script language="Javascript"> pop1=window.open ("popup.htm","pop1", "toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,,width=752,height=855,"); </script> obrigado!
  13. marcelolima

    Paginação...

    pergunta respondeu ao marcelolima de marcelolima em ASP

    tentei colocar o código em uma página de fotos... dá o seguinte erro: 121 Response.Write "</table>" 122 Set rsFotos = Conn.Execute("SELECT * FROM fotos WHERE idevento="&idevento&"") 123 If rsFotos.EOF Then 124 Response.Write "Nenhuma foto encontrada!"
  14. marcelolima

    Paginação...

    pergunta respondeu ao marcelolima de marcelolima em ASP

    funcionou... mas cara eu tenho um problema. Por exemplo... se tiver 100, 200 páginas fica muito grande lá embaixo... você sabe como posso fazer para criar um Next da forma como acontece nos sites de busca, tipo Google??? Na medida em que se vai para uma página qualquer, ele mostra as duas ou três páginas anteriores àquela e as outras posteriores.
  15. marcelolima

    Paginação...

    pergunta respondeu ao marcelolima de marcelolima em ASP

    esse arquivo de conexão q ele tá incluindo... pode ser esse mesmo q eu uso??? <% sub AbreConexao set conexao = server.createobject("ADODB.Connection") conexao.Open="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dados/intranet.mdb") end sub sub FechaConexao conexao.close set conexao = nothing end sub Call AbreConexao %> tnx!
  16. marcelolima

    Paginação...

    pergunta respondeu ao marcelolima de marcelolima em ASP

    a func.asp toda é essa aqui: <% dia = day(date) mes = month(date) ano = year(date) '''''''''''''''''''''''''''''''''''''''''''''''''''''''fazendo a paginação !!! :) ' número de registros por página. Const numeroRegistros = 10 ' mapeia o caminho x = Server.MapPath("dados/intranet.mdb") ' cria o objeto Conexão Set Conexao = Server.CreateObject("ADODB.Connection") ' concatena a string do driver com o caminho liga = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& x ' o cursor do objeto Connection deve residir no cliente. ' Isto equivale a dizer que a propriedade CursorLocation ' do objeto connection é igual a adUseClient, ou se não ' quiser utilizar as constantes do arquivo adovbs.inc, ' use o número 3 ao invés de adUseClient. Na verdade, a ' constante adUseClient tem o valor 3 no arquivo adovbs.inc. ' Logo, tanto faz usar adUseClient ou 3, pois adUseClient = 3 Conexao.CursorLocation = 3 'abre a conexão Conexao.Open liga ' cria um recordset Set tabela = Server.CreateObject("ADODB.RECORDSET") ' faz o recordset usar a conexão Set tabela.ActiveConnection = Conexao ' número de registros por página tabela.PageSize = numeroRegistros ' tamanho do cache tabela.CacheSize = numeroRegistros ' carrega a query na string strSQL = "Select * From usuarios order by 2;" ' executa a query tabela.open strSQL ' testa se é a primeira vez If (request.ServerVariables("CONTENT_LENGTH") = "123" ) Then ' se for aponta para a primeira página e guarda que a página atual é a primeira tabela.AbsolutePage = 1 paginaAtual = 1 else ' caso não seja a primeira vez guarda página atual paginaAtual = Cint(Request.Form("CurrentPage")) ' de acordo com a escolha a página é incrementada ou decrementada Select Case Request.Form("enviarecordset") Case "Anterior" paginaAtual = paginaAtual - 1 tabela.AbsolutePage = paginaAtual Case "Próxima" paginaAtual = paginaAtual + 1 tabela.AbsolutePage = paginaAtual End Select End If ' imprime os registros na tela %> <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" class="titulobranco"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>FUNCION&Aacute;RIOS</strong></font></div></td> </tr> </table> <table width="595" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="5" colspan="5" align="center" class="textointrodutorio"><img src="../imagens/5px.gif" width="5" height="5"></td> </tr> <tr> <td width="233" height="20" bgcolor="#C4E4FD" class="textointrodutorio">&nbsp;Nome</td> <td width="80" bgcolor="#C4E4FD" class="textointrodutorio">Coord</td> <td width="113" bgcolor="#C4E4FD" class="textointrodutorio">Ramal</td> <td width="84" bgcolor="#C4E4FD" class="textointrodutorio">Anivers&aacute;rio</td> <td width="85" bgcolor="#C4E4FD" class="textointrodutorio">&nbsp;</td> </tr> </table> <% while not tabela.EOF %> <table width="595" border="0" cellspacing="0" cellpadding="0"> <tr bgcolor="#ECF8FF"> <td width="234" height="20" class="texto">&nbsp;<img src="imagens/tópico.gif" width="8" height="8"> <%=tabela("nome")%></td> <td width="80" class="texto"><%=tabela("divisao")%></td> <td width="112" class="texto"><%=tabela("ramal")%></td> <td width="84" class="texto"><%=tabela("dia")%> <% if tabela("dia") <> "" then Response.Write("/") end if %> <%=tabela("mes")%></td> <td width="85" class="texto"><a href="index.asp?lcl=funcresult&nome2=<%=tabela.Fields("nome")%>" class="linkclaro"><font color="#FF0000">+ INFO</font> </a></td> </tr> <tr> <td height="5" colspan="5"><img src="../imagens/5px.gif" width="5" height="5"></td> </tr> </table></td> </tr> <tr> <td align="center" valign="middle">&nbsp;</td> <td align="center" valign="top"> <% tabela.Movenext wend tabela.close %> </td> </tr> </table> </body> </html>
  17. marcelolima

    Paginação...

    pergunta respondeu ao marcelolima de marcelolima em ASP

    a primeira coisa q eu quero saber.. quais os códigos q eu coloco para o link PRÓXIMA e ANTERIOR... Obs.: nós usamos esses códigos para fazer chamada de página <a href=index.asp?lcl=func class="linkclaro"><font color="#FFFFFF"><strong>FUNCIONÁRIOS (LISTA)</strong></font></a> e na index q inclue a página <% elseif lcl = "func" then %> <!--#include file="funcionarios/func.asp"--> daí ele abre essa func.asp... que tá listando todos os usuários nela... sem paginação. Tem esse código de paginação q tá no começo da func.asp.
  18. marcelolima

    Paginação...

    uma questão postou marcelolima ASP

    é o seguinte... aqui fizemos um código para colocar uma lista com todos os funcionários... daí, acontece o seguinte... tenho que paginar essa consulta... porque são mais de 100 registros. o código que coloquei é o seguinte: <% dia = day(date) mes = month(date) ano = year(date) '''''''''''''''''''''''''''''''''''''''''''''''''''''''fazendo a paginação !!! :) ' número de registros por página. Const numeroRegistros = 10 ' mapeia o caminho x = Server.MapPath("dados/intranet.mdb") ' cria o objeto Conexão Set Conexao = Server.CreateObject("ADODB.Connection") ' concatena a string do driver com o caminho liga = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& x ' o cursor do objeto Connection deve residir no cliente. ' Isto equivale a dizer que a propriedade CursorLocation ' do objeto connection é igual a adUseClient, ou se não ' quiser utilizar as constantes do arquivo adovbs.inc, ' use o número 3 ao invés de adUseClient. Na verdade, a ' constante adUseClient tem o valor 3 no arquivo adovbs.inc. ' Logo, tanto faz usar adUseClient ou 3, pois adUseClient = 3 Conexao.CursorLocation = 3 'abre a conexão Conexao.Open liga ' cria um recordset Set tabela = Server.CreateObject("ADODB.RECORDSET") ' faz o recordset usar a conexão Set tabela.ActiveConnection = Conexao ' número de registros por página tabela.PageSize = numeroRegistros ' tamanho do cache tabela.CacheSize = numeroRegistros ' carrega a query na string strSQL = "Select * From usuarios order by 2;" ' executa a query tabela.open strSQL ' testa se é a primeira vez If (request.ServerVariables("CONTENT_LENGTH") = "123" ) Then ' se for aponta para a primeira página e guarda que a página atual é a primeira tabela.AbsolutePage = 1 paginaAtual = 1 else ' caso não seja a primeira vez guarda página atual paginaAtual = Cint(Request.Form("CurrentPage")) ' de acordo com a escolha a página é incrementada ou decrementada Select Case Request.Form("enviarecordset") Case "Anterior" paginaAtual = paginaAtual - 1 tabela.AbsolutePage = paginaAtual Case "Próxima" paginaAtual = paginaAtual + 1 tabela.AbsolutePage = paginaAtual End Select End If ' imprime os registros na tela %> alguém pode me dizer se basta q eu coloque um Próximo ou um Anterior funciona esse código que tá bem no começo do arquivo... se não, o que eu tenho q fazer? tnx!!!
  19. marcelolima

    Insert Into

    pergunta respondeu ao marcelolima de marcelolima em ASP

    Agora... funcionou blzinha.. obrigado!
  20. marcelolima

    Insert Into

    pergunta respondeu ao marcelolima de marcelolima em ASP

    Eu prefiro fazer assim, fica mais facil de enxergar possiveis erros. EDITADO: Conf. observação do DARK0 Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E14) [Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na instrução INSERT INTO. /servico/inserindoservico.asp, line 42
  21. marcelolima

    Insert Into

    uma questão postou marcelolima ASP

    toh fazendo uma inclusão no banco de dados.. e tá dando o seguinte erro: o código: 31 Set Rs = Server.CreateObject( "ADODB.Recordset" ) 32 RS.ActiveConnection = Conn 33 Set Rs=conn.execute("insert into servico (data, hora, solicita, area, desc, status) VALUES ( '" & data & "', '" & tempo & "', '" & nome & "', '" & divisao & "', '" & desc & "', '" & stat & "')")
  22. marcelolima
    valeu.. funfou!!!
  23. marcelolima
    OI... pessoal. Estou trabalhando numa página de login... que faz os testes... e se tiver tudo certo, inclusive a senha, ele grava várias Session. Acontece.. que tem uma página que tem admin.asp... na qual só lista as opções para a pessoa... se ele tiver acesso àquilo. Tudo está funcionando.. exceto a parte que trata da solicitação de serviço interno, que só pode ser exibida se o cara for coordenador de área. na login.asp... a parte que armazena a SEssion é: Session("nivel") = Rs("admin") Session("nome") = Rs("nome") Session("nick") = Rs("apelido") Session("logado") = "sim" Session("cursos") = Rs("cursos") Session("func") = Rs("func") Session("evento") = Rs("evento") Session("fotos") = Rs ("fotos") Session("documentos") = Rs ("documentos") Session("divisao") = Rs ("divisao") Quando vou "logar", dá a msg de erro: e a linha da admin.asp que corresponde a essa conexão.. é: 18 Set Rs2 = Server.CreateObject( "ADODB.Recordset" ) 19 RS2.ActiveConnection = Conn 20 Set Rs2=conn.execute("Select * From divisao where div="&Session("divisao")&"") Mas por alguma coisa, ele não tá dando parâmetro nenhum... alguém pode me ajudar?
  24. marcelolima

    Binaryread

    pergunta respondeu ao marcelolima de marcelolima em ASP

    o erro era só o caminho.. mas agora tá beleza.. Obrigado pela ajuda!!!
  25. marcelolima

    Binaryread

    pergunta respondeu ao marcelolima de marcelolima em ASP

    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>
×
×
  • Criar Novo...