Rubens Farias' weblog

quarta-feira, 24 de julho de 2002

Formulário com várias Ações?

Postado por Rubens Farias às 10:43

Um formulário em html (<FORM>) pode ter uma ação (ACTION) somente. Porém, utilizando Javascript, temos condição de dar ao usuario a opção de enviar os dados do formulário a um script ou outro, ou seja, podemos mudar a ação (ACTION) via javascript.

Imagine que tenhamos um formulário a ser preenchido pelo usuário e que, ao final, o usuário pode enviar para o Setor de RH ou para o Setor de Compras. Teremos então dois links ao final do formulário:

<a herf="javascript: Enviar('formusuario','rh.asp')"> Enviar para o Setor de RH</a>
<a herf="javascript: Enviar('formusuario','compras.asp')"> Enviar para o Setor de Compras</a>

Devemos, para tal, definir a função Enviar:

<script language="Javascript">

function Enviar(nomedoform, novoaction){
document.forms[nomedoform].action = novoaction;
document.forms[nomedoform].submit();
}

</script>

São informados dois parâmetros para a função: o nome do formulário a ser enviado (definido no parâmetro NAME da tag FORM) e o nome do script para o qual se deseja enviar este formulário.

Para saber mais sobre envio de formulários via Javascript e suas vantagens leia o artigo Enviando o Formulário sem o Botão Submit.

Esta matéria foi postada originalmente no ASP4Developers por Adriano Nântua, que na época era "Engenheiro de software e analista de sistemas; Desenvolvedor ASP, Delphi, C/C++ e Java/JSP/Servlets; InterBase fan; Linux fan; Alvirrubro inveterado.". Hoje, vai saber...

Página que executa comandos SQL (um auxílio aos Administradores)

Postado por Rubens Farias às 10:35

Observem como esse código simples pode ajudar na manutenção do seu site. Trata-se de uma página que executa comandos SQL, inclusive SELECT, trazendo a resposta numa tabela. Caso haja um erro na instrução SQL, achei por bem não tratá-lo e deixar por conta do IIS trazer-lhe a mensagem de erro proveniente do BD. Obviamente, só administradores AVANÇADOS devem ter acesso a essa página. Chega de papo e vamos ao que interessa:

'***************
' SQL.asp
'***************
<%
response.buffer = true
response.expires = 10

if request.form("acao") = "ExecSQL" then
Dim Conn
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open 'Ponha aqui sua string de Conexão
set qrSQL = Conn.Execute(request.form("SQL"))
end if
%>
<html>
<head>
<title>Execução de Comandos SQL</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF">
<p><b>Execução de Comandos SQL</b></p>
<form name="formSQL" method="post" action="SQL.asp">
<input type="hidden" name="acao" value="ExecSQL">
<table width="80%" border="0" cellspacing="0" cellpadding="0">
    <tr align="center">
      <td height="166">
        <textarea name="SQL" rows="8" cols="100">
</textarea>
      </td>
    </tr>
    <tr>
      <td align="center" width="50%"><a href="Javascript: document.forms['formSQL'].submit()">Executar</a></td>
    </tr>
</table>

<%if UCase(Mid(request.form("SQL"),1,6)) = "SELECT" then%>
<table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#666666" bordercolordark="#666666">
<tr bgcolor="#FFFFCC">
<%for i = 0 to qrSQL.Fields.Count - 1%>
    <td><%=qrSQL.Fields(i).name%> </td>
<%next%>
    </tr>
<%while not qrSQL.EOF%>
     <tr>
  <%for i = 0 to qrSQL.Fields.Count - 1%>
    <td><%=qrSQL.Fields(i)%> </td>
  <%next%>
    </tr>
<%qrSQL.MoveNext%>
<%wend%>
</table>
<%end if%>
<%
set qrSQL = nothing
set Conn = nothing
%>
</body>
</html>

Mudando a cor de fundo da Linha (a là Hotmail)

Postado por Rubens Farias às 10:34

