Como se puede imprimir email?

[Torus]

Hola a tod@s, Tengo un problema, el código de abajo lo que hace es comprobar si existe un Nik en la bd si existe hace una cosa y si no existe otra.

¿Cómo puedo hacer para que me saque el email si el nik existe?

Gracias
-----------------------
<%Dim numeroreg%>
<%
Dim login
Dim correcto
Dim oConn, rs, SQL

login=Request.Form("nik")
correcto=True
if login="" then correcto=False end if
if correcto then
set oConn=Server.CreateObject("ADODB.Connection&q uot;)
oConn.Open("dsn=fea;")
SQL="SELECT nik,email FROM registro01 WHERE (nik='"&login&"');"
set rs=oConn.Execute(SQL)

if not rs.EOF then %>

<% imprime si hay un nik %>

<%else %>

<% imprime si NO hay un nik %>
<% end if
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing %>
<%else


end if

Hay tanto que aprender y tan poco tiempo