<%@ Language=VBScript %>
<%
Dim RecSet3
Set RecSet3=Server.CreateObject("ADODB.Recordset")
RecSet3.Open "ztblUsuario", DB
Executar = "SELECT codigo,username FROM ztblUsuario Where codsite = '"& Codigo_do_Site &"' Order By username"
Set RecSet3 = DB.Execute(Executar)
%>
Logon do Usuário