Ir para conteúdo
Fórum Script Brasil

Rafael Spilki

Veteranos
 Perfil  Explorar Conteúdo

  • Total de itens

    1.583

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Rafael Spilki

  1. (Resolvido) Caminho do Servidor

    em ASP

    Postado

    mas como duas linhas de tres colunas se so tem tres campos?

    imagem - nome - descricaop

    faz assim:

    considerando a tabela:

    L1C1 | L1C2 | L1C3

    L2C1 | L2C2 | L2C3

    sabendo-se que L= LINHA e C = COLUNA

    disponha aqui pra mim os campos do bd da seguinte forma:

    L1C1 = imagem

    L1C2 = nome

    ok?

    e os outros campos da tabela? é pra ignorar eles?

    []'s

  3. (Resolvido) Caminho do Servidor

    em ASP

    Postado

    mas che... pra isso você não precisa paginação não... vamos ver aqui algumas coisas:

    Eu preciso de um script que apenas me mostre os produtos que estão cadastrados na base mas que sejam impressos na tela da seguinte forma, últimos 6 produtos cadastrados divididos em 2 linhas de 3 colunas com nome e valor embaixo, isso pra eu não ter que usar um html e ter que modificar todas quando forem alteradas.

    divididos em duas linhas de três colunas, ok! mas quais campos você tem no bd?

    com nome e valor embaixo? como se fosse um total?

    tenta nmostrar aqui pra mim como você gostaria dessa tabela que eu te ajudo, ok? não esquece de postar os campos que você tem no bd... apenas os que você gostaria de imprimir em tela... faz tipo assim:

    imprimir em tela:

    Campobd1 | campobd 2 | campobd3

    Campobd4 | campobd5 | campobd6

    sacou?

    []'s Rafael SPilki

  4. Paginação não funciona

    em ASP

    Postado

    Legionariors, aqui o codigo é o mesmo do outro tópico (problema conexão com o bd) certo?

    Esse erro aí que você postou continua aparecendo?

    Posta o código na posição atual que vou te ajudar aqui com a logica da sua paginação, que como te disse no outro tópico acho que está estranha... certo?

    Só lembre de ter atualizado aqui a conexão com o bd tb!

    fico no aguardo...

    []'s Rafael Spilki

  5. (Resolvido) Caminho do Servidor

    em ASP

    Postado · Editado por Rafael Spilki

    Cara... tem algum problema na logica da sua paginação...

    Primeiro assim, se não está vindo de um form antecessor não tem por que chamar as variáveis por request.querystring...

    Além disso se é uma pagina "de capa do site" como você disse, não precisa checar em que pagina você está porque sempre vai estar na primeira página...

    O problema agora é exclusivamente na logica da sua paginação... terás que repensar isso, ok?

    []'s Rafael Spilki

  6. Como gerar categorias e subcategorias?

    em ASP

    Postado

    uhm, deixa eu ver se entendi... você quer que depois de selecionar determinada opção no "list/menu1" apareça no "list/menu2" as opções que estão relacionadas com o "list/menu1"? é isso?

    tipo escolhe a opção a no list/menu1 daí no list/menu2 aparecem as opções: a1, a2, a3, a4...

    Confirma isso pra mim, ok?

    []'s Rafael Spilki

  7. (Resolvido) Caminho do Servidor

    em ASP

    Postado

    Legionariors, td beleza?

    Cara, assim chê...testa esse codigo abaixo ok? Depois posta aqui os resultados, certo?

    <%
Dim conexao, objConn, rsBuscaProdutos, strBuscaProdutos, caminho
strBuscaProdutos = "SELECT TOP 6 * FROM produtos ORDER BY Rnd(Int(Now()*[cat_id])-Now()*[id])"

SET objConn = Server.CreateObject("AdoDB.Connection")
objConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\Inetpub\vhosts\site.com.br\banco\loja.mdb"

Set rsBuscaProdutos = objConn.Execute(strBuscaProdutos)

if rsBuscaProdutos.eof then
    Mensagem = "Nenhum Registro Encontrado"
    Response.End
else
    'Definimos em qual pagina o visitante está
    if rsBuscaProdutos("pagina")="" then
        intpagina = 1
    else
        if cint(rsBuscaProdutos("pagina"))<1 then
            intpagina = 1
        else
            if cint(rsBuscaProdutos("pagina"))>rsBuscaProdutos.PageCount then  
                intpagina = rsBuscaProdutos.PageCount
            else
                intpagina = rsBuscaProdutos("pagina")
            end if
        end if  
    end if  
