Ir para conteúdo
Fórum Script Brasil

modernel

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    105

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por modernel

  1. Recuperação De Vetor

    em ASP

    Postado

    Galera não estou conseguindo recuperar o valor de um vetor.

    logo no inicio da Hp Asp eu digitei :

    set busca = conn.execute("Select * from fotos where confirma = 0 and usuario = "&session("login"))
I = 0
qtd = Array()
while not busca.eof
redim preserve qtd(I) 
if request.form("r"&busca("cod")) <> 1 then
conn.execute("Delete * from fotos where cod = " & busca("cod"))
end if
If Request.Form("t1-"&busca("cod")&"-"&I) <> "" Then
   x = 1
   qtd(I) = Request.Form("t1-"&busca("cod")&"-"&I)
   If qtd(I) > 0 and qtd(I) <= 10 Then
      preço = 1.00
   ElseIf qtd(I) > 10 and qtd(I) <= 30 Then
      preço = 0.90
   ElseIf qtd(I) > 30 and qtd(I) <= 60 Then
      preço = 0.85
   ElseIf qtd(I) > 60 and qtd(I) <= 100 Then
      preço = 0.79
   ElseIf qtd(I) > 100 and qtd(I) <= 150 Then
      preço = 0.75
   ElseIf qtd(I) > 150 and qtd(I) <= 200 Then
      preço = 0.70
   ElseIf qtd(I) > 200 and qtd(I) <= 300 Then
      preço = 0.68
   ElseIf qtd(I) > 300 Then
      preço = 0.65
   End If
Else
   qtd(I) = 0
   preço = 0
End If
valor = FormatCurrency(Ccur(preço)*qtd(I))
busca.movenext
I = I + 1
wend
end if
    e no local onde eu faço uma consulta e mostra o valor do calculo é o seguinte codigo: 
    <%set busca = conn.execute("Select * from fotos where confirma = 0 and usuario = "&session("login"))%>
<table width="473" border="0" cellspacing="0" cellpadding="0">
<% if not busca.eof then%>
<form name="frm" method="post">
<% 
I = 0
qtd = Array()
while not busca.eof
redim preserve qtd(I) %>
<tr valign="top" bgcolor="#F8F8F8">
<td width="150" height="128" align="center"><div align="center"><img src="img.asp?a=<%=busca("usuario")%>-<%=busca("cod")%>.jpg" vspace="5"><br>
 <input name="r<%=busca("cod")%>" type="checkbox" value="1" checked>
<span class="style14">Revelar</span></div></td>
<td width="190" height="128" align="left" valign="middle"><span class="style6 style4">Tamanho:</span>
 <table width="185" height="32" border="0" cellpadding="0" cellspacing="0">
<tr align="left">
 <td width="34" height="30"><input name="t1-<%=busca("cod")%>-<% =I %>" type="text" class="textbox"size="3" value="<% =qtd(I) %>"></td>
<td width="151" height="30"><span class="style14">
<% If x = 1 Then %> 
10 x 15 - 
 <% =valor %>
<% else %>
10 x 15
<% end if %>
</span></td>  
</tr>
<tr align="left">
<td height="30"><input name="t2-<%=busca("cod")%>-<% =I %>" type="text" class="textbox" size="3" value="<% =qtd1 %>"></td>
<td height="30"><span class="style14">
 <% If y = 1 Then %> 
 13 x 18 - 
 <% =valor1 %>
<% else %>
13 x 18
 <% end if %>
</span></td>      
</tr>
</table></td>
<td width="133" height="128" align="left"><span class="style4 style6">Superf&iacute;cie:</span>
<table width="121" height="36" border="0" cellpadding="0" cellspacing="0">
<tr align="left">
<td width="26" height="16"><input name="papel<%=busca("cod")%>" type="radio" value="1"></td>
<td width="95" height="16" class="style14"> Fosca</td>
</tr>
<tr align="left">
<td height="16"><input name="papel<%=busca("cod")%>" type="radio" value="2" checked></td>
<td height="16" class="style14">Brilhante</td>
</tr>
</table>
<br>
<span class="style4 style6">Borda:</span>
 <table width="121" height="32" border="0" cellpadding="0" cellspacing="0">
