Problema ao chamar registro 2 vezes

Olá, tenho um código que exibe um registro aleatório em um banco de dados, no caso, são registros de livros, e ele escolhe os registros que possuem a campo exibe com valor True e exibe aleatoriamente. Até aí tudo bem.

O problema é que preciso chamar duas vezes o campo codigo para poder validar o link para a página de descrição do livro. Porém na primeira vez que exibo o valor do campo ele funciona, mas na segunda vez que chamo, ele não exibe nada no link e a url do link fica livro.asp?codigo=

O código é este:

Const adCmdText = &H0001
Dim query, conn

 query = "SELECT codigo, titulo, autor, imagem, comprar, exibe FROM livros WHERE exibe = True"
 conn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
 Server.MapPath("livros.mdb")

	Dim rs
 Set rs = Server.CreateObject("ADODB.Recordset")
 rs.Open query, conn, 3, , adCmdText

	Dim intRnd
 Randomize Timer
 intRnd = (Int(RND * rs.RecordCount))

 rs.Move intRnd

 Response.Write "<a href=""livro.asp?codigo=" & rs("codigo") & """><br>"
 Response.Write "<img src=""" & rs("imagem") & ".jpg"" width=""100"" border=""0"" /></a><br>"
 Response.Write "<b>" & rs("titulo") & "</b><br>"
 Response.Write "<i>" & rs("autor") & "</i><br>"
 Response.Write "<a href=""livro.asp?codigo=""" & rs("codigo") & """>Descrição</a><br>"
 Response.Write "<a href=""" & rs("comprar") & """ target=""_blank"">Comprar</a>"

 rs.Close
 Set rs = NothingTentei criar uma variável para atribuir o valor do campo e depois exibí-la e o erro persiste. Tentei também criar duas variáveis para ver se funcionava, mas nada.Será que alguém sabe o que devo fazer?

Muito obrigado, valeu abraço