%>
<html>
    <head>
        <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
        <title></title>
    </head>
    
    <body>
        <br>
            <font face="verdana" size="2" color="black">
                <b>Confira alguns destaques de nossa loja...
            </font>
            <table width="780" border="0" cellspacing="0" cellpadding="0">
                  <tr>
<%
    'Iniciamos o Loop
    rsBuscaProdutos.AbsolutePage = intpagina
    intrec = 0
    q = 0
    While intrec<rsBuscaProdutos.PageSize and not rsBuscaProdutos.eof
        q = q + 1
%>
                    <td width="567">
                        <center>
                            <img src=./images/<%=rsBuscaProdutos("imagem")%> width="150" height="150" border=0 style="border:0;position:relative; left:12; top:19;"></a>                        
                            <br>
                              <font face="verdana" size="2" color="black">
                                <b><br><br><%=rsBuscaProdutos("nome")%>
                            <font face="verdana" size="2" color="Red"><br>
                                <%="R$: "%>
                                <%=rsBuscaProdutos("preço")%>,00
                                <br><br><br><br>
                            </font>
                    </td>
<%
        rsBuscaProdutos.MoveNext
        if q = 3 and not rsBuscaProdutos.eof then
            response.write "</tr><tr>"
            q = 0
        End If
        intrec = intrec + 1
    Wend
%>
                </tr>
            </table>
<%
end if    
rsBuscaProdutos.Close
Set rsBuscaProdutos = nothing
%>
    </body>
</html>

    fico no aguardo.

    []'s Rafael Spilki

  8. Busca interna

    em ASP

    Postado

    Mas aí é que tá Carvalho... se tu vais gastar horas do tempo fazendo qualquer tipo de programação, porque não faz de uma forma mais robusta e eficiente, utilizando um banco de dados?

    Podes utilizar bancos mysql ou talvés até access mesmo...

    Acho que crias desta forma uma solução mais definitiva, entendes? não é ma vontade... mas é que sei que você terá que peogramar horas para fazer uma "gambiarra" por metatags, ou tags... talvés com as mesmas horas consiga fazer um app utilizando banco de dados onde seus documentos ficaram muito mais organizados, e suas pesquisas poderão ser muito mais precisas, detalhadas e abrangentes...

    Poderia sugerir ainda que fizesse isso em um servidor na web, desta forma com um nome de usuário e uma senha, de qualquer lugar do mundo você poderá ter acesso aos seus documentos...

    Mais negócio, não?

    Me digas o que achas, conforme sua resposta posso lhe indicar caminhos diferentes para pesquisas... derepente posso lhe direcionar para alguns tipos de apostilas / tutoriais ou outro... mas se me pedires minha opinião pessoal fico com banco de dados e era isso!

    []'s Rafael Spilki

  12. (Resolvido) Caminho do Servidor

    em ASP

    Postado

    como assim? não é um formulário?

    porque tipo você ta chamando todas as variaveis assim:

    'Definimos em qual pagina o visitante está
    if Request.QueryString("pagina")="" then
        intpagina = 1

    significa que deveria estar mandando pelo metodo GET se não dará erro...

    faça o seguinte: poste aqui o codigo da página que antecede esta daqui...

    []'s Rafael Spilki

  17. (Resolvido) Caminho do Servidor

    em ASP

    Postado

    acho que era isso:

    <%
Dim conexao, objConn, rsBuscaProdutos, strBuscaProdutos, caminho
strBuscaProdutos = "SELECT TOP 6 * FROM produtos ORDER BY Rnd(Int(Now()*[cat_id])-Now()*[id])"

SET objConn = Server.CreateObject("AdoDB.Connection")
objConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\Inetpub\vhosts\site.com.br\banco\loja.mdb"

Set rsBuscaProdutos = objConn.Execute(strBuscaProdutos)

if rsBuscaProdutos.eof then
    Mensagem = "Nenhum Registro Encontrado"
    Response.End
else
    'Definimos em qual pagina o visitante está
    if Request.QueryString("pagina")="" then
        intpagina = 1
    else
        if cint(Request.QueryString("pagina"))<1 then
            intpagina = 1
        else
            if cint(Request.QueryString("pagina"))>rsBuscaProdutos.PageCount then  
                intpagina = rsBuscaProdutos.PageCount
            else
                intpagina = Request.QueryString("pagina")
            end if
        end if  
    end if  
%>
<html>
    <head>
        <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
        <title></title>
    </head>
    
    <body>
        <br>
            <font face="verdana" size="2" color="black">
                <b>Confira alguns destaques de nossa loja...
            </font>
            <table width="780" border="0" cellspacing="0" cellpadding="0">
                  <tr>