<tr align="left">
<td width="26" height="16"><input name="borda<%=busca("cod")%>" type="radio" value="1"></td>
<td width="95" height="16" class="style14"> Com borda </td>
</tr>
<tr align="left">
<td height="16"><input name="borda<%=busca("cod")%>" type="radio" value="0" checked></td>
<td height="16" class="style14">Sem borda </td>
</tr>
</table></td>
</tr>
<%
busca.movenext
I = I +1
wend %>
<tr>
 <td height="30" valign="middle" align="center" colspan="3">
<% If x = 1 or y = 1 then %>
<span class="style6 style4">Total: 
<% =FormatCurrency(total) %></span>
<% else %>
<span class="style6 style4">Digite a quantidade que deseja de cada foto.</span>
<% end if%>
</td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
 <td height="30" valign="middle" align="center" colspan="3">
<input onclick="javascript:window.location='arquivos.asp';" name="Submit" type="button" class="textbox" value="Voltar">
 &nbsp;&nbsp;&nbsp;&nbsp;
<input name="Submit" type="button" onClick="atualizar();" class="textbox" value="Atualizar">
&nbsp;&nbsp;&nbsp;
 <input name="Submit" type="button" onClick="confirmar();" class="textbox" value="Próximo Passo">
</td>
</tr>
</table>

    oque me acontece é que, embora esteja usando um vetor, se eu tenho 2 registro para mostrar, na hora que eu digito a quantidade no de cima ele num faz o calculo e quando digito no de baixo, ele mostra o valor nos dois registros.

    Poderiam me ajudar ??

  4. Ajuda

    em ASP

    Postado

    galera minha duvida é:

    estou com um site que necessita de login para acessar uma área restrita, ao logar abre a pagina e nela tem um botao de formulario para sair. Case o usuario clique nele eu atribuo a variavel global Session("login") o valor "="" ", até a tudo certo.

    A minha duvida é, eu quero que se o usuario clique no botao voltar no navegador e depois tente acessar de novo a Pagina utilizando o botao avançar do navegador, ele redirecione para a pagina de login.

    Poderiam me ajudar ?

  5. Funcao Mid

    em ASP

    Postado

    To usando a função mid para mostrar até o 25º caratere da consulta da resposta,

    porem só tá e mostrando o 1º caractere. se eu coloco uma string ex: paralelepipedo , ele me mostra corretamente.

    A sintaxe que to usando é a segiunte:

    <%

    For x =1 to 25

    Response.Write MID(consulta("resposta"),x,1)

    next

    %>

    poderiam me ajudar ??

  6. Declarar Vetor

    em ASP

    Postado

    Vou colocar os codigos aqui , asism fica mais facil

    ao usuario submeter o formulário com o botao atualizar o codigo abaixo será executado:

    if request.querystring("act") = "atualizar" then
set busca = conn.execute("Select * from fotos where confirma = 0 and usuario = "&session("login"))
I = 1
qtd = Array()
while not busca.eof
ReDim Preserve qtd(I)
if request.form("r"&busca("cod")) <> 1 then
conn.execute("Delete * from fotos where cod = " & busca("cod"))
end if
If Request.Form("t1-"&busca("cod")) <> "" Then
   qtd(I) = Request.Form("t1-"&busca("cod"))
   If qtd(I) > 0 and qtd(I) <= 10 Then
      preço = 1.00
   ElseIf qtd(I) > 10 and qtd(I) <= 30 Then
      preço = 0.90
   ElseIf qtd(I) > 30 and qtd(I) <= 60 Then
      preço = 0.85
   ElseIf qtd(I) > 60 and qtd(I) <= 100 Then
      preço = 0.79
   ElseIf qtd(I) > 100 and qtd(I) <= 150 Then
      preço = 0.75
   ElseIf qtd(I) > 150 and qtd(I) <= 200 Then
      preço = 0.70
   ElseIf qtd(I) > 200 and qtd(I) <= 300 Then
      preço = 0.68
   ElseIf qtd(I) > 300 Then
      preço = 0.65
   End If
  Else
   qtd(I) = 0
   preço = 0
End If
valor = FormatCurrency(Ccur(preço)*qtd(I))
    O que aparecerá na página é seguinte: 
    <table width="473" border="0" cellspacing="0" cellpadding="0">
