Jump to content
Fórum Script Brasil

Mateustg

Membros
  • Posts

    382
  • Joined

  • Last visited

Everything posted by Mateustg

  1. Tenho um sistema de upload em ASP Clássico. Consigo fazer upload de até 200KB sem problemas, mas quanto tento um tamanho maior ocorre o erro: Request object error 'ASP 0104 : 80004005' Operation not Allowed /admin/freeaspupload.asp, line 101 Vi que preciso ajustar o arquivo web.config no servidor de hospedagem (godaddy), então coloquei da forma abaixo, mas mesmo assim o erro continua. <?xml version="1.0" encoding="UTF-8"?> <configuration> <system.web> <customErrors mode="Off"/> <httpRuntime maxRequestLength="2147483647"/> <sessionState timeout="1600" /> </system.web> <system.webServer> <httpRedirect enabled="false" destination="" exactDestination="true" httpResponseStatus="Permanent" /> <httpErrors errorMode="Detailed"> <remove statusCode="403" subStatusCode="-1" /> <remove statusCode="404" subStatusCode="-1" /> </httpErrors> <security> <requestFiltering> <requestLimits maxAllowedContentLength="2147483647"/> </requestFiltering> </security> </system.webServer> </configuration> Alguém para me ajudar por favor?
  2. Mateustg

    Envio de Email

    Tenho o seguinte script que faz envio de email: <%@ LANGUAGE="VBSCRIPT" %> <% dim html, nome, assunto, telefone, mensagem nome = Trim(Request.Form("nome")) email = Trim(Request.Form("email")) assunto = Trim(Request.Form("assunto")) telefone = Trim(Request.Form("telefone")) mensagem = Trim(Request.Form("mensagem")) response.Write(nome) set mail = server.createobject("cdonts.newmail") mail.from = "Pedido de orçamento do Divulga Sete <[email protected]>" 'mail.From = Request.Form("email") Mail.To = " "&email&" " 'Mail.Bcc = "[email protected]" Mail.Subject = "Formulário de Contato On-line" html = "Formulário de contato via Web" + "<br />" + "<br />" html = html + "<strong>Nome: </strong>" + nome + "<br />" html = html + "<strong>Telefone: </strong>" + Request.Form("telefone") + "<br />" html = html + "<strong>E-mail: </strong>" + Request.Form("email") + "<br />" html = html + "<strong>Comentario: </strong>" + Request.Form("mensagem") + "<br />" response.Write(nome) Mail.BodyFormat = 0 Mail.MailFormat = 0 Mail.Body = html Mail.Send Set Mail = Nothing response.redirect "obrigado.html" %> <body> </body> </html> O único problema é que quando tento o envio para o Yahoo ele não recebe, outros emails todos receberam normal. O que posso fazer para o yahoo receber?
  3. Mateustg

    Envio de Email

    Boa tarde, Tenho um formulário no meu site para solicitação de orçamentos, porém meu servidor só me dá opção de colocar o meu email de domínio para envio e eu quero pegar o email de um cliente que está armazenado no BD e mandar este para ele, e assim conforme cada cliente o orçamento tem que ser encaminhado para ele. Como posso fazer envio de emails para pessoas distintas?
  4. Mateustg

    SELECT DISTINCT

    Gostaria de saber se e possível fazer o seguinte: Tenho a seguinte tabela abaixo e faço um SELECT DISTINCT para apresentar a empresa que foi pesquisada ou por título, palavra chave e/ou descrição, porém se houver dois registros com categorias diferentes ele apresenta os dois e na verdade preciso que ele mostre apenas o da categoria 1, eliminando a 6 da listagem. Exemplo Tabela: Title | Palavrachave | Description | Categoria | ______________________________________________________ | Empresa 1 | Idiomas | escola de idiomas | 1 | Empresa 2 | informatica | tecnologia | 1 | Empresa 3 | Idiomas | escola de idiomas | 6 | Empresa 4 | teste | teste | 1 | ______________________________________________________ Meu Select: SELECT DISTINCT tblWebsites.* FROM tblWebsites WHERE (Title LIKE '%idiomas%') OR (Palavrachave LIKE '%idiomas%') OR (Description LIKE '%idiomas%') ORDER By Rating DESC, No_of_ratings DESC, Hits DESC;
  5. Mateustg

    último registro

    Estou com um projeto que tem vários códigos em uma tabela. Ex.: ID | COD 1 | 1000 2 | 1000 3 | 1000 4 | 1000 5 | 1000 Fiz um método para gravar o COD e ir ao próximo registro em branco e se o próximo estiver realmente em branco irá aparecer um botão CADASTRAR, mas caso já tenha todos sido preenchidos quero que apareça um botão ESGOTADO. Consegui chegar ao último registro, mas não consigo comparar se ele é o último registro para aparecer o botão esgotado. Meu select para listagem dos dados é: strSQL1 = "SELECT TOP 1 * FROM tblCUPONS WHERE IDSITES = "& intSiteIDNo &" ORDER BY COD DESC" Alguém pode me dar uma luz para este caso?
  6. Mateustg

    Comparação data

    Galera me ajudem... Tenho uma data armazenada no DB Access (lá ele está com formato de data/hora, mas para gravar só a data), quero pegar esta data e comparar se é ou não igual a data atual. Fiz assim: rscupom("DATA") = ""&date()&"" Porém não dá certo, mas se eu fizer assim (comparando a data como texto) ele aceita rscupom("DATA") = "21/01/2016" Mas preciso comparar sem ser texto, como posso fazer?
  7. Mateustg

    Listar 1 item

    Galera consegui resolver aqui. Se servir para alguém a solução foi fazer o seguinte no select: strSQL = "SELECT TOP 1 * From tblCUPONSCONSULTA WHERE USER_ID IS NULL and IDSITES = " & intSiteIDNo & " " Acrescentei USER_ID IS NULL e resolveu
  8. Mateustg

    Listar 1 item

    Olá a todos, Bem eu tenho uma tabela com cód. da empresa, códigos de cupom e cód. do usuário. Ex: Empresa | Cupom | Usuário 1000 | AAA | Pedro 1000 | BBB | 1234 | XXX | Paulo 1000 | CCC | Quero listar o 1º cód. de cupom que não tem um usuário informado e se for acrescentado 1 usuário nele ele passa a listar o próximo cód. que estiver vazio até acabar. Já consegui fazer listar os registros vazios porém todos e não consigo apenas o 1º. Está aparecendo BBB CCC Fiz da seguinte forma: Set rsGetsites = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * From tblCUPONSCONSULTA WHERE IDSITES = " & intSiteIDNo & ";" rsGetsites.CursorType = 2 rsGetsites.LockType = 3 rsGetsites.Open strSQL, strCon set rsGetsites = adoCon.Execute(strSQL) <% Do while not rsGetsites.eof If isNull(rsGetsites("USER_ID")) then Response.Write vbCrLf & "<b>" & rsGetsites("COD") &"</b><BR>" End IF rsGetsites.MoveNext loop %> Ele lista todos os cupons quando usuário está vazio, porém como disse preciso que liste apenas o 1º cupom e se este for utilizado ai passa para o segundo cupom e assim por diante. Deveria sair BBB apenas.
  9. Mateustg

    sistema icq

    Olá...baixei um sistema de ICQlist ele em sua maioria funciona perfeitametne, só da erro quando tento logar com o usuário q criei. Aparece o seguinte erro: Microsoft OLE DB Provider for ODBC Drivers error '80040e10' [Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1. /MSN/membro.asp, line 17 a linha 17 segue abaixo: 13 - Sub LoginFRM 14 - Dim frmUIN, frmSenha 15 - frmSenha=Replace(Request.Form("senha"),"'","''") 16 - frmUIN=Replace(Request.Form("uin"),"'","''") 17 - rsMembro.Open "Select ID, Senha From membros Where UIN="& frmUIN &"", Conexao
  10. Mateustg

    Select

    mandei, mas quando escolho a opção 1 do select option, ele não mostra a imagem, simplesmete ele tenta abrir uma página de nome 1..ele está retornando somente o value do item q escolhi na página...quero que ele retorne a imagem na mesma página que é a página userview.asp....deu pra entender?
  11. Mateustg

    Select

    certo, mas agora como faço para mostrar a imagem do id 1 do meu banco de dados?
  12. Mateustg

    Select

    Olá, Estou fazendo um select na minha página para retornar um valor: <select name='select' onChange="jumper('self',this,0)" onmouseover='this.focus()' style="background-color: #f8f8f8; font-family: Verdana; font-size: 10; color: #000000"> <option value=''> ----- Usuários ---- </option> <option value='1'>Item 1</option> <option value='2'>Item 2</option> </select> Até ai tranquilo, o que quero agora é fazer um select de um BD onde ele irá pegar o id dentro do bd que for igual a opção escolhida (Ex.: item 1), então ele pegar o value de nº 1. Depois quero q ele pegue uma imagem q tem relação com este id e mostre na miha tela. Se o cara escolher a opção 2 ele retorna a imagem do id 2 do BD...como fazer isto? Tentei assim: img = request.form("select") sql = "SELECT id, imagem FROM fotos WHERE id like 'img'" o que faço?
  13. Olá... Preciso de umja ajuda, eu estou tentanto exportar alguns campos de uma tabela para outra, porém gostaria que ao exportar ele pegasse somente os dados novos, os dados antigos, ele não iria sobrepor, ficando assim somente uma atualização de um banco a outro, isso é possivel??? Mateus :ph34r:
  14. Mateustg

    Que Erro é Esse?

    Tenho uma página que é para mostrar um gráfico, porém quando excuto a mesma ela gera o seguinte erro: Microsoft VBScript runtime error '800a0009' Subscript out of range: '[number: 0]' /microlins/grafico.asp, line 15 A linha 15 é: maior_valor = data(LBound(data)) meu código completo é o seguinte: <% Option Explicit %> <% Const grafaltura = 300 Const graflargura = 600 Const barImage = "img_graf.gif" sub BarChart(data, rotulos , titulo, eixos) Response.Write("<TABLE CELLSPACING=0 CELLPADDING=1 BORDER=0 WIDTH=" & graflargura & ">" & chr(13)) Response.Write("<TR><TH COLSPAN=" & UBound(data) - LBound(data) + 2 & ">") Response.Write("<FONT SIZE=+2>" & titulo & "</FONT></TH></TR>" & chr(13)) Response.Write("<TR><TD VALIGN=TOP ALIGN=RIGHT>" & chr(13)) Dim maior_valor maior_valor = data(LBound(data)) Dim i for i = LBound(data) to UBound(data) - 1 if data(i) > maior_valor then maior_valor = data(i) next Response.Write("<b>" & maior_valor & "</b>-" & "</TD>") Dim largura_percentual largura_percentual = CInt((1 / (UBound(data) - LBound(data) + 1)) * 100) For i = LBound(data) to UBound(data) - 1 Response.Write(" <TD VALIGN=BOTTOM ROWSPAN=2 WIDTH=" & largura_percentual & "% >" & chr(13)) Response.Write(" <IMG SRC=""" & barImage & """ WIDTH=100% HEIGHT=" & CInt(data(i)/maior_valor * grafaltura) & ">" & chr(13)) Response.Write(" </TD>" & chr(13)) Next Response.Write("</TR>") Response.Write("<TR><TD VALIGN=BOTTOM ALIGN=RIGHT><b>0</b></TD></TR>") Response.Write("<TR><TD ALIGN=RIGHT VALIGN=BOTTOM>" & eixos & "</TD>" & chr(13)) for i = LBound(rotulos) to UBound(rotulos) - 1 Response.Write("<TD VALIGN=BOTTOM ALIGN=CENTER>" & rotulos(i) & "</TD>" & chr(13)) next Response.Write("</TR>" & chr(13)) Response.Write("</TABLE>") end sub Dim objConnection, cnpath Set objConnection = Server.CreateObject("ADODB.Connection") cnpath="DBQ=" & server.mappath("bd/cadastro.mdb") objConnection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath Dim SQL SQL = "SELECT Pergunta,Resposta FROM satisfacao" Dim rsResposta, adOpenStatic Set rsResposta = Server.CreateObject("ADODB.Recordset") rsResposta.Open SQL, objConnection, adOpenStatic Dim numRegistros numRegistros = rsResposta.RecordCount Dim VetorResposta(), VetorNomes() Redim VetorResposta(numRegistros) Redim VetorNomes(numRegistros) Dim i for i = 0 to numRegistros-1 VetorResposta(i) = rsResposta("Resposta") VetorNomes(i) = rsResposta("Pergunta") rsResposta.MoveNext next %> <HTML> <BODY> <CENTER> <% BarChart VetorResposta,VetorNomes,"Satisfação dos Alunos - Março/Abril","Alunos" %> </CENTER> </BODY> </HTML> <% rsResposta.Close Set rsResposta = Nothing objConnection.Close Set objConnection = Nothing %> Me ajudem por favor!!!
  15. Mateustg

    Banner Rotativo

    Olá, Tenho um sistema de banner já feito. Gostaria de estar aprimorando ele para que ele exibisse os banners da seguinte maneira: Banner 1 - Banner 2 - Banner 3 - Banner 4 - Banner 5, se a pessoa atualizar, gostaria que aparecessem da seguinte forma => Banner 5 - Banner 1 - Banner 2 - Banner 3 - Banner 4 e se atualiza novamente vem Banner 4 - Banner 5 - Banner 1 - Banner 2 - Banner 3 e dai por diante. Meu código está assim: <%Response.AddHeader "Refresh", "300"%> <!--#include file="conectar.asp"--> <% AbreConexao Sql="SELECT TOP 1 * FROM tblbannerP ORDER BY EXIBICOES, CLIQUES" Set rsMostra = Conexao.Execute(Sql) %> <%if rsMostra("flash")="1" then %><head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <a target="_blank" href="vai.asp?id=<%=rsMostra("id")%>&url=<%=rsMostra("url")%>"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="120" height="60"> <param name="movie" value="<%=rsMostra("banner")%>"> <param name="quality" value="high"> </object></a><%else%><a href="vai.asp?id=<%=rsMostra("id")%>&url=<%=rsMostra("url")%>" target="_blank"><font face="Verdana" size="1"><img alt="<%=rsMostra("alt")%>" src="<%=rsMostra("banner")%>" border="0" width="120" height="60"></font></a><%end if%> <% Sql1 = "UPDATE tblbannerP SET exibicoes = exibicoes + 1 WHERE id = "&rsMostra("id")&" " Conexao.Execute(Sql1) %> o que posso fazer? :ph34r:
  16. Mateustg

    Logon

    Poste seu código aqui para entender melhor!!! Mas você já verificou a validação do form??
  17. Cara, tive um problema destes a um tempo atrás...e resolvi. Dê uma olhada neste link: Notícias - data Espero ter ajudado! :ph34r:
  18. Olá... Tenho um sistema de fotos que exibe as fotos que cadastro em ordem de data...a data mais recente é exibida 1º e segue a ordem. Gostaria de estar fazendo com que o sistema começe a vizualizar a 2ª foto e não a 1ª...ou seja...gostaria que voce lido do BD a partir da segunda data e não da 1ª. Meu código é este abaixo, onde faço a seleção do BD e depois listo a foto e suas descriçoes...como posso fazer com que seje listado do 2º em diante...sumindo só o primeiro item???? If idfotos = "" Then Set rsFotos = Conexao.Execute("SELECT * FROM tblfotos ORDER BY data") If rsFotos.EOF Then Response.Write "Nenhuma categoria encontrada!" Else Response.Write "<div align=""center""><table border=0 cellspacing=""1"" cellspacing=0 width=""190"">" Do while not rsFotos.eof Response.Write "<tr>" contar = 0 Do while contar < 1 and not rsFotos.eof foto=rsFotos("foto") nome=rsFotos("nome") data=rsFotos("data") local=rsFotos("local") cidade=rsFotos("cidade") Response.Write "<td><table width=""190"" border=""0""><tr><td background=""../Atrás do Trio - seu site de baladas e eventos_arquivos/foto.gif"" vAlign=""top"" align=""left"" width=""188"" height=""141""><br>" Response.Write "<a target=""_blank"" href=""default.asp?idfotos="&rsFotos("id")&"""><center><img width=""135"" height=""100"" border=0 src="""&foto&"""></center></a></td></tr>" Response.Write "<tr><td align=""center""><font color=""#000000"" face=""Arial"" size=""2""><b>"&nome&"<b></font><br>" Response.Write "<font color=""#ff0000"" face=""Verdana"" size=""1""><b>Data: </b></font><font color=""#000000"" face=""Arial"" size=""1"">"&data&"</font><br>" Response.Write "<font color=""#ff0000"" face=""Verdana"" size=""1""><b>Local: </b></font><font color=""#000000"" face=""Arial"" size=""1"">"&local&"</font></td></tr></table>" Response.Write "<a href=""java script:na_open_window('win', 'default.asp?idfotos="&rsFotos("id")&"', 0, 0, 500, 500, 0, 0, 0, 1, 0)""><center><img border=0 src=""../Atrás do Trio - seu site de baladas e eventos_arquivos/figuras/saiba.gif""></center></a>" rsFotos.Movenext contar = contar + 1 loop loop Response.Write "</tr></table></div>" Response.Write"</body>" Response.Write"</html>" End if
  19. Mateustg

    Delete

    Cara, vlw mesmo... funcionou beleza!
  20. Mateustg

    Delete

    Olá, Tenho um sistema que mostra alguns itens de mais de uma tabela...fiz assim para listar os dados: listStr = "SELECT TOP 100 p.id, p.title, p.start_date, p.uid, p.uemail, r.uid AS ruid, s.sname, pname, s.status_id, priority_id " & _ "FROM ((problems AS p " & _ "INNER JOIN tblUsers AS r ON p.rep = r.sid) " & _ "INNER JOIN status AS s ON p.status = s.status_id) " & _ "INNER JOIN priority AS pr ON p.priority = pr.priority_id " & _ "WHERE " . . . mas agora quero implementar um delete...sendo que preciso deletar os dados que estão na tabela de "problemas" - (problems), na tabela de "status" e na tabela de "prioridade" - (priority)..como faço isso?
  21. Olá Pessoal, Bem, o caso é o seguinte....tenho imagens de um mapa aki, gostaria de fazer com que a pessoa ao navegar pela imagem do mapa, logo quando ela colocar o mouse em cima do mapa apareça uma lupa e caso a pessoa clicar em algum lugar onde ela estiver passando a lupa, o mapa amplie e depois ela possa fazer voltar ao tamanho normal...na realidade quero fazer o efeito de zoom in e zoom out do próprio flash, porem q apareça no mapa uma lupa e se o cara clicar amplia ou se estiver ampliado desamplia...como faço isso???
  22. Mateustg

    Formatação De Data

    olá...estou usando para formatar a data em meu site o FormatDateTime(rs("data"),2) onde a data fica apresentada assim: 07/03/2006 mas gostaria de exibir somente o dia e mês...sem o ano: 07/03 Ou...na hora q mando gravar a data ele pega o now()...onde pega a data toda completa...talves possa usar outra coisa para pegar só a data? Como faço? o que me sugerem como solução?
  23. Mateustg

    Lista Numerica

    Olá, gostaria de saber como eu faço através de cód. uma lista numerada...ou seja...quando os usuários forem se cadastrando, quero q vá gerando uma lista em ordem númerica...assim: (ex.: se eu tiver 4 usuários aparecerá como abaixo e se um 5º se cadastrar a lista acrescentará automaticamente o nº 5 abaixo do 4) 1 2 3 4 Como faço?
  24. Galera tem como dar um refresh em um script? Eu tenho um sistema de banners...estes banners aparecem na tela que quero quando coloco um script assim: <script LANGUAGE="JavaScript" TYPE="text/javascript" SRC="http://banner.wmonline.com.br/java.php?username=vip1"></SCRIPT> Tem como dar um refresh só nisso?
  25. Mateustg

    Bloqueio De Acesso

    Olá pessoal!!! Dessa vez estou querendo aprender como fazer o seguinte: Eu tenho um sistema de quiz...onde a pessoa loga com o usuário e uma senha...apartir dai ela começa a responder as perguntas....só que eu gostaria de fazer com que a pessoa só respondesse 1 única pergunta, se ela acertar ou errar o sistema sai para tela de logar novamente...até ai sem problema...aqui é que começa, pois quero fazer com que se o cara tentar logar novamente hoje o sistema não permita e de uma msg falando que ele já jogou hoje, ou seja, ele fica bloqueado com o seu ip, podendo jogar somente no outro dia. Quero fazer isso, pois quero fazer uma competição, onde quem obtiver mais pontos no final do mês, ganha um brinde, mas para isso preciso bloquear o ip da pessoa, para que ela não jogue mais do que uma vez por dia...como faço??? Vlw!
×
×
  • Create New...