Ir para conteúdo
Fórum Script Brasil

mortal

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    10

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por mortal

  1. Exibir Ip E Gravar No Bd

    em ASP

    Postado

    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 !

  3. Vejam Esse Teclado Virtual

    em Ajax, JavaScript, XML, DOM

    Postado · Editado por mortal
    Inserir tags Code 

    <!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 (tubalindo@gmail.com)
//  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. Quando Tem Registro , Diz Que Não Tem E Dá Erro

    em ASP

    Postado · Editado por mortal

    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. Quando Tem Registro , Diz Que Não Tem E Dá Erro

    em ASP

    Postado 

    <%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. Erro De Sintaxe

    em ASP

    Postado · Editado por mortal

    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. Erro De Sintaxe

    em ASP

    Postado 

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

    Erro de compilação do Microsoft VBScript (0x800A03EA)

    Erro de sintaxe

    /sitescurso/novo/con_prod.asp, line 156

    Else

    Obrigado por enquanto

  9. [resolvido] Ajuda Inner Join

    em ASP

    Postado 

    <%
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:
    Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E14) [Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na seqüência de caracteres na expressão de consulta ''Monitor LCD 15''WHERE Produtos.Prod_codigo=46;'. /sitescurso/novo/con_filmes.asp, line 75
    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. Ajuda Aspexec E .bat

    em ASP

    Postado

    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.

×
×
  • Criar Novo...