Ho una select che pesca i record dal database e li visualizza...il problema è che visualizza, insieme agli altri, 2 record identici, so perchè lo fa ma non so come evitarlo.

Potete testare lo script a questo LINK

Il codice è:
codice:
<%
Dim Conn
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("prova.mdb")

Dim cod
cod=Request.Querystring("cod")
Dim SQL,Rec
SQL="SELECT * FROM caricoart WHERE id="&cod                                                     
Set rec = Server.CreateObject("ADODB.Recordset")
Set Rec=Conn.Execute(SQL)
		  
		  ValoreTipoDocumento=rec("tipodocumento")
%>
<select name="TipoDocumento" size="1" id="TipoDocumento">
<option value="<% =(ValoreTipoDocumento) %>"><% =(ValoreTipoDocumento)%></option>
<%
'Scrivo la mia query sql
sql = "SELECT * FROM TipoDocumento"

'E creo il recordset
Set RecTipoDocumento = Server.CreateObject ("ADODB.Recordset")
RecTipoDocumento.Open sql, Conn, 3, 3
do while not RecTipoDocumento.eof 

valore=RecTipoDocumento("TipoDocumento")
nome=RecTipoDocumento("TipoDocumento") 

response.write("<option value=" & nome &">" & valore &"</option>") 
RecTipoDocumento.movenext 
loop
%>
</select>
  
<%
'Chiudo e setto a nothing Rec, RecTipoDocumento e Conn
rec.close
Set rec = nothing 

RecTipoDocumento.close
Set RecTipoDocumento = nothing 

conn.Close 
Set conn = nothing 
%>