<%set busca = conn.execute("Select * from fotos where confirma = 0 and usuario = "&session("login"))
 If Not busca.EOF Then
 qtd = Array()
 I = 1 %>
 <form name="frm" method="post">
  <% While Not busca.EOF 
   ReDim Preserve qtd(I)%>
    <tr valign="top" bgcolor="#F8F8F8">
     <td width="150" height="100" align="center"><div align="center"><img src="img.asp?a=<%=busca("usuario")%>-<%=busca("cod")%>.jpg" vspace="5"><br>
      <input name="r<%=busca("cod")%>" type="checkbox" value="1" checked>
      <span class="style14">Revelar</span></div></td>
      <td width="190" height="100" align="left"><span class="style6 style4">Tamanho:</span>             
      <table width="185" height="77" border="0" cellpadding="0" cellspacing="0">
                <tr align="left">
                  <td width="34" height="16"><input name="t1-<%=busca("cod")%>" type="text" class="textbox" size="3" value="<% =qtd(I) %>"></td>
                  <td width="151" height="16"><span class="style14"> 10 x 15 - R<% =valor%></span></td>
                </tr>
                <tr align="left">
                  <td height="16"><input name="t2-<%=busca("cod")%>" type="text" class="textbox" size="3" value="<% =qtd1 %>"></td>
                  <td height="16"><span class="style14">13 x 18 - R<% =valor1%></span></td>
                </tr>
              </table></td>
              <td width="133" height="100" align="left"><span class="style4 style6">Superf&iacute;cie:</span>
                <table width="121" height="36" border="0" cellpadding="0" cellspacing="0">
                  <tr align="left">
                    <td width="26" height="16"><input name="papel<%=busca("cod")%>" type="radio" value="1"></td>
                    <td width="95" height="16" class="style14"> Fosca</td>
                  </tr>
                  <tr align="left">
                    <td height="16"><input name="papel<%=busca("cod")%>" type="radio" value="2" checked></td>
                    <td height="16" class="style14">Brilhante</td>
                  </tr>
                </table>
                <span class="style4 style6">Borda:</span> 
                <table width="121" height="32" border="0" cellpadding="0" cellspacing="0">
                 <tr align="left">
                  <td width="26" height="16"><input name="borda<%=busca("cod")%>" type="radio" value="1"></td>
                  <td width="95" height="16" class="style14"> Com borda </td>
                 </tr>
                 <tr align="left">
                  <td height="16"><input name="borda<%=busca("cod")%>" type="radio" value="0" checked></td>
                  <td height="16" class="style14">Sem borda </td>
                 </tr>
                </table></td>
            </tr>
            <%
    busca.MoveNext
    I = I +1
    Wend
  	%>
  	<tr>

  8. Declarar Vetor

    em ASP

    Postado

    como crio um vetor ???

    estou fazendo da seguinte maneira:

    I = 1 
While not x.eof 
 qtd(I) = request.form("tste")
I = I + 1
x.movenext
wend

    e está me dando o seguinte erro :

    Microsoft VBScript runtime error '800a000d'

    Type mismatch: 'qtd'

    Poderiam me ajudar ?

  9. Duvida Com Essas Linhas De Codigo

    em ASP

    Postado 

    Set Upload = Server.CreateObject("Persits.Upload")
