Mateustg
-
Total de itens
382 -
Registro em
-
Última visita
Sobre Mateustg
- Data de Nascimento 02/03/1980
Mateustg's Achievements
0
Reputação
-
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?
-
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@meuemail.com.br>" 'mail.From = Request.Form("email") Mail.To = " "&email&" " 'Mail.Bcc = "email@email.com.br" 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?
-
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?
-
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;
-
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?
-
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?
-
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
-
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.
-
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
-
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?
-
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?
-
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:
-
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!!!
-
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: