Jump to content
Fórum Script Brasil

mortal

Membros
  • Posts

    10
  • Joined

  • Last visited

About mortal

  • Birthday 01/04/1992

Contatos

Perfil

  • Gender
    Male
  • Location
    Maringá - Paraná

mortal's Achievements

0

Reputation

  1. eu queria fazer um sistema em que o usúario que acessar tal página , o ip dele seria exibido na página e gravaria no bd access. Mas não essa função: <%=Request.ServerVariables("REMOTE_ADDR")%> porque essa só mostra a da rede . Obrigado !
  2. ow vlw ae velho desculpa o stress cara tava estressado memo funciono certinho e vlw devido as circunstâncias eu fiz um teclado bem fileh aki e vou disponibilizar pra download Teclado
  3. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <title>Teclado Digital</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body onload="return PosicionaTeclado(true)" onResize="PosicionaTeclado(true)"> &lt;script language="JavaScript"> function submeter(){var currentState = 1; var newState = 2;if (newState != currentState){document.FrmLogin.BtnSub.disabled = newState;document.FrmLogin.submit();}} </SCRIPT> &lt;script language="JavaScript">if(window!=top)top.location.href=location.href</SCRIPT> &lt;script language=javascript> //************************************************************* // CÓDIGO DISPONIBILIZADO POR: Tuba ([email protected]) // Baixei o codigo no forum do Blaz (http://forum.blaz.com.br) // 25/10/2004 //************************************************************* var sForm='document.forms[0].'; //Form default var iCampo=0; var oTeclado=new Array(); var oFont=new Array(); var oCoord=new Array(); var oStatus=new Array(); var oCampos=new Array(); function getLeft(oImg){return(oImg.offsetParent ? (getLeft(oImg.offsetParent)+oImg.offsetLeft) : oImg.offsetLeft);} function getTop(oImg){return(oImg.offsetParent ? (getTop(oImg.offsetParent)+oImg.offsetTop) : oImg.offsetTop);} function PosicionaTeclado(bLayer){AtivaTeclado(getLeft(document.kb),getTop(document.kb),0,10,bLayer);} function DefinirTeclas(){oFont[0]=new Array("'", unescape("%22"));oFont[1]=new Array(1,"!");oFont[2]=new Array(2,"@");oFont[3]=new Array(3,"#");oFont[4]=new Array(4,"$");oFont[5]=new Array(5,"%");oFont[6]=new Array(6,"¨");oFont[7]=new Array(7,"&");oFont[8]=new Array(8,"*");oFont[9]=new Array(9,"(");oFont[10]=new Array(0,")");oFont[11]=new Array("-","_");oFont[12]=new Array("=","+");oFont[13]=new Array("q","");oFont[14]=new Array("w","");oFont[15]=new Array("e","");oFont[16]=new Array("r","");oFont[17]=new Array("t","");oFont[18]=new Array("y","");oFont[19]=new Array("u","");oFont[20]=new Array("i","");oFont[21]=new Array("o","");oFont[22]=new Array("p","");oFont[23]=new Array("´","`");oFont[24]=new Array("[","{");oFont[25]=new Array("<-","");oFont[26]=new Array("a","");oFont[27]=new Array("s","");oFont[28]=new Array("d","");oFont[29]=new Array("f","");oFont[30]=new Array("g","");oFont[31]=new Array("h","");oFont[32]=new Array("j","");oFont[33]=new Array("k","");oFont[34]=new Array("l","");oFont[35]=new Array("ç","");oFont[36]=new Array("~","^");oFont[37]=new Array("]","}");oFont[38]=new Array("RET","");oFont[39]=new Array("\\","|");oFont[40]=new Array("z","");oFont[41]=new Array("x","");oFont[42]=new Array("c","");oFont[43]=new Array("v","");oFont[44]=new Array("b","");oFont[45]=new Array("n","");oFont[46]=new Array("m","");oFont[47]=new Array(",","<");oFont[48]=new Array(".",">");oFont[49]=new Array(";",":");oFont[50]=new Array("/","?");oFont[51]=new Array("RET","");oFont[52]=new Array("CAPS","");oFont[53]=new Array("CAPS","");oFont[54]=new Array("CAPS","");oFont[55]=new Array("SHIFT","");oFont[56]=new Array("SHIFT","");oFont[57]=new Array("SHIFT","");oFont[58]=new Array(" ","");oFont[59]=new Array(" ","");oFont[60]=new Array(" ","");oFont[61]=new Array(" ","");oFont[62]=new Array(" ", "");oFont[63]=new Array(" ","");oFont[64]=new Array(" ","");} function PosicionarKB(intPosVertInicialOrig,intPosHozInicialOrig,intDesloca,intFator,blnOffLine){ intPosVertInicialOrig=parseInt(intPosVertInicialOrig+Math.round(Math.random()*intFator)); intPosHozInicialOrig =parseInt(intPosHozInicialOrig+intDesloca+Math.round(Math.random()*intFator)); var intLarguraHozTcl=19; var intLarguraVerTcl=22; var intPosVertInicial=intPosVertInicialOrig; var intPosHozInicial=intPosHozInicialOrig; var intPosVertInicialOld=intPosVertInicialOrig; var intX1,intY1,intX2,intY2; for (var iIndice=0;iIndice<65;iIndice++){ intX1=intPosVertInicial; intY1=intPosHozInicial; intX2=parseInt(intPosVertInicial+parseInt(intLarguraVerTcl-2)); intY2=parseInt(intPosHozInicial+parseInt(intLarguraHozTcl-2)); oCoord[iIndice]=new Array(intX1,intY1,intX2,intY2,oFont[iIndice][0],oFont[iIndice][1]); intPosVertInicial+=22; if ((parseInt(iIndice+1)%13)==0 && iIndice!=0){ intPosHozInicial+=19; intPosVertInicial=intPosVertInicialOld; } } MostraKB(intPosVertInicialOrig,intPosHozInicialOrig,blnOffLine); } function AlterarStatus(strTecla){ switch(strTecla){ case "CAPS": if(oStatus[0][0]){TrocarTeclado(1);oStatus[0][0]=false;oStatus[1][0]=true;return true;} if(oStatus[2][0]){ if (document.imgTeclado.complete){ TrocarTeclado(3);oStatus[3][0]=true;oStatus[2][0]=false;return true; } else{alert("Aguarde...");return false;} } if (oStatus[3][0]){ if (document.imgTeclado.complete){ TrocarTeclado(2);oStatus[2][0]=true;oStatus[3][0]=false;return true; } else{alert("Aguarde...");return false; } } else{ TrocarTeclado(0);oStatus[0][0]=true;oStatus[1][0]=false;return true; } break; case "SHIFT": if(oStatus[0][0]){TrocarTeclado(2);oStatus[0][0]=false;oStatus[2][0]=true;return true;} if(oStatus[1][0]){TrocarTeclado(3);oStatus[3][0]=true;oStatus[1][0]=false;return true;} if(oStatus[3][0]){TrocarTeclado(1);oStatus[1][0]=true;oStatus[3][0]=false;return true;} else{TrocarTeclado(0);oStatus[0][0]=true;oStatus[2][0]=false;return true;} break; } return true; } function TrocarTeclado(iIndice){ document.imgTeclado.src=oTeclado[iIndice].src; return true; } function ManipularTeclado(evnt){ var blnImg=false; var blnRet=false; if(navigator.appName=='Netscape'){ if(evnt.target.name=="imgTeclado" || evnt.target=="java script:void(13)"){blnImg=true;} else{return true;} } else{ if(window.event.srcElement.tagName == "IMG"){blnImg=true;} } if(blnImg){ if(navigator.appName == 'Netscape') { var x=parseFloat(parseInt(evnt.pageX)); var y=parseFloat(parseInt(evnt.pageY)); } else{ var x=parseFloat(parseInt(event.x)+parseFloat(document.body.scrollLeft)); var y=parseFloat(parseInt(event.y)+parseFloat(document.body.scrollTop)); } for(var iIndice=0;iIndice<oCoord.length;iIndice++){ if((x>=oCoord[iIndice][0] && x<=oCoord[iIndice][2]) && (y>=oCoord[iIndice][1] && y <= oCoord[iIndice][3])){ switch (oCoord[iIndice][4]){ case "<-": eval(sForm+oCampos[iCampo][0]+".value="+sForm+oCampos[iCampo][0]+".value.substring(0,parseInt("+sForm+oCampos[iCampo][0]+".value.length)-1)"); break; case "RET": NovoFoco(); setTimeout("eval('"+sForm+oCampos[iCampo][0]+".focus()');",10); blnRet=true; break; case "CAPS": AlterarStatus("CAPS"); break; case "SHIFT": AlterarStatus("SHIFT"); break; default: if(oStatus[0][0]){AtualizarValor(oCoord[iIndice][4]);} if(oStatus[1][0] && isNaN(oCoord[iIndice][4])){AtualizarValor(oCoord[iIndice][4].toUpperCase());} if(oStatus[1][0] && !isNaN(oCoord[iIndice][4])){AtualizarValor(oCoord[iIndice][4]);} if(oStatus[2][0]){ if(oCoord[iIndice][5]!=""){AtualizarValor(oCoord[iIndice][5]);} else{ if(isNaN(oCoord[iIndice][4])){AtualizarValor(oCoord[iIndice][4].toUpperCase());} else{AtualizarValor(oCoord[iIndice][4]);} } AlterarStatus("SHIFT"); } if(oStatus[3][0]){ if(oCoord[iIndice][5]!=""){AtualizarValor(oCoord[iIndice][5]);} else{ if(isNaN(oCoord[iIndice][4])){AtualizarValor(oCoord[iIndice][4].toUpperCase());} else{AtualizarValor(oCoord[iIndice][4]);} } AlterarStatus("SHIFT"); } }//switch } } } if(!blnRet){setTimeout("eval('" + sForm + oCampos[iCampo][0] + ".focus();')",10);} return false; } function AtualizarValor(strValor){ switch(oCampos[iCampo][2]){ case "A": //Campo alfanumérico if(eval(sForm+oCampos[iCampo][0]+".value.length")<parseInt(oCampos[iCampo][1])){ if (escape(strValor)=="%27"){eval(sForm+oCampos[iCampo][0]+".value+=\""+strValor+"\"");} else{ var objTargetField=new Object(eval(sForm+oCampos[iCampo][0])); objTargetField.value += strValor; } } if(eval(sForm+oCampos[iCampo][0]+".value.length")==parseInt(oCampos[iCampo][1])){ NovoFoco(); setTimeout("eval('"+sForm+oCampos[iCampo][0]+".focus()');",10); } break; case "N": //Campo numérico if(eval("parseInt("+sForm+oCampos[iCampo][0]+".value.length)")<parseInt(oCampos[iCampo][1])){ if(escape(strValor)=="%27"){ eval(sForm+oCampos[iCampo][0]+".value+=ValidarNum(\"" + strValor + "\")");} else{ var objTargetField=new Object(eval(sForm+oCampos[iCampo][0])); objTargetField.value += ValidarNum(eval("'" + strValor + "'")); } } if(eval("parseInt("+sForm+oCampos[iCampo][0]+".value.length)") == parseInt(oCampos[iCampo][1])){ NovoFoco(); setTimeout("eval('"+sForm+oCampos[iCampo][0]+".focus()');",10); } break; } return true; } function NovoFoco(){ if(arguments.length>0){ iCampo=arguments[0]; } else{ if(parseInt(parseInt(oCampos.length)-1)==parseInt(iCampo)){ iCampo=0; } else{ iCampo=parseInt(iCampo)+1; } } } function MostraKB(intPosVertInicialOrig,intPosHozInicialOrig,blnOffLine){ if(navigator.appName=='Netscape'){ window.captureEvents(Event.CLICK | Event.MOUSEDOWN | Event.MOUSEUP); if(parseFloat(navigator.appVersion.split(" ")[0])<5){ if(!blnOffLine){document.writeln('<layer id="posicaotcl" left="'+intPosVertInicialOrig+'" top="'+intPosHozInicialOrig+'" ><A HREF="java script:void(13)"><img name="imgTeclado" border="0" src="'+oStatus[0][1]+'"></A></layer>');} else{ var objLyr=document.posicaotcl; objLyr.top=intPosHozInicialOrig; objLyr.left=intPosVertInicialOrig; } } else{if(!blnOffLine){document.writeln('<layer id=posicaotcl style="position:absolute;left:'+intPosVertInicialOrig+';top:'+intPosHozInicialOrig+';"><a href="java script:void(13)"><img name=imgTeclado border=0 src='+oStatus[0][1]+'></a></layer>')} } window.onmousedown=ManipularTeclado; } else{ //IE if(!blnOffLine){document.writeln('<div id=divTeclado style="cursor:hand;width:284;height:93;position:absolute;left:'+intPosVertInicialOrig+'; top:'+intPosHozInicialOrig+'"><img name=imgTeclado border=0 src='+oStatus[0][1]+'></div>');} else{ divTeclado.style.top=intPosHozInicialOrig; divTeclado.style.left=intPosVertInicialOrig; } document.imgTeclado.onmousedown=ManipularTeclado; document.imgTeclado.ondblclick=ManipularTeclado; } } function DefinirCampos(){ //Define os campos do form que aceitarão o teclado virtual, no formato Nome%Tamanho%Tipo for(iIndice=0;iIndice<arguments.length;iIndice++){ oCampos[iIndice]=new Array(arguments[iIndice].split("%")[0],arguments[iIndice].split("%")[1],arguments[iIndice].split("%")[2]); } } function ObtemLayout(){ var blnSel; for(iIndice=0;iIndice<arguments.length;iIndice++){ if(iIndice==0)blnSel=true; else blnSel=false; oStatus[iIndice]=new Array(blnSel,arguments[iIndice]); } for(var iIndice=0;iIndice<oStatus.length;iIndice++){ oTeclado[iIndice]=new Image(); oTeclado[iIndice].src=oStatus[iIndice][1]; } } function ValidarNum(intVal){if(isNaN(intVal)||intVal==" ") return ""; else return intVal;} function AtivaTeclado(intPosVertInicial,intPosHozInicial,intDeslocamento,intFatorCorrecao,blnOffLine){ DefinirTeclas(); PosicionarKB(intPosVertInicial,intPosHozInicial,intDeslocamento,intFatorCorrecao,blnOffLine); } ObtemLayout("imagens/kb.gif","imagens/kbCaps.gif","imagens/kbShift.gif","imagens/kbShiftCaps.gif"); </SCRIPT> <TABLE cellSpacing=0 cellPadding=0 align=center> <FORM name="FrmLogin" action="login.asp" method="post"> <TBODY> <TR> <TD vAlign=top> <TABLE cellSpacing=1 cellPadding=3 align=center> <TBODY> <TR> <INPUT type="hidden" value="valida" name="acao"> <INPUT type="hidden" value="shop" name="loja"> <INPUT type="hidden" value="Administrar" name="link"> <INPUT type="hidden" value="loja=shop&link=Administrar" name="url"> <TD colSpan=2><FONT style="FONT-SIZE: 11px; FONT-FAMILY: tahoma" face=tahoma><B>Login no site </B></FONT></TD> </TR> <TR> <TD colSpan=2><FONT style="FONT-SIZE: 10px; COLOR: #003366; FONT-FAMILY: tahoma" face=tahoma>Esta é uma área de acesso restrito ! </FONT></TD> </TR> <TR> <TD><FONT style="FONT-SIZE: 11px; FONT-FAMILY: tahoma" face=tahoma>Usuário:</FONT></TD> <TD><INPUT style="FONT-SIZE: 11px; FONT-FAMILY: tahoma" tabIndex=1 name=usr autocomplete="OFF"></TD></TR> <TR> <TD align=right colSpan=2> <TABLE cellSpacing=0 cellPadding=0> <TBODY> <TR> <TD style="BORDER-RIGHT: #9c9c9c 1px solid; BORDER-TOP: #9c9c9c 1px solid; BORDER-LEFT: #9c9c9c 1px solid; BORDER-BOTTOM: #9c9c9c 1px solid"> <TABLE cellSpacing=2 cellPadding=2> <TBODY> <TR> <TD><FONT style="FONT-SIZE: 11px; FONT-FAMILY: tahoma" face=tahoma>Senha:</FONT></TD> <TD><INPUT style="FONT-SIZE: 11px; FONT-FAMILY: tahoma" onfocus=NovoFoco(2) tabIndex=2 type=password name=sen></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><IMG src="imagens/borda.gif" alt="" width="36" height="11" border=0></TD></TR> <TR> <TD align=middle colSpan=2><INPUT style="FONT-SIZE: 11px; FONT-FAMILY: tahoma" onclick=submeter() tabIndex=3 type=submit value=" Entrar " name=BtnSub> <INPUT style="FONT-SIZE: 11px; FONT-FAMILY: tahoma" type=reset value=Cancelar></TD></TR></TBODY></TABLE></TD> <TD vAlign=bottom> <TABLE cellSpacing=0 cellPadding=0 align=center> <TBODY> <TR> <TD vAlign=top height=101><IMG src="imagens/shim.gif" name=kb width="1" height="1"></TD></TR> <TR> <TD align=middle><FONT style="FONT-SIZE: 10px" face=tahoma> Para sua segurança, informe sua senha utilizando o teclado.</FONT></TD></TR></TBODY></TABLE></TD></TR></TBODY></form></TABLE> <br> <div align="center"> <p><FONT style="FONT-SIZE: 11px; FONT-FAMILY: tahoma" face=tahoma><B>Para digitar maiúsculas ou caracteres da parte superior<br> do teclado, clique em CAPS LOCK ou SHIFT.</B></FONT><br> <br> <br> </p> </div> <p> &lt;script>DefinirCampos("url","usr","sen%999%A","sen%999%A");PosicionaTeclado(false);</SCRIPT> &lt;script>document.FrmLogin.sen.focus();</SCRIPT> </p> </body> </html> <font color="#FF0000" size="2"><center>esse script só funciona com o browser internet explorer da microsoft.<br> Se voçê estiver usando em outro browser, a autenticação falhará. </center></font><br> Tenho esse teclado virtual aki, só que quando você usa ele no firefox, você clika na letra por exemplo na "d" , dai ele aparece no campo text assim: dd. As imagens estão em gif e este teclado também função de caps lock , shift , e no firefox também não funciona. Eu queria a ajuda de vocês pra resolver esse problema. Se alguém conseguir poste o script aki fazendo um favor ! obrigado. as imagens: Imagens Será q ninguém sabe, mas que b****a ... Será q ninguém sabe, mas que b****a ...
  4. Consegui arrumar, muito obrigado pelas dicas e ajuda mas só mais uma pergunta aew pra andréia ou pra quem souber responder: como eu faço para que quando a página atingir um limite de registros exibidos, por exemplo 20 ,a página cria um link para outra e "vira"??? só falndo desse código aew em cima, Eu tinha um outro código que era igualzinho que eu tinha feito no meu curso, dae eu queria mudar a estrutura algumas coisinhas do site e fiz essa página aew. mais a do site original , pegava belezinha.
  5. <%Language="VBScript"%> <!--#include file= "conexao.asp"--> <% If IsEmpty(Session("SecurityID")) Then Response.Redirect "login.asp" End If %> <html> <head> <title></title> </head> <font face="Verdana" size="2" color= "brown"> <h2>Consulta reservas</h2> <table border=0 width=100%> <% set lista_situacao = Conexao.Execute("SELECT * FROM situacao") If Not lista_situacao.EOF Then %> <tr width=100%> <td width=100%> <table border=0> <tr width=100%><td><font face="Verdana" size="2">Listar reservas:&nbsp;</font></td> <% While not lista_situacao.EOF %> <td><font face="Verdana" size="2"><a href='con_reservas_a.asp?lista=status&situacao=<%=lista_situacao("sit_codigo")%>'><%=lista_situacao("sit_mensagem")%></a>&nbsp;</font></td> <% lista_situacao.MoveNext Wend %> </tr> </table> </td></tr> <% End If Select Case Request.QueryString("lista") Case "status" set lista_reservas = Conexao.Execute("SELECT * FROM RESERVA WHERE sit_codigo=" & Request.QueryString("situacao")) If lista_reservas.EOF Then %> <tr width=100%><td width=100%><font face="Verdana" size="2" color="brown"><h3>Nenhuma reserva com essa situação.</h3></font></td></tr> <% lista ="não" End If Case Else lista = "não" End Select If Not (lista = "não") Then %> <tr width=100%> <td width=100%><table border=1 width=100%> <tr width=100%> <th width=1%><font face="Verdana" size="2">Reserva</font></th> <th><font face="Verdana" size="2">Nome do Cliente</font></th> <th><font face="Verdana" size="2">Filme</font></th> <th><font face="Verdana" size="2">Valor</font></th> <th><font face="Verdana" size="2">Situação</font></th> <th><font face="Verdana" size="2">Retirada</font></th> <th><font face="Verdana" size="2">Detalhes</font></th> <% While not lista_reservas.EOF set lista_filmes = Conexao.Execute("SELECT prod_nome, prod_valor FROM produtos WHERE prod_codigo=" & lista_reservas("prod_codigo")) set lista_cliente = Conexao.Execute("SELECT cli_nome FROM clientes WHERE cli_codigo=" & lista_reservas("cli_codigo")) set lista_situacao = Conexao.Execute("SELECT sit_mensagem FROM situacao WHERE sit_codigo="& lista_reservas("sit_codigo")) %> <tr width=100%> <td align=center><font face="Verdana" size="2"><%=lista_reservas("res_numero")%></font></td> <td><font face="Verdana" size="2"><%=lista_cliente("cli_nome")%> </td> <td><font face="Verdana" size="2"><%=lista_filmes("fil_nome")%></font> </td> <td align=left><font face="Verdana" size="2">R$<%=FormatNumber(lista_filmes("prod_valor"),2,-1,0,-1)%></font></td> <td align=center><font face="Verdana" size="2"><%=lista_situacao("sit_mensagem")%></font></td> <td align=center><font face="Verdana" size="2"><%=lista_reservas("res_retirada")%></font></td> <td align=center><font face="Verdana" size="2"><a href="det_reservas.asp?reserva=<%=lista_reservas("res_numero")%>&cliente=<%=lista_reservas("cli_codigo")%>&listar=sim">Editar</a></font></td> <% ped_anterior = lista_reservas("res_numero") lista_reservas.MoveNext Wend %> </table> <% End If %> </table> <html> Tenho o seguinte código Quando não tem nenhum registro para exibir , aparece uma msg dizendo: Nenhuma reserva com essa situação. Mas quando tem um registro para exibir, dae dá o seguinte erro: ADODB.Field (0x80020009) BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual. /sitescurso/novo/con_reservas_a.asp meu bd tem permissão e talzz, a tabela que resgata estes valores para exibir na tela se chama reserva, e está relacionada com mais três tabelas. Eu noto que quando eu deleto todos os registros desta tabela, não da erro , só a msg dizendo Nenhuma reserva com essa situação. , e quando eu coloco algum registro, acontece esse maldito erro Alguém ae me socorre por favor. ficaria grato obrigado por enquanto na tabela reserva existem os seguintes campos Res_codigo, Res_numero, Cli_codigo, Prod_codigo, Sit_codigo, Res_data, Res_retirada
  6. mortal

    Erro De Sintaxe

    eu já consegui resolver meu problema deu certinho só criei outra página resgatando a query string descricao vlw eu tenho utro erro: <%@Language="VBScript"%> <!--#include file="conexao1.asp"--> <html> <head><title>Cesta</title> </head> <body leftmargin="20" topmargin="20"> <font face="Verdana" size="2" color="brown"> <h2>Cesta de Filmes</h2> <table border=0 width=100%> <tr> <td align=right><a href="reservas.asp">Voltar para a Loja</a></td> </tr> <% acao = Request.Querystring("acao") prod_codigo = Request.querystring("prod_codigo") car_item_codigo = Request.querystring("car_item_codigo") Select Case "acao" Case "incluir" temp = "" set car_prod = Conexao.Execute ("SELECT * FROM produtos ORDER BY Prod_codigo="& prod_codigo &"") prod_nome = car_prod ("Prod_nome") Prod_valor = car_prod("Prod_valor") gen_codigo = car_prod("gen_codigo") set car_genero = Conexao.Execute("SELECT gen_descricao FROM genero WHERE gen_codigo="& gen_codigo &"") gen_descricao = car_genero("gen_descricao") If IsEmpty(Session("item_codigo")) Then Session("item_codigo") = 1 Else Session("item_codigo") = Session("item_codigo") + 1 End If item_codigo = Session("item_codigo") temp = item_codigo & "&" & fil_codigo If Not IsEmpty(Session("car_prod")) AND IsArray(Session("car_prod")) Then For loop1 = LBound(session("car_prod")) to UBound(session("car_prod")) temp = temp & "/" & session("car_prod")(loop1) Next End If arrTemp = Split(temp,"/") Session("car_prod") = arrTemp Case "excluir" temp = "" If Not (IsEmpty(Session("car_prod"))) Then For loop1 = LBound(Session("car_prod")) to UBound(session("car_prod")) arrTemp = Split(Session("car_prod")(loop1),"&") item_codigo = arrTemp(0) If Not (item_codigo = car_item_codigo) Then If temp = "" Then temp = session("car_prod")(loop1) Else temp = temp & "/" & session("car_prod")(loop1) End If End If Next If temp = "" Then Session("car_prod") = "" Else arrTemp = Split(temp,"/") Session("car_prod") = arrTemp End IF End If End Select temp = "" %> <tr width=100%><td width=100%>&nbsp;</td></tr> <tr width=100%><td width=100%><font face="Verdana" size="2"> <h3>Filmes Selecionados</h3></font></td></tr> <tr width=100%><td width=100%> <% If IsEmpty(Session("car_prod")) or Not IsArray(Session("car_prod")) Then %> <h4>Cesta vazia, não há filmes selecionados</h4> <% Else %> <table border=1 width=100%> <tr width=100%> <th><font face="Verdana" size="2">Filme</font></th> <th><font face="Verdana" size="2">Valor</font></th> <th><font face="Verdana" size="2">Gênero</font></th> <th><font face="Verdana" size="2">Opção</font></th> <% For loop1 = LBound(session("car_prod")) to UBound(session("car_prod")) arrTemp = Split(Session("car_prod")(loop1),"&") car_item_codigo = arrTemp(0) car_item_prod = arrTemp(1) set car_filme_atual = Conexao.Execute("SELECT * FROM Produtos WHERE prod_codigo="& car_item_prod &"") car_filme_nome = car_filme_atual("fil_nome") car_Prod_valor = car_filme_atual("Prod_valor") gen_codigo = car_filme_atual("gen_codigo") set car_genero = Conexao.execute("SELECT gen_descricao FROM genero WHERE gen_codigo="& gen_codigo &"") gen_descricao = car_genero("gen_descricao") %> <tr width=100% valign=top align=center> <td align=left><font face="Verdana" size="2"> <%=car_filme_nome%></font></td> <td><font face="Verdana" size="2"> R$<%=FormatNumber(car_Prod_valor,2,-1,0,-1)%></font></td> <td><font face="Verdana" size="2"> <%=gen_descricao%></font></td> <td><font face="Verdana" size="2"> <a href="cesta.asp?acao=excluir&car_item_codigo=<%=car_item_codigo%>"> Cancelar</a></font></td> </tr> <% car_filme_atual.Close set car_filme_atual = Nothing Next %> <% End If%> </table> <form action="confirmareserva.asp" method=GET> Reservar para: <input type=text name=data_retirada size=12> <input type=hidden name=acao value=cadastrar> <input type=image src="imagens/ok.gif" border=0> </form> não da erro mais também aparece la que eu não selecionei nenhum filme, sendo que selecionei no bd tenho uma table chamada produtos com: Prod_codigo , Prod_nome, Descricao_res, Prod_img, Gen_codigo, Prod_valor, Formas_Pgto Obrigado !
  7. mortal

    Erro De Sintaxe

    <%@LANGUAGE="VBSCRIPT" %> <!--#include file="conexao.asp"--> <%IF request.QueryString("codigo")="" and request.QueryString("descricao")="" and Request.ServerVariables("Request_Method")<>"Post" then%> <html> <head> <title> | Consulta/Atualização de Produtos |</title> </head> <body leftmargin="60" topmargin="30"> <center> <style> a:link{text-decoration: none; color: blue} a:hover{text-decoration: underline; color: red} a:visited{text-decoration: none; color: gray} </style> <style type="text/css"> div#container { width: 800px; position: relative; margin-top: 0px; margin-left: auto; margin-right: auto; text-align: left; } body { text-align: center; margin: 0; } </style> <br><br> <% SQL = "SELECT * FROM Produtos" Set RS=Conexao.Execute(SQL) %> <table border="0" cellpadding="5" cellspacing="1" bordercolor="blue"> <tr> <th bgcolor="black"><font size="2" color="white">Produto</font></th> <th bgcolor="black"><font size="2" color="white">Gênero</font></th> <th bgcolor="black"><font size="2" color="white">Valor</font></th> <th bgcolor="black"><font size="2" color="white">Img</font></th> <th bgcolor="black"><font size="2" color="white">Formas de Pgto.</font></th> <th bgcolor="black"><font size="2" color="white">Descrição</font></th> </tr> <% Do While Not RS.EOF valor = RS("prod_valor") SQL1 = "SELECT gen_descricao FROM Genero WHERE gen_codigo = " & RS("gen_codigo") Set genero = Conexao.Execute(SQL1) %> <tr> <td bgcolor="#EEEEE0" width="270"><font size="2"> <a href='con_prod.asp?codigo=<%=RS("Prod_codigo")%>'> <%=RS("Prod_nome")%> </td> <td bgcolor="#EEEEE0"><font size="2"> <%=genero("gen_descricao")%></td> <td bgcolor="#EEEEE0"><font size="2"> R$ <%=FormatNumber(valor,2,-1,0,-1)%> </td> <td bgcolor="#EEEEE0"><font size="2"> <a href="<% = rs("Prod_img") %>">Ver</a></td> <td bgcolor="#EEEEE0" width="230"><font size="2"> <%=RS("Formas_pgto")%></td> <td bgcolor="#EEEEE0" width="20" align="center"><font size="2"> <a href='descricao_prod.asp?descricao=<% = RS("Prod_codigo")%>'>Ver</a></td> <input type="hidden" name="Cod"> </tr> <% RS.MoveNext Loop RS.Close Conexao.Close Set RS = Nothing %> </table> <% Else If Request.ServerVariables("REQUEST_METHOD") = "POST" then Conexao.Execute ("UPDATE Produtos SET Produtos.Prod_nome='" & Request.Form("nome") & "' WHERE Produtos.Prod_codigo=" & Request.QueryString("codigo")& ";") Conexao.Execute ("UPDATE Produtos SET Produtos.gen_codigo='" & Request.Form("Genero") & "' WHERE Produtos.Prod_codigo=" & Request.QueryString("codigo")& ";") Conexao.Execute ("UPDATE Produtos SET Produtos.Prod_valor='" & Request.Form("Valor") & "' WHERE Produtos.Prod_codigo="& Request.QueryString("codigo")& ";") Conexao.Execute ("UPDATE Produtos SET Produtos.Prod_img='" & Request.Form("imagem") & "' WHERE Produtos.Prod_codigo="&Request.QueryString("codigo")& ";") %> <center> <font size="2" face="Verdana" color="brown"> <%Response.write("Dados atualizados com sucesso!")%> </font> <p> <a href="con_prod.asp"> <img src="imagens/nova_alteracao.gif" with="95" height="15" border="0"></a> <% Else SQL = "SELECT * FROM [Produtos] where Produtos.Prod_codigo=" & Request.QueryString("codigo") Set RS = Conexao.Execute(SQL) valor = RS("Prod_valor") %> <center> <font size="2" face="Verdana" color="brown"> <h3>Atualizar Produtos</h3><br> <hr size="1" color="black"> <p> <table border="0" cellspacing="0" cellpadding="0" bgcolor="#EEEEE0"> <form method="POST" action='con_prod.asp?codigo=<%=Request.QueryString("codigo")%>'> <tr> Nome:<br> <input type="text" name="nome" size="40" maxlength="40" value='<%=RS("Prod_nome")%>'><p> Gênero:<br> <select name=genero> <% set lista_genero = Conexao.Execute("SELECT * FROM Genero") While not lista_genero.EOF %> <option value="<%=lista_genero("gen_codigo")%>"> <%=lista_genero("gen_descricao")%></option> <% lista_genero.MoveNext Wend %> </select> <p> Valor: <br> <input type="text" name="valor" size="10" maxlength="10" value="<%=FormatNumber(Prod_valor,2,-1,0,-1)%>"><p> Imagem:<br> <input type="text" name="imagem" size="40" maxlenght="40" value="<%=RS("Prod_img")%>"><p> <td align="center" colspan="2"> <input type="image" name="submit" src="imagens/atualizar_reg.gif" with="110" height="15"></td> </tr> </form> </table> <%End If%> <%End If%> <% Else If request.QueryString("descricao")="" then Conexao.Execute SQL3 = "SELECT * FROM Produtos.Prod_codigo=" & Request.QueryString("descricao") Set rs3 = Conexao.Execute(SQL3) <table border ="0" cellpading="2" cellspacing="1" bordercolor="blue"> <tr> <th bgcolor="black"><font size="2" color="white">C&oacute;digo</font></th> <th bgcolor="black" width="200"><font size="2" color="white">Descrição</font></th> </tr> <% Do While Not RS.Eof %> <tr> <td bgcolor="#EEEEE0" align="center"><Font size="2" color="black"><%=rs3("Prod_codigo")%></td></font> <td bgcolor="#EEEEE0" align="center"><Font size="2" color="black"><%=rs3("Descricao_res")%></td></font> </tr> <% rs3.MoveNext Loop rs3.close conexao.close Set rs3 = Nothing %> </table> <%End If%> </center> </body> </html> eu queria fazer um esquema assim: na parte do nome do produto, funciona direitinho, se você clikar em cima do nome do produto, pega o código do produto e gera uma página para alteração dos dados do produto: nome, valor,imagem, e talzz. Tem uma outra parte da tabela que se chama descricação do produto e você clika em ver, ele até pega o código do produto , mas na hora de gerar a página de consulta dos dados do produto selecionado não funciona. Dá o seguinte erro aí que tá relatado Alguém me ajuda aí to esperando hein Tipo de erro: Obrigado por enquanto
  8. vlw a ajuda resolveu o problema t+
  9. <% Else If Request.ServerVariables("REQUEST_METHOD") = "POST" then Conexao.Execute ("UPDATE Produtos SET Produtos.Prod_nome='" & Request.Form("nome") & "'WHERE Produtos.Prod_codigo=" & Request.QueryString("codigo")& ";") Conexao.Execute ("UPDATE Produtos SET Produtos.gen_codigo='" & Request.Form("Genero") & "' WHERE Produtos.Prod_codigo=" & Request.QueryString("codigo")& ";") Conexao.Execute ("UPDATE Produtos SET Produtos.Prod_valor='" & Request.Form("Valor") & "'WHERE Produtos.Prod_codigo="&Request.QueryString("codigo")&";") %> tenho esse código aew e ta dando o seguinte erro: a linha 75 é essa aqui: Conexao.Execute ("UPDATE Produtos SET Produtos.Prod_nome='" & Request.Form("nome") & "'WHERE Produtos.Prod_codigo=" & Request.QueryString("codigo")& ";") queria muito a ajuda de tdos vocês aí muito obrigado flows t+
  10. mortal

    Ajuda Aspexec E .bat

    Olá eu tenho um código aqui em casa que funciona da seguinte forma: <% Set Executor = Server.CreateObject("ASPExec.Execute") Executor.Application = "C:/Inetpub/wwwroot/arquivo.exe" Executor.Parameters = "oi" Executor.ShowWindow = True Response.Write "Attempting to execute " & Executor.Application & "<br>" strResult = Executor.ExecuteWinApp Response.Write "The result of this call was: " & strResult %> como vocês podem ver eu uso o aspexec. Esse código funciona só que ele não abre o arquivo, só fica no processo. Eu queria uma ajuda de vocês para fazer o arquivo rodar, ou se alguém manjar em Dos , como eu chamo um arquivo .bat ou .com por esse código e dentro desse arquivo .bat eu chamar o "arquivo.exe. Obrigado desde já preciso muito disso e agradeço a ajuda de vocês.
×
×
  • Create New...