modernel

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 ??

Pessoal qual a diferença em usar Id e Name ?????

como se encerra uma sessão em ASP ?? sem estar usando Global.asa , se é que tem alguma coisa ver com a outra. Obs: estou viajando hauahua

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 ?

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 ??

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>

tão tudo certo, eu num sei o que estou errando quais os motivos possiveis

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 : Poderiam me ajudar ?

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á

Olá estou precisando que aluém me explicasse como faço para incluir figuras em banco de dados, qual a melhor maneira enfim, como fazer ... ahuahuah Porque sou iniciante em ASP, e estou necessitano daprender como faz.

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 ???

asasas

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

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.

A linha 4 é : Set cons = conn.Execute ("SELECT USUARIO FROM USUARIOS SENHA WHERE USUARIO='"& Request.Form("login") &"' and SENHA="& Request.Form("senha"))

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: Alguém poderia me ajudar?? Muito Obrigado

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

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?

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 %>

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 ?????

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????

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

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

Pessoal tenho o WIn98se em casa, preciso instala o PWS para poder apreder ASP, alguém pode me explicar passo a passo como instalo o PWS em Win98se , é urgente . Muito Obrigado Rafael

eu sei que é muito complicado, mas não achei lá não, A versao do kernel .e 2.4.x vocês poderiam me explicar?? Lucent 56k PCi muito obrigado