cyberalexxx

Junho 19, 2006

Além do email do remetenta você deve também colocar um nome de remetente, ex:

email.from = "blabla@blabla.com.br <Dino da Silva Sauro>"

Junho 19, 2006

Eu uso constantemente e não vejo problemas geralmente uso também 3 includes 2 referentes a layout e 1 de conexão.

Acredito que seja apenas uma requisição, voce chama a pagina asp e servidor anexa os includes, processa e devolve o html.

Junho 19, 2006

tem um Wend sobrando no seu código (está em vermelho):

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Sites\NegociosOffshore\dados\dados.mdb;"
conn.CursorLocation = 3
Set rstGeral = CreateObject("ADODB.Recordset")
%>
<P><TABLE border=0 cellpadding=7 cellspacing=0 align=center>
<%
rstGeral.Open "SELECT * FROM GaleriasFotos WHERE Galeria= " & Request("cod") & " ORDER BY Codigo;", conn
If rstGeral.EOF Then
Response.Write "Nenhum registro encontrado!"
Response.End
Else
If Request("pag") = "" Then
intpagina=1
Else
If cint(Request("pag")) < 1 Then
intpagina=1
Else
If cint(Request("pag")) > rstGeral.PageCount Then
intpagina = rstGeral.PageCount
Else
intpagina = Request("pag")
End If
End If
End If
End If
rstGeral.AbsolutePage = intpagina
intrec=0
While intrec < rstGeral.PageSize And Not rstGeral.EOF
Response.Write("<TR>")
Cont = 0
While Not rstGeral.EOF And Cont < 2
Response.Write("<TH bgcolor=white><A href=""/?sec=" & sec & "&pag=galeria&pg=listafoto&cod=" & rstGeral("Codigo") & """><IMG src=""" & rstGeral("Imagem1") & """ border=0 alt=""" & rstGeral("Descricao") & """></A></TH>")
rstGeral.MoveNext()
Cont = Cont + 1
Wend
If Not rstGeral.EOF Then Response.Write("</TR>")
Wend
If Cont > 0 And Cont < 2 Then
While Cont < 2
Response.Write("<TH bgcolor=white> </TH>")
Cont = Cont + 1
Wend
End If
%></TABLE><%
rstGeral.MoveNext
intrec=intrec+1
If rstGeral.EOF Then
Response.Write " "
End If
Wend
If intpagina > 1 Then
%>
<a href="paginacao.asp?cod=<%=rstGeral("Codigo")%>&pag=<%=intpagina-1%>">Anterior</a>
<%
End If
If strcomp(intpagina,rstGeral.PageCount) <> 0 Then
%>
<a href="paginacao.asp?cod=<%=rstGeral("Codigo")%>&pag=<%=intpagina + 1%>">Próxima</a>
<%
End If
rstGeral.Close()
%>

Junho 19, 2006

numero = 1
response.write right("000"&numero,3)

Junho 19, 2006

da uma olhada nisso aqui:

numero = 1
response.write right("000"&numero,3)

Tendeu??

Junho 19, 2006

Não entendi porque usar uma função, não da pra fazer simplesmente assim (utilizando parte do codigo da andreia_sp)

palavra = "ace"
for i=0 to len(palavra)-1
%>
<img src="<%= CStr(mid(palavra, i+1, 1)) %>.gif">
<%
next

Junho 19, 2006

Olha neste post aqui que tem um exemplo que eu fiz:

http://scriptbrasil.com.br/forum/index.php...ndpost&p=292110

Junho 16, 2006

O ASPUpload é um componente pago, pelo erro apresentado o numero serial da licença é inválido ou pode se tratar de uma versão de avaliação expirada.

Junho 16, 2006

Paginação é simples de fazer, da uma olhada nesse tutorial que eu sempre recomendo:

http://www.aspbrasil.com.br/conteudo/detal...Secao=tutoriais

Junho 16, 2006

de um response.write na variavel sql antes de executa-la para ver se a instrução SQL esta montada corretamente. se mesmo assim tiver duvidas poste a instrução SQL pra gente dar uma olhada.

Junho 14, 2006

vou postar um esqueleto de código v c te ajuda:


Sql = "Select sum(pontos) as total, nome from teste group by nome order by total desc"
set rs = suaconexao.execute(sql)

if not rs.eof then
   valormaximo=rs("total")
   rs.MoveLast
   valorminimo=rs("total")
   rs.MoveFirst
end if

Do while not rs.eof
   response.write rs("nome") & " - " & rs("total") & " pontos"
   if Cint(rs("total")) = Cint(valormaximo) then
      response.write "<img scr='trofeu.gif'/>" & "<br>"
   elseif Cint(rs("total")) = Cint(valorminimo) then
      response.write "<img scr='lanterna.gif'/>" & "<br>"
   else
      respose.write "<br>"
   end if
   rs.movenext
loop

Junho 14, 2006

vou explicar melhor esta pagina é um ranking de um bolão
as pessoas que estiver mais pontos vai entrar uma figura de um trofeu
as que estiverem menos ponto vai entrar um figura de laterna

Vai ter figura para todo mundo ou só para o primeiro e pro último??

Junho 14, 2006

Descubra o numero de registros do recordset: rs_soma.RecordCount

a cada registro lido adicione um valor a uma variavel

exemplo:

registro = 0
do while not rs_soma.eof
   registro = registro + 1
   rs_soma.movenext
loop

verifique se o numero do registro é igual ao ultimo, se for insira a imagem

if rs_soma.RecordCount = registro then
   response.write "<img src='blablabla.gif'/>'
end if

Junho 12, 2006

Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/direitoteste/listar.asp, line 71
800401f3
Tow com a impressão de que esse componente não está instalado naquele servidor...

Realmente tudo indica que o componente não esta instalado, quando ao global.asa ele não é obrigatório.

Junho 7, 2006

Tenta usar Cdbl(variavel) para converter a string para numero

tot_desc = Cdbl(uni_ult_med) + Cdbl(agf_med) + Cdbl(tim_med) + Cdbl(event_med) + Cdbl(dive_med)

Junho 7, 2006

acho que aqui é a mesma duvida, da uma olha na lógica que eu postei pra ver c te ajuda

http://scriptbrasil.com.br/forum/index.php...ndpost&p=353678

Junho 6, 2006

Lógica:

<%
Response.write "<table>"
response.write "<tr>"
response.write "<td>"
for x = 1 to 9
   response.write x
   if x mod 3 = 0 then
      response.write "</td><td>"
   else
      response.write "<br>"
   end if
next
response.write "</td>"
response.write "</tr>"
response.write "</table>"
%>

Maio 31, 2006

Tem uma pagina de busca que eu fiz com paginação em Mysql da uma olhada:

<style type='text/css'>
a:link, a:visited, a:active { text-decoration: underline; color: #000 }
a:hover { color: #465584; text-decoration:underline }
tr { background-color: #E4EAF2; font-color: #465584; font-family:Arial; font-size:12 }
.erro { color: red; font-size:14; font-family:verdana; font-weight:bold }
.titulo { color: blue; font-size:10; font-family:verdana; font-weight:bold }
.sub { color: red; font-size:10; font-family:verdana; font-weight:bold }
.barra { color: black; font-size:10; font-family:verdana; font-weight:bold }
</style>

<%
'titulo do sistema
response.write"<p class='titulo'>Biblia Online - Versão de Demonstração<br>"
response.write"Banco de Dados MySql<br>"
response.write"<a href='pesquisa.asp'>[pagina principal]</a></p>"

'recuperando dados de pagina
if request.QueryString("pagina") = "" then
   pagina=1
else
   pagina = Request.QueryString("pagina")
end if
session("palavra") = Trim(request("palavra"))
if session("palavra") = "" then
   response.write "<p class='erro'>Nenhum critério de busca foi informado</p>"
   response.end
end if
rodape=false

'informando o numero de registros por pagina
tam_pagina = 20

'cria conexão com o Banco de Dados
set objconn = Server.CreateObject("ADODB.Connection")
objconn.Open "Driver={mySQL}; Server=localhost; Port=3306; Option=0; Socket=; Stmt=; Database=biblia; Uid=root; Pwd=xxxxxxx;"
SET objRS = Server.CreateObject("ADODB.Recordset")
SET Cont = Server.CreateObject("ADODB.Recordset")

'separa palavras (busca com varias palavras) e cria as instruções SQL
busca=split(session("palavra"),chr(32))
dim onde
if request("cont")<>"s" then
for x = 0 to Ubound(busca)
   if x > 0 then
      onde=onde + " and "
   end if
   pesq=busca(x) 
   pesq = ""&pesq&""
   onde=onde+"texto like '%" & pesq & "%'"
next
   session("sql") = "select * from texto where " & onde & " order by cdigo"
   session("sqlc") ="select count(texto) from texto where " & onde & " order by cdigo"
end if

'abre o recordset e verifica se existem registros
cont.Open session("sqlc"),objconn
If Cint(Cont.Fields(0)) = 0 Then
   Response.Write("<p class='erro'>Nenhum registro foi encontrado</p>")
   response.end
else
   quant_reg = Cint(Cont.Fields(0))
end if

'calcula o numero de paginas
if quant_reg > tam_pagina then
   total_paginas = quant_reg/tam_pagina
   if (cint(total_paginas)*tam_pagina) < quant_reg then
      total_paginas = total_paginas+1
   end if
else
   total_paginas = 1
end if

'função que mostra a barra de navegação
function barra()
   if rodape=false then
     Response.Write("<p class='sub'>Foram encontrados " & quant_reg & " registros")
     Response.Write("<br>Mostrando página" & pagina & " de " & FormatNumber(total_paginas,0) & "" & "<br>")
   else
     response.write "<p class='sub'>" 
   end if
     
   If CInt(pagina) > 1 Then
        Response.Write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?cont=s&palavra=" & request("palavra") & "&pagina=" & pagina-1 & "'>Anterior</a>"&" "&"</b>")
     Else
        Response.Write("<class='barra'>Anterior ")
     End If

     inicio=Cint(pagina)-9
     fim=Cint(pagina) + 9
     for i = inicio to fim
        if i <> CInt(pagina) and i > 0 and i <= total_paginas then
           response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?cont=s&palavra=" & request("palavra") & "&pagina=" & i & "'>" & i & "</a> ")
        elseif i=Cint(pagina) then
           response.write " [<b>" & pagina & "</b>] "
        end if
     next

    If CInt(pagina) < total_paginas Then
       Response.Write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?cont=s&palavra=" & request("palavra") & "&pagina=" & pagina+1 & "'>Próxima</a></b></FONT></center>")
    Else
       Response.Write("Próxima<br><br>")
    End If
    if rodape=true then
       response.end
    end if
end function

barra() 'nostra barra de navegação

'posiciona o cursor na pagina desejada e abre o recordset
if pagina = 1 then
   Inicio = 0
else
   Inicio=((Cint(pagina)-1)*Cint(tam_pagina))
end if
sql = session("SQL") & " LIMIT " & Cint(Inicio) & "," & Cint(tam_pagina)
objRS.Open SQL,objconn

'mostra os dados
response.write "<br><table>"
i=0
Do While Not objRS.EOF 
   resultado=objRs.fields("texto")
   for x = 0 to Ubound(busca)
      color="<font color=blue>"&busca(x)&"</font>"
      resultado=replace(resultado,""&Lcase(busca(x))&"",""&color&"")
      busca4=Ucase(left(busca(x),1))
      b=Lcase(right(busca(x),len(busca(x))-1))
      busca2=busca4&b
      color="<font color=blue>"&busca2&"</font>"
      resultado=replace(resultado,""&busca2&"","<b>"&color&"</b>")
   next
   response.write "<tr><td><a href='" & "result.asp?livro=" & objRS.fields("Livro") & "&cap=" & objRS.fields("Capitulo") & "&ver='>" & objRS.fields("Livro") & "," & objRS.fields("Capitulo") & "," & objRS.fields("Versiculo") & "</td><td>" & resultado & "</tr>"
   objRS.MoveNext
   i=i+1
Loop%>
</table>
<%
rodape=true
barra() 'exibe barra de navegação

'fecha e destroi conexões
objRS.Close : objconn.Close
Set RS = Nothing : Set objconn = Nothing
SQLC.close : set SQLC = nothing
%>

Maio 24, 2006

No primeiro Session.LCID voce colocou o valor de 1046 mais o correto é 1033, primeiro voce monta a instrução SQL no formato americano, depois voce muda para o formato brasileiro para exibir os dados

Maio 23, 2006

Caso você utilize access vou deixar aqui um exemplo que evita problemas em busca entre datas:

anoi=year(Request.Form("DATA1"))
mesi=month(Request.Form("DATA1"))
diai=day(Request.Form("DATA1"))

anof=year(Request.Form("DATA2"))
mesf=month(Request.Form("DATA2"))
diaf=day(Request.Form("DATA2"))

Session.LCID=1033

ComandoSQL = "SELECT * FROM OS WHERE DATA BETWEEN #" & DateSerial(anoi,mesi,diai) & "# and #" & DateSerial(anof,mesf,diaf) & "# ORDER BY DATA ASC"

Set bd = Conexao.Execute(ComandoSQL)

Session.LCID=1046

Maio 22, 2006

O primeiro passo é aprender a fazer uma paginação, aqui vai um bom tutorial:

http://www.aspbrasil.com.br/conteudo/detal...Secao=tutoriais

Maio 15, 2006

supondo que voce queira somar os totais de cada usuário voce faria assim:

Select sum(valor) as total, usuario, codigo from debitos group by usuario

Maio 15, 2006

qual o método de upload (com ou sem componente)??

Se for com componente, qual??

Maio 10, 2006

tenta assim:

<%
Data_inicial = Cdate("05/05/2006")
Data_final = Cdate("05/06/2006")
dias = (data_final - data_inicial) + 1
data =  data_inicial
dias_uteis = 0
sabados = 0
domingos = 0
for x = 1 to dias
    if weekday(data) = 7 then
        sabados = sabados + 1
    end if
    if weekday(data) = 1 then
        domingos = domingos + 1
    end if
    data = data + 1
next
response.write "Total de Dias entre o período: " & dias & "<br>"
response.write "Numero de Sábados: " & sabados & "<br>"
response.write "Numero de Domingos: " & domingos & "<br>"
response.write "Numero de dias uteis: " & dias - sabados - domingos
%>

Maio 8, 2006

Javascript!!

Quer que eu mova pra lá???

Entrar

cyberalexxx

Total de itens

Registro em

Última visita

Tipo de Conteúdo

Perfis

Fóruns

Posts postados por cyberalexxx

Lixo Eletronico

Include File

Galeria De Fotos Com Paginacao

Numero

PaginaÇÃo

Função Para Trocar Letras Por Imagens

Arquivo Txt

Asp Upload

Galeria De Fotos Com Paginacao

Erro Update

Ultimo Registro

Ultimo Registro

Ultimo Registro

Global.asa

Somar..

Exibir Resultados Em Coluna

PaginaÇÃo

Cyberalexxx

Data

Data

Ajuda Com Sistema De Busca

Selecionando Mais De Um Campo...

Validação

Sab/dom

Função

Navegação

Atividades