Ragazzi, vi spiego il problema. Ho un database con delle righe doppie(uguali).
Voglio che ne rimanga una sola. Mi sapete dire dove sbaglio

Prenotazione voli e biglietti aereo
<%@LANGUAGE="VBSCRIPT"%>
<% Option Explicit %>



<%
dim objRS, strSQL, hid, rowcount

for hid="10126946" to hid="10227253"

strSQL="SELECT ID,hotelId FROM descrizioni_hotel where hotelId="&hid&""
Set objRS=Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn, adlockoptimistic, adcmdtable

while not objRS.eof
rowcount=rowcount+1
if rowcount>1 then
objRS.delete
end if
objRS.Movenext
wend
next

objRS.Close (QUI MIDA L'ERRORE)
Set objRS=Nothing

objConn.Close
Set objConn=Nothing
%>