Ir para conteúdo
Fórum Script Brasil

Mateustg

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    382

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Mateustg

  1. Como habilito o upload de arquivos grandes no ASP clássico no IIS?

    em ASP

    Postado

    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. Envio de Email

    em ASP

    Postado

    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?

  3. Envio de Email

    em ASP

    Postado

    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. SELECT DISTINCT

    em ASP

    Postado

    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. último registro

    em ASP

    Postado

    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. Comparação data

    em ASP

    Postado

    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. Listar 1 item

    em ASP

    Postado

    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. Listar 1 item

    em ASP

    Postado

    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. sistema icq

    em ASP

    Postado

    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. Select

    em ASP

    Postado

    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?

  12. Select

    em ASP

    Postado

    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. Exportação Entre Bds

    em Access

    Postado

    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. Que Erro é Esse?

    em ASP

    Postado

    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. Banner Rotativo

    em ASP

    Postado

    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:

  18. Listar Dados A Partir Do 2 Item

    em ASP

    Postado

    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

  20. Delete

    em ASP

    Postado

    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. Zoom Em Mapa

    em Flash & ActionScript

    Postado

    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. Formatação De Data

    em ASP

    Postado

    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. Lista Numerica

    em ASP

    Postado

    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?

  25. Bloqueio De Acesso

    em ASP

    Postado

    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!

×
×
  • Criar Novo...