Um pequeno script, a là Hotmail, para quando você quiser mudar a cor de fundo da linha quando você clica o Checkbox que há dentro dela.
(Obs.: haverá um erro de Javascript se o Checkbox não estiver dentro de uma célula de tabela)

<html>
<script language="JavaScript">
//detectando o navegador:
sAgent = navigator.userAgent;
ie = sAgent.indexOf("MSIE") > -1;

function MudarCor(CB){
if (CB.checked){
hL(CB);
} else {
dL(CB);
}
}

function hL(E){
if (ie) //se for internet explorer
  {
   while (E.tagName!="TR")
   {E=E.parentElement;}
  }
else
  {
  while (E.tagName!="TR")
   {E=E.parentNode;}
  }
E.className = "estilo1";
}

function dL(E){
if (ie)
  {
  while (E.tagName!="TR")
   {E=E.parentElement;}
  }
else
  {
  while (E.tagName!="TR")
   {E=E.parentNode;}
  }
E.className = "estilo2";
}

</script>
<style type="text/css">

</style>
<body>
Clique para ver funcionando!!!
<table width="75%" border="1" cellpadding="1" cellspacing="0" bordercolor="#FFFFFF">
<tr class="estilo1">
    <td><input name="checkbox" type="checkbox" value="checkbox" checked onClick="MudarCor(this)"></td>
</tr>
<tr class="estilo2">
    <td><input type="checkbox" name="checkbox2" value="checkbox" onClick="MudarCor(this)"></td>
</tr>
<tr class="estilo1">
    <td><input name="checkbox3" type="checkbox" value="checkbox" checked onClick="MudarCor(this)"></td>
</tr>
</table>
</body>
</html>

segunda-feira, 22 de julho de 2002

Gravar um valor em um arquivo Excel com JavaScript

Postado por Rubens Farias às 11:11

Olá pessoal, abaixo apresento uma forma de acessar um arquivo excel com JavaScript, o código abaixo pode ser otimizado para realizar cálculos via WEB, atualizando os campos na planilha automaticamente.

   var o_Excel;
var Excel_append;

   Excel_append = new ActiveXObject("Excel.Application");
   o_Excel = new ActiveXObject("Excel.Sheet");
   o_Excel.Application.Visible = true;
   o_Excel.ActiveSheet.Cells(1,1).Value = "Esta é a coluna A, linha 1";
   o_Excel.SaveAs("C:\\ARQUIVO.XLS");
   o_Excel.Application.Quit();

Esta matéria foi postada originalmente no ASP4Developers por Rafael Felix Budel, que na época era "Programador ASP, JavaScript, VBScript, CSS2, DHTML, utilizando tecnologia XML, XMLHTTP, XMLDOM, ASP.NET - C#.". Hoje, vai saber...

Criando um novo ítem em um arquivo XML com createNode

Postado por Rubens Farias às 10:30

Olá pessoal, abaixo apresento um exemplo de como criar um novo ítem em um arquivo XML utilizando o método createNode

Arquivo XML
<currencies>
   <moeda>Marco Alemao</moeda>
   <moeda>Lira Italiana</moeda>
   <moeda>Yene</moeda>
   <moeda>Dollar</moeda>
</currencies>

o_xml = new ActiveXObject("Microsoft.XMLDOM");
o_xml.async = false;
o_xml.load("arquivo.xml");

root = o_xml.documentElement;
novo_node = o_xml.createNode(1, "moeda", "");
node_text = o_xml.createNode(3, "", "");
node_text.text = "Real";
novo_node.appendChild(node_text);
root.insertBefore(novo_node, root.childNodes.item(3));

nome_node = o_xml.getElementsByTagName("moeda");
node_tam = nome_node.length;
for (i = 0; i < node_tam; i++)
document.write(nome_node[i].text + "<br>");

Saída :

Dollar
Lira Italiana
Marco Alemao
Yene
Real

sexta-feira, 19 de julho de 2002

Listar todas as pastas existentes em um diretório com ASP

