Jump to content

  2. → Viewing Profile: Tópicos: maycoalexsander

maycoalexsander

Member Since 24/10/2003
Offline Last Active 25/02/2004, 17:40
-----

Topics I've Started

Limite De Caracteres Do Datagrid

29/01/2004, 09:49

Pessoal,

Alguém ai tem ideia de como aumentar o limite maximo de caracteres que pode ser exibido em um campo do datagrid? Tenho um campo MEMO na base de dados e os textos dele são bem compridos, mas o datagrid corta o texto...

Obrigado!
:P :huh: :o

Alert Após Update

20/11/2003, 16:51

Pessoal, estou com um problema cruel... tenho uma tela de update, e queria que após realizado o update, disparasse um alert confirmando que os dados foram inseridos com exito.

Detalhe, eu uso só um asp para fazer o update (O submit joga para uma rotina na mesma página que faz o update no BD.)

Tentei fazer um:

Response.write("<script>alert('Cadastro realizado com sucesso!');</script>")

Logo após o update mas naum funfou...

Se alguém puder me ajudar nessa...

:wacko: :blink: :unsure: :ph34r:

2 Selects Dinâmicos Com Javascript

24/10/2003, 08:47

Olá pessoal,

Sou novo ainda aqui no fórum mas estou numa dúvida tremenda... eu tenho dois List (Select) que são dinamicos em um formulário, o primeiro carrega os valores de uma BD e o segundo fica vazio, para o usuario selecionar os valores que ele deseja no primeiro e jogar para o segundo, através de javascript, feito isso o formulario joga os valores para um ASP, só que ele só joga os valores, quando estão selecionados, então eu precisava de algo que fizesse o javascript selecionar automatico os valores do segunto list pro ASP poder pegar os valores... seguem abaixo os codigos...

formulario.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/UAU.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_UAU_STRING
Recordset1.Source = "SELECT * FROM Empresas"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<script language="JavaScript">
function move(MenuOrigem, MenuDestino){
    var arrMenuOrigem = new Array();
    var arrMenuDestino = new Array();
    var arrLookup = new Array();
    var i;
    for (i = 0; i < MenuDestino.options.length; i++){
        arrLookup[MenuDestino.options[i].text] = MenuDestino.options[i].value;
        arrMenuDestino[i] = MenuDestino.options[i].text;
    }
    var fLength = 0;
    var tLength = arrMenuDestino.length;
    for(i = 0; i < MenuOrigem.options.length; i++){
        arrLookup[MenuOrigem.options[i].text] = MenuOrigem.options[i].value;
        if (MenuOrigem.options[i].selected && MenuOrigem.options[i].value != ""){
            arrMenuDestino[tLength] = MenuOrigem.options[i].text;
            tLength++;
        }
        else{
            arrMenuOrigem[fLength] = MenuOrigem.options[i].text;
            fLength++;
        }
    }
    arrMenuOrigem.sort();
    arrMenuDestino.sort();
    MenuOrigem.length = 0;
    MenuDestino.length = 0;
    var c;
    for(c = 0; c < arrMenuOrigem.length; c++){
        var no = new Option();
        no.value = arrLookup[arrMenuOrigem[c]];
        no.text = arrMenuOrigem[c];
        MenuOrigem[c] = no;
    }
    for(c = 0; c < arrMenuDestino.length; c++){
        var no = new Option();
        no.value = arrLookup[arrMenuDestino[c]];
        no.text = arrMenuDestino[c];
        MenuDestino[c] = no;
   }
}
</script>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<br>
<form method="post" action="cadUsuario2.asp" name="form1">
  <fieldset><legend>Cadastrar Usuario</legend><table width="500" align="left">
    <tr valign="baseline">
      <td width="99" align="right" nowrap>Email:</td>
      <td width="192">
        <input type="text" name="email" value="" size="32">
      </td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">Fone:</td>
      <td>
        <input type="text" name="fone" value="" size="32">
      </td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">Nome:</td>
      <td>
        <input type="text" name="Nome" value="" size="32">
      </td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">Senha:</td>
      <td>
        <input type="text" name="senha" value="" size="32">
      </td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">Usuario:</td>
      <td>
        <input type="text" name="Usuario" value="" size="32">
      </td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">&nbsp;</td>
      <td>
        
      </td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr valign="baseline">
      <td align="right" valign="middle" nowrap><select name="list1" size="5" multiple id="list1" style="width:150;">
        <%
While (NOT Recordset1.EOF)
%>
        <option value="<%=(Recordset1.Fields.Item("codEmpresa").Value)%>"><%=(Recordset1.Fields.Item("Empresa").Value)%></option>
        <%
  Recordset1.MoveNext()
Wend
If (Recordset1.CursorType > 0) Then
  Recordset1.MoveFirst
Else
  Recordset1.Requery
End If
%>
      </select>
      <input type="button" onClick="move(this.form.list2,this.form.list1)" value="<<"></td>
      <td valign="middle"><input type="button" onClick="move(this.form.list1,this.form.list2)" value=">>">
      <select name="list2" size="5" multiple id="list2" style="width:150;"></select></td>
    </tr>
  </table>
  </fieldset>
  <input type="hidden" name="nivel" value="" size="32">
  <input type="hidden" name="Status" value="" size="32">
  <input type="hidden" name="MM_insert" value="form1">
  <input type="submit" value="Insert record">
</form>
<p>&nbsp;</p>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>

cadusuario2.asp


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% If Not Request.Form("list2")="" Then %>
Thanks <%=Request.Form("list2")%> !<br>
<%For k=1 To Request.Form("list2").Count%>
Request.Form("list1")(<%=k%>)=<%=Request.Form("list2")(k)%><br>
<%Next%>
<% End If %>

Se puderem me ajudar eu agradeço!!!

  1. Fórum WMO
  2. → Viewing Profile: Tópicos: maycoalexsander
  3. Privacy Policy
  4. Regras ·
IPB Skin By Virteq