Erro na verificação de Login

Bom Dia galera do ASP.

Sou novo na parte de programação web, porém estou com um problema e se possível gostaria de ajuda. Tenho um programa que cadastra as pessoas, porém não estou conseguindo fazer com que faça a verificação se o Login já existe ou não, alguém poderia me ajudar?? Vou postar o código, grato desde já.

<%
Dim txtDS_Login
Dim txtNM_Jogador
Dim txtDS_Email
Dim txtMensagem

txtMensagem = Null

if Request.Form("btnAcao") = "Cadastrar" then
if validarJogador() then
  incluirJogador()
end if
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> Cadastro de Jogadores </TITLE>
<link rel="stylesheet" href="estilo.css" type="text/css">
</HEAD>
<BODY bgcolor=#EEEEEE>
<form method=post action=cadastro_jogadores.asp>
<table align=center width=500>
<tr>
  <td colspan=2 height=30 valign=top><font face="Verdana, Arial, Sans-serif" size=2><b>Cadastro de Jogadores</b></font></td>
</tr>
<tr>
  <td width=130><font face="Verdana, Arial, Sans-serif" size=2>Nome completo:</font></td>
  <td width=370><input type=text name=nm_jogador size=50 maxlength=100 value="<%=txtNM_Jogador%>"></td>
</tr>
<tr>
  <td width=130 valign=top><font face="Verdana, Arial, Sans-serif" size=2>Login:</font></td>
  <td width=370 valign=top>
   <input type=text name=ds_login size=20 maxlength=16 value="<%=txtDS_Login%>">
  </td>
</tr>
<tr>
  <td width=130><font face="Verdana, Arial, Sans-serif" size=2>E-mail:</font></td>
  <td width=370><input type=text name=ds_email size=50 maxlength=50 value="<%=txtDS_Email%>"></td>
</tr>
</table>
</form>
</BODY>
</HTML>
<%
if Not IsNull(txtMensagem) then

Response.Write "<script language=javascript>" & VbCrLf
Response.Write "" & VbCrLf
Response.Write "</script>" & VbCrLf

end if

Function validarJogador()

if Request.Form("nm_jogador") <> "" then
txtNM_Jogador = Request.Form("nm_jogador")
else
txtMensagem = txtMensagem & "O campo Nome Completo é obrigatório!"
end if

if Request.Form("ds_Login") <> "" then
  txtDS_Login = Request.Form("ds_Login")
else
  txtMensagem = txtMensagem & "O campo Login é obrigatório!"
end if

if Request.Form("ds_email") <> "" then
  txtDS_Email = Request.Form("ds_email")
else
  txtMensagem = txtMensagem & "O campo E-mail é obrigatório!"
end if

End Function

Sub incluirJogador()
Dim recJogador

Set recJogador = Server.CreateObject("ADODB.RecordSet")
iniciarConexao("site")

recJogador.Open "INSERT INTO JOGADORES (JOGA_DS_LOGIN, JOGA_NM_JOGADOR, JOGA_DS_EMAIL) VALUES ('" & txtDS_Login & "', '" & txtNM_Jogador & "', '" & txtDS_Email & "')", Conn, 3, 3

encerrarConexao()
Set recJogador = Nothing

Response.Redirect "cadastro_jogadores1.asp"

verificarBanco(txtDS_Login)

if IsNull(txtMensagem) then
incluirJogador = True
else
incluirJogador = False
end if

End Sub

Sub verificarBanco(txtDS_Login)
Dim recLogin

Set recLogin = Server.CreateObject("ADODB.RecordSet")

iniciarConexao("site")
recLogin.Open "SELECT JOGA_DS_Login FROM JOGADORES WHERE JOGA_DS_Login = '" & txtDS_Login & "'", Conn, 3, 3

if recLogin.RecordCount > 0 then
txtMensagem = txtMensagem & "O Login informado já foi cadastrado anteriormente!"
end if

recLogin.Close
encerrarConexao()

Set recLogin = Nothing

End Sub
%>