Retorna Um Valor Do Banco de Dados

Function pegadado(tabela, campoderetorno, campocomparativo, valorcomparativo)
 Set objconex = Server.CreateObject("ADODB.Connection")
 ObjConex.Open sua string de conexao 

strsql = "SELECT " & campoderetorno & " FROM " & Tabela & " WHERE " & campocomparativo & " = '" & valorcomparativo & "'"
 Set RecSet = objconex.execute(strsql)
 if(RecSet.EOF) then
  pegadado = ""
 else
  pegadado = RecSet.Fields(campoderetorno)
 End If
End Function

Exemplo: pegadado("usuarios", "nome_usuarios", "email_usuarios", "dnaiel@passos.eti.br")
Isso lhe retornaria o valor guardando na tabela usuariso no campo nome_usuarios onde o email do usuario fosse = a daniel@passos.eti.br

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