En cada registro incluyes un onClick="Eliminar(id)", donde Eliminar se veria como :
Sub Eliminar(id)
if MsgBox("Elimina el registro ?",vbYesNo+vbDefaultButton2)=vbYes then
document.location = "eliminar.asp?id=" & id
end if
End Sub
suerte