Upload.IgnoreNoPost = True
Count = Upload.Save(Server.MapPath("temp"))
For Each File in Upload.Files
conn.execute("Insert into fotos (usuario) values ("&session("login")&")")
set busca = conn.execute("Select top 1 cod from fotos order by cod desc")
File.CopyVirtual "upload/" & session("login") & "-" & busca("cod") & file.ext
File.Delete
session("i") = session("i") + 1
Next

    Vocês poderiam me ajudar a entender elas ???? Não estou conseguindo sozinho

    Muito Obrigado desde já

  11. Duvida Em Calculo

    em ASP

    Postado

    A minha duvida é aseguinte, criei um formulário , onde tem o campo que o usuário digita a qtd do produto que ele deseja compra,

    do lado mostra o valor do produto, na primeira vez que o HP aparece o valor está em zero, então o usuário digita a quantidade do produto que deseja e em seguida em Atualizar.

    Ao Atualizar a página o valor terá que mostrar a multiplicação do valor pela quantidade, detalhe o valor seria 1,10 , ou seja a multiplicação seria:

    qtd * 1,10

    beleza, o problema é que não consigo efetuar o calculo a linha é a seguinte:

    <%= qtd *precos("t1")%>

    O qtd é a variavel que recupera o valor do textbox.

    ele consulta na tabela precos o valor e multiplica pela quantidade, mas o erro que está dando é o seguinte

    Microsoft VBScript runtime error '800a000d'

    Type mismatch: '[string: ""]'

    Alguém poderia me auxiliar ???

  13. Instrução Sql

    em ASP

    Postado

    Estou com uma dúvida, estou analisando um Código ASP, e na consulta está áparecendo a seguinte instrução:

    Select top 1 cod from pedidos

    Minha duvida é: O que siginifica esse TOP 1.

    Agradeço desde já

    Rafael

  14. Global.asa

    em ASP

    Postado

    Pessoal alguém poderia me dar uma brever explicação como que utilizaria o Global.asa para controlar usuários logados em sites?

    E como que faço para efetuar uma inclusão em tabelas relacoinadas, no caso o campo codigo usuario está sendo exportado para a tabela noticias??

    alguém poderia e ajudar?

    Obrigado.

  16. Duvida Em Login

    em ASP

    Postado

    Pessoal criei um index.asp, nele tem um formulário para logar e acessar paginas , específicas, ao submeter o fomrulario ele vai para login.asp, cujo codigo é :

    <!-- #INCLUDE FILE="includes/conecta.asp" -->
<%
Set cons = Server.CreateObject("ADODB.Recordset")
Set cons = conn.Execute ("SELECT USUARIO FROM USUARIOS SENHA WHERE USUARIO='"& Request.Form("login") &"' and SENHA="& Request.Form("senha"))
  If Request.Form("login") = "ADMINISTRADOR" or Request.Form("login") = "administrador" Then
     Response.Redirect("admin/index.asp")
  Else
     Response.Redirect("inclu_troca.asp")
  End If