<%
    'Iniciamos o Loop
    rsBuscaProdutos.AbsolutePage = intpagina
    intrec = 0
    q = 0
    While intrec<rsBuscaProdutos.PageSize and not rsBuscaProdutos.eof
        q = q + 1
%>
                    <td width="567">
                        <center>
                            <img src=./images/<%=rsBuscaProdutos("imagem")%> width="150" height="150" border=0 style="border:0;position:relative; left:12; top:19;"></a>                        
                            <br>
                              <font face="verdana" size="2" color="black">
                                <b><br><br><%=rsBuscaProdutos("nome")%>
                            <font face="verdana" size="2" color="Red"><br>
                                <%="R$: "%>
                                <%=rsBuscaProdutos("preço")%>,00
                                <br><br><br><br>
                            </font>
                    </td>
<%
        rsBuscaProdutos.MoveNext
        if q = 3 and not rsBuscaProdutos.eof then
            response.write "</tr><tr>"
            q = 0
        End If
        intrec = intrec + 1
    Wend
%>
                </tr>
            </table>
<%
end if    
rsBuscaProdutos.Close
Set rsBuscaProdutos = nothing
%>
    </body>
</html>

    Poste aqui os resultados...

    []'s Rafael Spilki

  18. (Resolvido) Caminho do Servidor

    em ASP

    Postado

    rsssssssssss... nada... eu que comi mosca aqui... na real me perdi um pouco... onde estávamos mesmo?!?

    Me desculpa aí que fazer assim rapidão de vez em quando da nisso...

    faz um favor... posta aí como está o seu codigo agora ok?

    já vamos matar essa dai!

    []'s Rafael Spilki

  19. (Resolvido) Caminho do Servidor

    em ASP

    Postado

    como a conexão já está aberta acredito que possa tirar as partes com aspas simples abaixo... no entanto as aspas simples são um ótimo caminho para fazer testes... portanto teste da forma abaixo:

    'Set rsBuscaProdutos = Server.CreateObject("ADODB.Recordset")
strBuscaProdutos = "SELECT TOP 6 * FROM produtos ORDER BY Rnd(Int(Now()*[cat_id])-Now()*[id])"
'rsBuscaProdutos.open strBuscaProdutos, conexao, 3, 3

    []'s Rafael Spilki

  20. Problema na busca de uma data específica

    em ASP

    Postado

    Acontece...

    acredito que pra formatar a sua data nesse formato você pode fazer assim:

    dim data
data = Cdate(year (data_entrega) &"/"& month (data_entrega) &"/"& day(data_entrega))
    no select, faça assim: 
    rs.Open "SELECT * FROM Agenda WHERE DataEntrega=#" & data & "#", Conn, 3, 3

    sacou?

    posta aí os resultados, ok?

    []'s Rafael Spilki

  21. (Resolvido) Caminho do Servidor

    em ASP

    Postado

    troca ali a forma de abrir a sua conexão:

    no seu codigo esta assim:

    caminho = Server.MapPath("banco/loja.mdb")
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&";"
    troque por: 
    SET objConn = Server.CreateObject("AdoDB.Connection")
objConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\Inetpub\vhosts\seusite.com.br\banco\loja.mdb"
    ou 
    SET conexao = Server.CreateObject("AdoDB.Connection")
conexao.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\\Inetpub\\vhosts\\seusite.com.br\\banco\\loja.mdb"

    []'s Rafael Spilki

  22. ERRO NA INCLUSÃO DE REGISTROS

    em ASP

    Postado

    mas estão ocorrendo vários loops antes do seu insert ser executado... não seria esse o objetivo? qual o objetivo desse loops?

    for i=0 to total
x2=""
x3=""
for i2=lbound(camp) to i
x5=trim(val(i2))
if x5="" then x5=0
if x5="''" then x5="'0'"
x2=x2&camp(i2)&","
x3=x3&x5&","
x4=camp(i2)

x2=x2
x3=x3


next

if right(x2,1)="," then
x2=left(x2,(len(x2)-1))
end if

if right(x3,1)="," then
x3=left(x3,(len(x3)-1))
end if

sql=strINS&trim(x2)&strx2&trim(x3)&strx

SET rsSQL = conexaoDB.EXECUTE(sql)
    além disso coloca uma ' aspas simples temporariamente nesse on error resume next aí pra ter certeza que não esta aparecendo erro nenhum: 
    CALL AbreConexao
'on error resume next

×
×
  • Criar Novo...