Postado por Rubens Farias às 17:06

Olá pessoal, desenvolvi um código ASP para exibir todas as pastas em um diretório específico.

Dim obj_Pasta
Dim o_met
Dim o_met1
Dim o_met2
Dim a_pasta
Dim caminho

caminho = "c:\"

Set obj_Pasta = CreateObject("Scripting.FileSystemObject")
Set o_met = obj_Pasta.GetFolder(caminho)
Set o_met2 = o_met.SubFolders

For Each o_met1 In o_met2
    a_pasta = a_pasta & o_met1.name
      a_pasta = a_pasta & "<BR>"
  Next

Response.Write a_pasta

Retirar acentos diretamente no SQL

Postado por Rubens Farias às 16:15

Caros amigos,

Tudo bem? como vocês sabem, trabalhar diretamente formatações no banco fica muito mais rapido do que em codigo.
Por isso vejam como remover acentos, colocar em maiusculas e mostrar desta forma o dado.

Digamos que seu campo se chame NO_CIDADE e
que você receba o nome da cidade na variavel nomeCidade.

'#Criando variavel SQL
vSQLnomeEmpresa = "select upper(translate(Trim(NO_CIDADE),'áÁàÀãÃâÂâäÄéÉêÊËëÈèíÍïÏÌìóÓôÔõÕöÖòÒúÚÙùúûüÜÛ','AAAAAAAAAAAEEEEEEEEIIIIIIOOOOOOOOOOUUUUUUUUU')) NO_CIDADE, CO_UF from TB_CIDADE where upper(translate(Trim(NO_CIDADE),'áÁàÀãÃâÂâäÄéÉêÊËëÈèíÍïÏÌìóÓôÔõÕöÖòÒúÚÙùúûüÜÛ','AAAAAAAAAAAEEEEEEEEIIIIIIOOOOOOOOOOUUUUUUUUU')) LIKE '%"& UCase(TiraAcento(Trim(nomeCidade))) &"%'"

Esta matéria foi postada originalmente no ASP4Developers por Allan Torres (site), que na época era "Analista de sistemas, trabalho com ASP, Oracle, PHP, C, Ferramentas Case e estudo Eng. Elétrica. Sempre as ordens! ]:)". Hoje, vai saber...

Ler todos os registros de um arquivo XML com JavaScript

Postado por Rubens Farias às 15:47

Olá pessoal, no exemplo abaixo gerei um arquivo XML e um script que faz um loop por todo XML lendo todos os registros e imprimindo em tela.

<?xml version="1.0" encoding="iso-8859-1" ?>
<colecao>
<cds>
<titulo>AAAAA</titulo>
<cantor>BBBBB</cantor>
</cds>
<cds>
<titulo>AAAAA</titulo>
<cantor>BBBBB</cantor>
</cds>
<cds>
<titulo>AAAAA</titulo>
<cantor>BBBBB</cantor>
</cds>
</colecao>

var obj_Inf = new ActiveXObject("Msxml.DOMDocument");
var obj_Pai;
var obj_Texto;
obj_Inf.load("cds5.xml");
obj_Inf.async = "false";
obj_Pai = obj_Inf.documentElement;

