Salu2
Código:
<%
'globals
set gadmobj = server.CreateObject("AdvAdmin.AccountAdmin")
ConnString = gadmobj.GetStrAdvReg("General","ConnString")
set gadmobj = nothing
Application("Connection1_ConnectionString") = ConnString
set conn = Server.createobject("ADODB.Connection")
conn.Open Application("Connection1_ConnectionString")
strSQL = "select UserName,Password From Mail"
set rs1 = conn.Execute(strSQL)
IF NOT RS1.EOF THEN
%>
User: <%=rs1("UserName")%><BR>
Pwd: <%=rs1("Password")%><BR>
<%
rs1.MoveNext
rs1.Close
END IF
conn.Close
%>
'globals
set gadmobj = server.CreateObject("AdvAdmin.AccountAdmin")
ConnString = gadmobj.GetStrAdvReg("General","ConnString")
set gadmobj = nothing
Application("Connection1_ConnectionString") = ConnString
set conn = Server.createobject("ADODB.Connection")
conn.Open Application("Connection1_ConnectionString")
strSQL = "select UserName,Password From Mail"
set rs1 = conn.Execute(strSQL)
IF NOT RS1.EOF THEN
%>
User: <%=rs1("UserName")%><BR>
Pwd: <%=rs1("Password")%><BR>
<%
rs1.MoveNext
rs1.Close
END IF
conn.Close
%>










Autor




En línea