conn.Close
Set conn = Nothing
%>

    Porém não está dando certo , quando submete o formulario ele mostra essa mensagem:

    Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

    [Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

    /trocas/login.asp, line 4

    Alguém poderia me ajudar??

    Muito Obrigado

  17. Ajuda Urgente

    em ASP

    Postado

    Galera ontem montei um sistema de Jornal On LIne, hj fui ve-lo para continuar o trabalho e acontece o seguinte, o link que eu criei que era para aparecer da seguinte forma noticias.asp?codigo= "código do registro na tabela"

    Aparece da seguinte forma Oque aparece é o seguinte:

    noticias.asp?codigo=<% =rs(

    Bem acho que não é aconexão, mas já vou mostrar o arquivo.

    <%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=d:\webplus\Rafael\adminis\Jornal.mdb")
%>

    Oque aparece é o seguinte:

    noticias.asp?codigo=<% =rs(

    alguém pode me ajudar o mais rapido possivel

  18. Sintaxe De Sql Para Update

    em ASP

    Postado

    o esquem é o seguinte:

    Aparece uma lista com as noticias que foram incluidas, com os seus respectivos botoes radio armazenando o código da noticia, então ele clica no botao radio e dai abre a pagina para ele efetuar a alteração da noticia selecionada, na hora q ele vai confirmar a alteração da o seguinte problema

    Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

    [Microsoft][ODBC Microsoft Access Driver] Syntax error in UPDATE statement.

    A linha de codigo que estou fazendo é a seguinte

    SQL = "UPDATE TITULO='"& titulo &"' ,TEXTO='"& texto &"' DATA='"& data &"' HORA='"& hora &"' WHERE CODIGO="& Request.QueryString("codigo")

    Set conn = conn.Execute (SQL)

    --------------------------

    onde o Request.QueryString recupera o valor do código da pagina anterior

    Algume me ajuda?

  19. Declara Array

    em ASP

    Postado

    Pessoal oque está acontecendo é o seguinte, estou usando a variavel rs, para efetuar a exclusão, mas só consigo faze-la quando escolho somente um registro, quando escolho mais de um da erro:

    [Microsoft][ODBC Microsoft Access Driver] Syntax error (comma) in query expression 'CODIGO=(7, 8)'.

    Qual a forma que devo fazer para concertar esse problema?????

    <%
Dim rs,arr
  Set conn = Server.CreateObject("ADODB.Connection")
  Set rs = Server.CreateObject("ADODB.Recordset")
  conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=d:\webplus\Rafael\Jornal.mdb") 

  If Request.Form("ck1") <> "" Then
        Set arr = conn.Execute ("DELETE FROM NOTICIAS WHERE CODIGO=(" & Request.Form("ck1") & ")" )
  Response.Redirect("conf_ex.asp")
  Else
%>
  <script language="JavaScript">
    alert("Selecione a(s) Notícia(s) que deseja excluir")
	history.back()
  </script>
<%
End If
conn.Close
Set conn = Nothing
%>

  20. Duvida Na Consulta

    em ASP

    Postado

    Pessoal estou montnado um sistema de Jornal On-line.

    Eu preciso fazer o seguinte

    na Pag.Principal eu irei colocar o Titulo da noticia como link para a notícia.

    clicando no titulo da noitcia abrirá uma pagina com o titulo e o texto da noticia.

    Bem eu estou criando a pagina principal e colocando os links numa estrutura de repetição While. POrém não estou sabendo se está é a melhor maneira. Já procurei na NEt e num acho nada explicando

    .

    Outra duvida

    como vou fazer para que quando clicar no link com o titulo da noticia, como farei para abrir a notícia?

    alguém poderia me ajudar ?????

  21. Ajuda Urgente

    em ASP

    Postado

    Pessoal uma Dúvida

    Estou programando a Inclusao

    Porém quando uso a linha SQL

    strSQL = "INSERT INTO NOTICIAS (TITULO, TEXTO) VALUES ("& titulo &","& texto &")"
    dá a seguinte mensegem Microsoft JET Database Engine error '80040e10' No value given for one or more required parameters. e se eu digito: 
    strSQL = "INSERT INTO NOTICIAS (TITULO, TEXTO) VALUES ('& titulo &','& texto &')"

    Ele efetua a inclusao, porem invés de incluir o valor da variavel, ele inclui & titulo & e & texto &

    alguém pode me responde isso o mais rapido possivel, fazendo favor????

  22. Configuração Para Asp

    em Dreamweaver

    Postado

    Galera preciso saber como configuro o DW MX, para utilizar tecnologia ASP, pois conforme sempre faço as configurões de Site, não funciona este código aqui.

    <body>
<form method="post" actino"--WEBBOT-SELF--">
<!-- webbot bot="SaveResults"
 U-File="http://homepc/ex_fp2000/_private/form_results.txt" S-Format="TEXT/CSV" S-Label-Fields="TRUE" --> 
<input type="text" name="T1" size="20">
<input type="submit" name="B1" value="Enviar">
<input type="reset" name="B2" value="Limpar">
</body>

    Estou estudando por um livro, nele esse código é dado como exemplo do método FORM. porém no DW MX , não consigo executa-lo , da o erro

    405 ... método ... MINE (não me lembro de cabeça agora pois não estou em casa)

    No livro eles utilizam o Front Page, e com ele eu consigo executar esse código sem nenhum problema.

    alguém pode me ajudar??????? Muito Obrigado

  23. Configuração Para Asp

    em Dreamweaver

    Postado

    Galera preciso saber como configuro o DW MX, para utilizar tecnologia ASP, pois conforme sempre faço as configurões de Site, não funciona este código aqui.

    <body>
<form method="post" actino"--WEBBOT-SELF--">
<!-- webbot bot="SaveResults"
 U-File="http://homepc/ex_fp2000/_private/form_results.txt" S-Format="TEXT/CSV" S-Label-Fields="TRUE" --> 
<input type="text" name="T1" size="20">
<input type="submit" name="B1" value="Enviar">
<input type="reset" name="B2" value="Limpar">
</body>

    Estou estudando por um livro, nele esse código é dado como exemplo do método FORM. porém no DW MX , não consigo executa-lo , da o erro

    405 ... método ... MINE (não me lembro de cabeça agora pois não estou em casa)

    No livro eles utilizam o Front Page, e com ele eu consigo executar esse código sem nenhum problema.

    alguém pode me ajudar??????? Muito Obrigado

×
×
  • Criar Novo...