for (i = 0; i < obj_Pai.childNodes.length; i++){
obj_Texto = obj_Pai.childNodes.item(i).childNodes.item(0).childNodes.item(0).nodeValue;
document.write(i+1 +" - "+ obj_Texto +"<br />");

Mostrando tipo de data e hora no ASP.NET (C# e VB)

Postado por Rubens Farias às 13:23

Script simples para vizualização de formato de data e hora.

====== usando C#
<script language ="c#" runat = "server">
void Page_Load(Object src, EventArgs e) {
   DateTime myDate = DateTime.Now;
   normal.Text = myDate.ToString();
   shortdt.Text = myDate.ToShortDateString();
   longdt.Text = myDate.ToLongDateString();
   longtm.Text = myDate.ToLongTimeString();
   shorttm.Text = myDate.ToShortTimeString();
}
</script>
<p>Normal : <asp:label id = "normal" runat = "server" /></p>
<p>Data Curta : <asp:label id = "shortdt" runat = "server" /></p>
<p>Data Longa : <asp:label id = "longdt" runat = "server" /></p>
<p>Hora Longa : <asp:label id = "longtm" runat = "server" /></p>
<p>Hora Curta : <asp:label id = "shorttm" runat = "server" /></p>

====== usando VB
<script language ="vb" runat = "server">
Sub Page_Load(src as object , e as eventargs)
   dim myDate = DateTime.Now
   normal.Text = myDate.ToString()
   shortdt.Text = myDate.ToShortDateString()
   longdt.Text = myDate.ToLongDateString()
   longtm.Text = myDate.ToLongTimeString()
   shorttm.Text = myDate.ToShortTimeString()
end Sub
</script>
<p>Normal : <asp:label id = "normal" runat = "server" /></p>
<p>Data Curta : <asp:label id = "shortdt" runat = "server" /></p>
<p>Data Longa : <asp:label id = "longdt" runat = "server" /></p>
<p>Hora Longa : <asp:label id = "longtm" runat = "server" /></p>
<p>Hora Curta : <asp:label id = "shorttm" runat = "server" /></p>

exemplo: http://www.fixe.com.br/asp4d/data.aspx

download do código: http://www.fixe.com.br/asp4d/data.zip

Esta matéria foi postada originalmente no ASP4Developers por Felipe "Prog" Esteves (site), que na época era "Prog (da rede Brasnet de IRC) - Analista de Sistemas, WebMaster, WebDesigner, Programador e Maluco. Conhecimento: C/C++, ObjectPascal, Java, JavaScript, ActionScript, ActivePerl, ASP, PHP, T-SQL e derivados. Ferramentas: Linux, WinXP, MSSQL, MySQL, IB, MSAccess, Delphi, C++Builder, Forte, ERWin, TextPad, IIS5, Resin, Apache, Tomcat, mod_php, mod_perl, ActivePerl, SDK.NET, J2EE SDK, MSXML, Flash, Dreamweaver, CorelDRAW e PhotoShop. Atualmente estudando (fase de conclusão do curso superior de Sistemas de Informação - www.unp.br), aprimorando conhecimento em tecnologias (XML, SVG, Java/JSP, .NET) e cuidando da empresa (www.fixe.com.br).". Hoje, vai saber...

Criando e Manipulando Imagens "On Fly" no ASP.NET (C# e VB)

Postado por Rubens Farias às 02:11

Este é um pequeno exemplo para criar e/ou manipular imagens em tempo de execução. Uma utilização bem interessante é:
<img src="imagem.aspx">
ou
<img src="imagem.aspx?texto=Bom dia">

Este tipo de recurso sempre me foi muito necessário, o qual eu só tive resultados em servidores que desponibilizavam o componente ASPImage ou com a linguagem PHP. A aplicação recebia uma imagem, upload via web, e salvava 3 arquivos dessa mesma imagem, em tamanhos variados.

Neste exemplo, é criado uma imagem como um "contador de Hits".

===== Usando C#
<% @Page language="c#" ContentType="image/jpeg" %>
<% @Import Namespace="System.Drawing" %>
<% @Import Namespace="System.Drawing.Imaging" %>
<% @Import Namespace="System.Drawing.Drawing2D" %>
<%
Response.ClearContent();

// criando novo Bitmap no formato 24bit, dimensões 120x30
Bitmap imagem = new Bitmap(120, 30, PixelFormat.Format24bppRgb);

// criando novo objeto gráfico (objeto que será manipulado)
Graphics g = Graphics.FromImage(imagem);

// contando (tentei fazer isso incrementar, mas não deu certo)
Application["intPageCount"] = 1;

// limpa a imagem (neste caso, coloca a cor do fundo)
g.Clear(Color.Yellow);

// antialias (suavizando serrilhado)
g.SmoothingMode = SmoothingMode.AntiAlias;

// pinta o número na imagem criada
g.DrawString("Conta: " + Application["intPageCount"], new Font("verdana",14,FontStyle.Bold),SystemBrushes.WindowText, new PointF(2,2));

// cria efeito degrade
g.FillRectangle(new LinearGradientBrush(new Point(0,0), new Point(120,30), Color.FromArgb(0,0,0,0),Color.FromArgb(255,255,255,255)),0,0,120,30);

// exibe a imagem
imagem.Save(Response.OutputStream, ImageFormat.Jpeg);

// desalocando objetos da memória
g.Dispose();
imagem.Dispose();
Response.End();
%>

===== Usando VB
<%@ page language="vb" contenttype="image/jpeg" %>
<%@ import namespace="system.drawing" %>
<%@ import namespace="system.drawing.imaging" %>
<%@ import namespace="system.drawing.drawing2d" %>
<%
response.clear

' criando novo Bitmap no formato 24bit, dimensões 120x30
dim imagem as New bitmap(120, 30, pixelformat.format24bpprgb)

' criando novo objeto gráfico (objeto que será manipulado)
dim g as graphics = graphics.fromImage(imagem)

' contando
application("intPageCount")+=1

' limpa a imagem (neste caso, coloca a cor do fundo)
g.clear(color.yellow)

' antialias (suavizando serrilhado)
g.smoothingMode = smoothingMode.antiAlias

' pinta o número na imagem criada
g.drawString("Conta: " & application("intPageCount"), New font("verdana",14,fontstyle.bold),systembrushes.windowtext, New pointF(2,2))

' cria efeito degrade
g.FillRectangle(New linearGradientBrush(New point(0,0), New point(120,30), color.fromArgb(0,0,0,0),color.fromArgb(255,255,255,255)),0,0,120,30)

' exibe a imagem
imagem.save(response.outputstream, imageformat.jpeg)

' desalocando objetos da memória
g.dispose()
imagem.dispose()
response.end
%>

exemplo1: http://www.fixe.com.br/asp4d/imagem1.aspx

exemplo2: http://www.fixe.com.br/asp4d/imagem2.aspx

download do código: http://www.fixe.com.br/asp4d/image-x.zip

quinta-feira, 18 de julho de 2002

Strings de conexão - ADO.NET Beta 2

Postado por Rubens Farias às 11:53

Olá pessoal, abaixo apresento algumas formas de conexão com ADO.NET beta 2

Usando OleDb
using System.Data.Oledb;
OleDbConnection Conexao = new OleDbConnection();
Conexao.ConnectionString = "Provider=SQLOLEDB;" +
                           "DataBase=Northwind;" +
                           "user id=sa; PWD=senha";
Conexao.Open()

Usando SqlClient
using System.Data.SqlClient;
SqlConnection Conexao = new SqlConnection();
Conexao = new SqlConnection("Initial Catalog=Northwind;" +
                            "Data Source=servidor;" +
                            "Integrated Security=SSPI;" +
                            "user id=sa; PWD=senha";
Conexao.Open()

Usando MS-Access
using System.Data.OleDb;
OleDbConnection Conexao = new OleDbConnection();
Conexao.ConnectionString = "Provider=Microsoft.JET.OLEDB.4.0;"+
                            @"Data Source=C:\BaseDeDados.mdb";
Conexao.Open()

quarta-feira, 17 de julho de 2002

Imprimir todas as variáveis de sessão do servidor

Postado por Rubens Farias às 08:22

Olá pessoal, a seguir apresento um exemplo de como imprimir todas as variáveis de sessão do servidor.

Session("nome") = "Rafael"
Session("data") = "17/07/2002"

   For Each Item In Session.Contents
      Response.Write Item & " = " & Session.Contents(Item) & "<br>"
   Next

Trabalhando com Layers

Postado por Rubens Farias às 08:20

Olá pessoal, a seguir apresento um exemplo de como trabalhar com layers, otimizando a página html ou ASP.

<body onLoad="Carrega()">
<style type="text/css">.estilo_botao { font-family: verdana; font-size: 8pt; color: #000000; background-color: #CCCC00; border: #333333; border-style: solid; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px}</style>
<script language="javascript">
function Carrega()
{
LAYER1.style.display = 'none';
LAYER2.style.display = 'none';
}

var FlagEstado = 0;

function Muda()
{
LAYER1.style.display = 'none';

    if (FlagEstado=='0')
    {
       FlagEstado = 1;
       bot.value = 'LAYER 1';
       LAYER1.style.display = '';
       LAYER2.style.display = 'none';
    }
    else
    {
       FlagEstado = 0;
       bot.value = 'LAYER 2';
       LAYER1.style.display = 'none';
       LAYER2.style.display = '';
    }
}
</script>
<br>
<input type=button id=bot onClick="Muda()" class="estilo_botao">
<br>
<br>
<div id=LAYER1><b><font color="#000099" face="Verdana, Arial, Helvetica, sans-serif">LAYER
1</font></b></div>
<div id=LAYER2><font color="#990099" size="3" face="Verdana, Arial, Helvetica, sans-serif"><b>LAYER
2</b></font></div>
</body>

segunda-feira, 15 de julho de 2002

Trabalhando com o Objeto Dictionary

Postado por Rubens Farias às 14:38

Olá Pessoal, abaixo falo um pouco sobre o Objeto Dictionary,

O objeto Dictionary armazena pares de ( nome/valor ) em um array (no qual é feita referência como chave e item, respectivamente)
Cada ítem é associado a uma chave única.

No exemplo abaixo é criado um objeto Dictionary chamado "Linguagem", são adicionados alguns pares ( chave/item ) e são exibidos os valores do item para as chaves a,b,c.

Dim Linguagem

Set Linguagem = CreateObject("Scripting.Dictionary")

    Linguagem.Add "a","C"
    Linguagem.Add "b","C++"
    Linguagem.Add "c","C#"

    Response.Write Linguagem.Item("a")
    Response.Write Linguagem.Item("b")
    Response.Write Linguagem.Item("c")

Utilizando coleções

Postado por Rubens Farias às 09:49

Olá pessoal,
A seguir demonstro um exemplo de código para trabalhar com coleções em ASP.

Data = Month(Date)

If Data <= 9 Then
Data = "0" & Data
End If

Application("nome") = "Rafael"
Application("data") = Day(Date) & "/" & Data

For Each Item in Application.Contents
Response.Write Item & "=" & Application.Contents(Item) & "<br>"
Next

domingo, 14 de julho de 2002

Dica : Web Matrix (IDE para .NET Free)

Postado por Rubens Farias às 20:24

Recentemente foi lançado um editor para aplicações ASP.NET totalmente gratuito com o objetivo de proporcionar aos desenvolvedores uma opção extra e totalmente gratuita. (Visto que o Visual studio .NET é um IDE relativamente caro, principalmente para desenvolvedores autônomos e pequenas empresas)

O Web Matrix é um projeto de +- 1 ano, totalmente feito em C# e com a característica de ser 'Community Supported'. Acompanha também o mini SQL server MSDE também gratuito.

Mais infos :http://www.asp.net/webmatrix/default.aspx?tabindex=4&tabid=46

Ken :)
_________________
-|- Ken Awamura @ www.kencwb.com

Esta matéria foi postada originalmente no ASP4Developers por Ken Awamura (site), que na época era "Eternamente Aprendiz". Hoje, vai saber...

De Tabela Para FORM <INPUTY TYPE=radio>

Postado por Rubens Farias às 15:11

Le todos os registro de uma tabela e monta as opçoes com <INPUT TYPE=radio>

Sub db2radio(Nradio, Tabela, Valor, Nome, Ordenador, Checked)

Set objconex = Server.CreateObject("ADODB.Connection") : objconex.Open strconex
Set RecSet = objconex.execute("SELECT * FROM " & Tabela & " ORDER BY " & Ordenador)

if (Not RecSet.EOF) then
  RecSet.MoveFirst
  Do While Not RecSet.EOF
   If(CSTR(TRIM(UCASE(RecSet.Fields(Valor)))) = CSTR(TRIM(UCASE(Checked)))) then
    Response.Write("<INPUT TYPE=radio NAME="& Nradio &" value=" & RecSet.Fields(Valor) & " checked>" & RecSet.Fields(Nome)) & chr(13))
   Else
    Response.Write("<INPUT TYPE=radio NAME="& Nradio &" value=" & RecSet.Fields(Valor) & ">" & RecSet.Fields(Nome)) & chr(13))
   End if
   RecSet.MoveNext
  Loop
End If

RecSet.Close : Set RecSet = Nothing : objconex.close : Set objconex = Nothing

End Sub

Esta matéria foi postada originalmente no ASP4Developers por Daniel Passos (site), que na época era "Consultor de TI com fortes conhecimentos nas linguagens HTML, JavaScript, Perl, ASP e PHP. Conhecimentos básicos de Java (Swing, JSP & Servlets), orientação a objetos e UML, Banco de dados MySQL, SQL Server e Oracle.". Hoje, vai saber...

De Tabela Para FORM <Select>

Postado por Rubens Farias às 15:05

Rotina que le todos os registro de uma tabela e monta um combo select com seus registros

OBS: Nao esqueça de chamar a funcao dentro de um select :)

ex:

<% call db2select("nome-da-tabela", "campo-onde-estava-o-valor", "campo-onde-estara-o-nome", "campo-ordenador", valor-a-vir-selecionado %>

</SELECT>

Sub db2select(Tabela, Valor, Nome, Ordenador, Selected)

Set objconex = Server.CreateObject("ADODB.Connection") : objconex.Open strconex
Set RecSet = objconex.execute("SELECT * FROM " & Tabela & " ORDER BY " & Ordenador)

if (Not RecSet.EOF) then
  RecSet.MoveFirst
  Do While Not RecSet.EOF
   If (RecSet.Fields.Item(valor) = Selected) then
    Response.Write("<option value=" & RecSet.Fields.Item(valor) & " selected>" & RecSet.Fields.Item(nome)) & "</option>" & chr(13))
   else
    Response.Write("<option value=" & RecSet.Fields.Item(valor) & ">" & RecSet.Fields.Item(nome)) & "</option>" & chr(13))
   end if
   RecSet.MoveNext
  Loop
End If

RecSet.Close : Set RecSet = Nothing : objconex.close : Set objconex = Nothing

End Sub

Caminho virtual de um arquivo

Postado por Rubens Farias às 14:51

O server.Mappath mostra o caminho real essa função mostra o caminho virtual

Function PathVirtual()
PathVirtual = Request.ServerVariables("SCRIPT_NAME")
PathVirtual = Mid(PathVirtual, 1, inStrRev(PathVirtual, "/"))
End Function

Transforma uma string (lixo) em inteiro via expressão regular (Regular Expression)

Postado por Rubens Farias às 14:45

A pouco tempo tive de pegar os dados de pretensões salarias de um campo que era de string (varchar) e passar seus valores para interiro acabei desenvolvendo essa expressão regular (Regular Expression) que julgo uma mão na roda.

Dim str

str = "54.00 3 2 ,00 1.tio, san$23,00"
Response.Write("String Original = " & str & " - String Modificada = " & dinheirointeiro(str))

function dinheirointeiro(string)

Set regEx = New RegExp ' Cria o Objeto Expressão

regEx.Pattern = "[a-z]+|\$+|\,00$|\,00$| +|\,+|\.+|[^0-9]+" ' Expressão Regular
regEx.IgnoreCase = True ' Sensitivo ou não
regEx.Global = True ' Não sei exatamente o que faz

caracterdetroca = "" ' Caracter que ficara no lugar o encontrado

dinheirointeiro = regEx.Replace(string, caracterdetroca) ' Faz a troca

End Function